| changeset 3 | 8b87ea768cb8 |
| parent 2 | a600c1a596f7 |
| child 6 | 705136d2022f |
| 2:a600c1a596f7 | 3:8b87ea768cb8 |
|---|---|
18 |
18 |
19 my $expression = shift @ARGV; |
19 my $expression = shift @ARGV; |
20 my $line; |
20 my $line; |
21 my $skipping = 1; |
21 my $skipping = 1; |
22 |
22 |
23 @ARGV = map {glob} @ARGV; |
|
24 |
|
23 while ($line =<>) |
25 while ($line =<>) |
24 { |
26 { |
25 if (substr($line,0,9) eq "</recipe>") |
27 if (substr($line,0,9) eq "</recipe>") |
26 { |
28 { |
27 print $line if ($skipping == 0); |
29 print $line if ($skipping == 0); |