And because I can't help this either... ( not simpler, just uglier... or is it? )
Enjoy!my ($START, $STOP) = qw(START STOP); print( do {$_ = /$START/../$STOP/; $_ && $_ !~ /^1$|E/} ? "PRINTING\n" + : "not printing\n") while <DATA>;
-- Casey
In reply to RE: RE: RE: RE: RE: Re: something about improving code...
by cwest
in thread something about improving code...
by Buckaroo Buddha
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |