new-words
changeset 6:d1851ee29a1a v0.1
minifix
author | Igor Chubin <igor@chub.in> |
---|---|
date | Wed Mar 10 10:38:27 2010 +0200 (2010-03-10) |
parents | 9345cc05fdd1 |
children | 57dc4ef40415 |
files | grep-sentences.pl |
line diff
1.1 --- a/grep-sentences.pl Tue Mar 09 11:57:55 2010 +0200 1.2 +++ b/grep-sentences.pl Wed Mar 10 10:38:27 2010 +0200 1.3 @@ -1,8 +1,8 @@ 1.4 #!/usr/bin/perl 1.5 1.6 1.7 -$page=$ARGV[0]; 1.8 -$regexp=$ARGV[1]; 1.9 +$regexp=$ARGV[0]; 1.10 +$page=$ARGV[1]; 1.11 #if (open(PAGE, "lynx -dump '$page'|")) { 1.12 if (open(PAGE, "$page")) { 1.13 local $/;