Re: Terminating Read Of Input

See last

while (my $line = <$fh>) {
    chomp($line);
    last if ($line =~ /TOTAL COMMAND SUMMARY/);
    my ($uid, $login, $cpupr, $cpunpr, @data) = (split("\t",$line));
}
[download]

(Update: execute last prior to split.)

Perl 6 in German

Comment on Re: Terminating Read Of Input Download Code

Replies are listed 'Best First'.
Re^2: Terminating Read Of Input by tirwhan (Abbot) on Aug 14, 2007 at 13:50 UTC
And to make your intention slightly more obvious you can label the loop: `READ_TILL_TOTAL: while (my $line = <$fh>) { chomp($line); last READ_TILL_TOTAL if ($line =~ /TOTAL COMMAND SUMMARY/); my ($uid, $login, $cpupr, $cpunpr, @data) = (split("\t",$line)); }` [download] This is especially helpful if you've got other loops around this block, for example a loop that opens a list of files and reads them all in turn. All dogma is stupid.	[reply] [d/l]
Re^2: Terminating Read Of Input by SuicideJunkie (Vicar) on Aug 14, 2007 at 14:56 UTC
Since this is a while loop, why not just put the check in the while condition? `while( my $line = <$fh> and $line !~ /TOTAL COMMAND SUMMARY/) { ... }` [download]	[reply] [d/l]