diff options
author | René Scheibe <rene.scheibe@gmail.com> | 2014-09-10 17:02:50 +0200 |
---|---|---|
committer | René Scheibe <rene.scheibe@gmail.com> | 2014-09-25 18:28:44 +0200 |
commit | e84296626d1f10a2f81c86e646ac52e4c14f2a23 (patch) | |
tree | 7ae332aeaa38d185b356f757a429571ba3d6acaa | |
parent | 101d91fde640504c4fe4c742090a5eaacfd35a67 (diff) | |
download | ninka-e84296626d1f10a2f81c86e646ac52e4c14f2a23.tar.gz |
use of !~ operator instead of !(... =~ ...)
-rwxr-xr-x | filter/filter.pl | 2 | ||||
-rwxr-xr-x | matcher/matcher.pl | 2 | ||||
-rwxr-xr-x | senttok/senttok.pl | 2 | ||||
-rwxr-xr-x | splitter/splitter.pl | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/filter/filter.pl b/filter/filter.pl index 0031592..be183a3 100755 --- a/filter/filter.pl +++ b/filter/filter.pl @@ -30,7 +30,7 @@ use Getopt::Std; my $INPUT_FILE_EXTENSION = 'sentences'; # parse cmdline parameters -if (!getopts('') || scalar(@ARGV) == 0 || !($ARGV[0] =~ /\.$INPUT_FILE_EXTENSION$/)) { +if (!getopts('') || scalar(@ARGV) == 0 || $ARGV[0] !~ /\.$INPUT_FILE_EXTENSION$/) { print STDERR "Usage $0 <filename>.$INPUT_FILE_EXTENSION\n"; exit 1; } diff --git a/matcher/matcher.pl b/matcher/matcher.pl index 164caad..d768117 100755 --- a/matcher/matcher.pl +++ b/matcher/matcher.pl @@ -110,7 +110,7 @@ $NON_CRITICAL_RULES{'LGPLVer2.1or3KDE+'} = [@GPL_NON_CRITICAL]; my $INPUT_FILE_EXTENSION = 'senttok'; # parse cmdline parameters -if (!getopts('') || scalar(@ARGV) == 0 || !($ARGV[0] =~ /\.$INPUT_FILE_EXTENSION$/)) { +if (!getopts('') || scalar(@ARGV) == 0 || $ARGV[0] !~ /\.$INPUT_FILE_EXTENSION$/) { print STDERR "Usage $0 <filename>.$INPUT_FILE_EXTENSION\n"; exit 1; } diff --git a/senttok/senttok.pl b/senttok/senttok.pl index 5d4627f..34aed9c 100755 --- a/senttok/senttok.pl +++ b/senttok/senttok.pl @@ -30,7 +30,7 @@ use Getopt::Std; my $INPUT_FILE_EXTENSION = 'goodsent'; # parse cmdline parameters -if (!getopts('') || scalar(@ARGV) == 0 || !($ARGV[0] =~ /\.$INPUT_FILE_EXTENSION$/)) { +if (!getopts('') || scalar(@ARGV) == 0 || $ARGV[0] !~ /\.$INPUT_FILE_EXTENSION$/) { print STDERR "Usage $0 <filename>.$INPUT_FILE_EXTENSION\n"; exit 1; } diff --git a/splitter/splitter.pl b/splitter/splitter.pl index 4661274..06a4554 100755 --- a/splitter/splitter.pl +++ b/splitter/splitter.pl @@ -43,7 +43,7 @@ use Getopt::Std; my $INPUT_FILE_EXTENSION = 'comments'; # parse cmdline parameters -if (!getopts('') || scalar(@ARGV) == 0 || !($ARGV[0] =~ /\.$INPUT_FILE_EXTENSION$/)) { +if (!getopts('') || scalar(@ARGV) == 0 || $ARGV[0] !~ /\.$INPUT_FILE_EXTENSION$/) { print STDERR "Usage $0 <filename>.$INPUT_FILE_EXTENSION\n"; exit 1; } |