Re: how to next line after the pattern in perl

Change:

while (<FF>) {
     next unless /XXXX/;
     $. += 1;  ### obviously this does not work ...
     print $_ ;

}
[download]

To:

while (<FF>) {
     next unless /XXXX/;
     print <FF>;
}
[download]

and it should work. (not tested)

Update: it does not work, prints way too much, see moritz and kennethk below.

Comment on Re: how to next line after the pattern in perl Select or Download Code

Replies are listed 'Best First'.
Re^2: how to next line after the pattern in perl by moritz (Cardinal) on Jun 09, 2010 at 19:14 UTC
`print <FF>;` executes the `<...>` aka readline in list context, and thus prints all the remaining lines in the file. Adding a scalar after the print should solve that problem. Perl 6 - links to (nearly) everything that is Perl 6.	[reply] [d/l] [select]
Re^2: how to next line after the pattern in perl by ww (Archbishop) on Jun 09, 2010 at 19:19 UTC
Not quite, lidden, as yours (modified solely to use `__DATA__` rather than a file, prints the matching string (not sought by OP), as well as the line thereafter. `perl 843893.pl XX XXXX 3333 ii XXXX asdfddd` [download] Testing pays off. Update: See moritz' diagnosis and Rx, above.	[reply] [d/l] [select]