I have a script with these three lines and it works $line =~ s/^\s*//; # Remove leading spaces next if ($line =~ /^#/); # Skip line if it starts with # next if ($line =~ /^\s*$/); # Ship blank lines
I can replace lines 1 and 2 above with next if($line =~ /\s+|#/); However my attempts to replace all three lines next if($line =~ /\s+|#.*$/); gives a warning Use of uninitialized value in concatenation (.) or string and produces return vale? of 1 for blank lines. How can I avoid these warnings with the regexp TIA Owen -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
