Re: seek and process from there on

my $file = shift @ARGV;

if (open my $FH , $file) {
    my $start_pattern_found = 0;
    while (my $line = <$FH>) {
        if ($start_pattern_found and $line =~ m{^need\s+this}) {
            print "found: $line";
        }
        elsif ($line =~ m{^internal\s+name}) {
            $start_pattern_found++;
        }
    }
    close $FH;
}
else {
    die "failed to open '$file' ($!)\n";
}
[download]

Comment on Re: seek and process from there on Download Code

Replies are listed 'Best First'.
Re^2: seek and process from there on by blazar (Canon) on May 30, 2006 at 14:06 UTC
`my $file = shift @ARGV; if (open my $FH , $file) { my $start_pattern_found = 0; while (my $line = <$FH>) {` [download] It's a side note, but I can't understand why you do this. You just want to show the use of a flag, which is a good point. Since the example may very well stay minimal, why not using good old `<>` instead? In any case, using the range operator in scalar context may be much easier than maintaining a flag yourself: `while (<>) { chomp; next if 1 .. /^internal name/; print "Found pattern at line $.\n" if /^need this/; }` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: seek and process from there on
by blazar (Canon) on May 30, 2006 at 14:06 UTC

my $file = shift @ARGV; if (open my $FH , $file) { my $start_pattern_found = 0; while (my $line = <$FH>) {
[download]

It's a side note, but I can't understand why you do this. You just want to show the use of a flag, which is a good point. Since the example may very well stay minimal, why not using good old <> instead?

In any case, using the range operator in scalar context may be much easier than maintaining a flag yourself:

while (<>) {
    chomp;
    next if 1 .. /^internal name/;
    print "Found pattern at line $.\n" if /^need this/;
}
[download]

[reply]
[d/l]
[select]