On 02/09/2013 03:59 PM, John W. Krahn wrote:
Let's re-factor that down to its essence:
while ( <DATA> ) {
print if /\|68\|/;
print "$1\t$2\t$3\n" if /(\|\d)\|(\d+)\|(\d+)/;
}
Now we need to add something that starts at |68| and stops at #END:
while ( <DATA> ) {
if ( /\|68\|/ .. /^#END/ ) {
print if /\|68\|/;
print "$1\t$2\t$3\n" if /(\|\d)\|(\d+)\|(\d+)/;
}
}
there is a great feature with the .. flip/flop op that isn't well known.
it returns not just a boolean state but a count of where it is in the
range. so you can use that value to handle the first line differently
and not need to copy the regex which can lead to a bug if it changes and
you forget to edit both copies:
if ( my $range = /\|68\|/ .. /^#END/ ) {
print if $range == 1 ;
the last line in the range gets a number with E0 appended so it is the
same value but you can check for the /E/ and do something there:
print "DONE\n" if $range =~ /E/ ;
uri
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
