diff options
Diffstat (limited to 'filter/filter.pl')
-rwxr-xr-x | filter/filter.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/filter/filter.pl b/filter/filter.pl index 35d8d3b..626904f 100755 --- a/filter/filter.pl +++ b/filter/filter.pl @@ -35,10 +35,10 @@ use strict; # where are we running the program from my $path = $0; $path =~ s/[^\/]+$//; -if ($path eq "") { - $path = "./"; +if ($path eq '') { + $path = './'; } -my $critWords = $path . "criticalword.dict"; +my $critWords = $path . 'criticalword.dict'; die "Usagee $0 <filename>.sentences" unless $ARGV[0] =~ /\.sentences$/; @@ -53,10 +53,10 @@ $badfilename =~ s/\.sentences$/\.badsent/; #print $badfilename; open (INPUTFILE, "<$ARGV[0]") or die ("Error: $ARGV[0] is not found."); -open (DICTIONARY, "<$critWords") or die ("Error: criticalword.dict is not found."); +open (DICTIONARY, "<$critWords") or die ('Error: criticalword.dict is not found.'); -open (GOODOUT, ">$goodfilename") || die ("Error"); -open (BADOUT, ">$badfilename") || die ("Error"); +open (GOODOUT, ">$goodfilename") || die ('Error'); +open (BADOUT, ">$badfilename") || die ('Error'); my @cwordlist=(); # read dictionary into list |