> for(my $i=0; $i<22; $i++){<WORKFLOW>}; #This will put
> you at row 23.----
> $_=<WORKFLOW>;
> my $line=$_;
> my $nextline=$line++;
> if ((substr($line, 42, 7) eq "Running") ||
> (substr($nextline, 42, 7)eq
> "Running"))
while (<WORKFLOW>) {
# Skip lines upto line 23
next if $.<22;
# Process for line 23 & 24
if (substr ($line, 42, 7) eq "Running") {
...
}
}
# Make sure we definately got enough lines
unless ($.=24) { die "We were sold short!" }
__________________________________________________
Do You Yahoo!?
Everything you'll ever need on one web page
from News and Sport to Email and Music Charts
http://uk.my.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
