"Jeff Peng" schreef:
> next if /^\s*#|^\s*;/;
next if /^[[:blank:]]*[#;]/ ;
> next if /^\s*$/;
next if /^[[:blank:]]*$/ ;
> my @array = split/\s+/;
my @array = split ;
Simpler would be to remove any blanks from the start end end of the line
first:
s/^[[:blank:]]+//, s/\s+$// ; # chomps as well
And please don't quote tails'n'sigs.
--
Affijn, Ruud
"Gewoon is een tijger."
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
