diff options
author | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-12 16:05:15 -0300 |
---|---|---|
committer | Gabriel Hernan Czernikier <gaboherno@gmail.com> | 2014-10-12 16:05:15 -0300 |
commit | 89891092a39ca411a20e4d1c105ed04079ef134d (patch) | |
tree | b697f49b082b0554772179a0b968220c192440d4 /regex-nonprintable.pl | |
parent | fa6b243b08c2e483b8b6ed9654417607f158d416 (diff) | |
download | vital-89891092a39ca411a20e4d1c105ed04079ef134d.tar.gz vital-89891092a39ca411a20e4d1c105ed04079ef134d.tar.bz2 |
Initial commit of more TokensV2's functionality. Includes docummentation and license.
Diffstat (limited to 'regex-nonprintable.pl')
-rw-r--r-- | regex-nonprintable.pl | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/regex-nonprintable.pl b/regex-nonprintable.pl new file mode 100644 index 0000000..2507f90 --- /dev/null +++ b/regex-nonprintable.pl @@ -0,0 +1,42 @@ +# Greps txt files to search the string. +# $1: where to look for +# $2: file containing regex + + +# This file is part of TokensV2. +# +# TokensV2 is free software: you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation, either version 3 of the License, or +# (at your option) any later version. +# +# TokensV2 is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with Foobar. If not, see <http://www.gnu.org/licenses/>. + +local $/=undef; +my $fh; +open $fh, '<', ${ARGV[1]}; +$my_regex=<$fh>; +$my_regex =~ s/(.)/$1([\\x00-\\x1F]|\\x7F)*/g; +$my_regex =~ s/\(\[\\x00-\\x1F\]\|\\x7F\)\*\?/?/g; + +$my_regex =~ s/\n$//g; + +print "[Regex]: [$my_regex]\n"; + +@ARGV = glob "${ARGV[0]}/*"; + +while(<>) { + $ARGV =~ s/.*\///; + if($_ =~ /$my_regex/) { + print "$ARGV matches (see regex on top of output).-\n"; + } + else { + print "$ARGV doesn't match (see regex on top of output).-\n"; + } +} |