On 2012-11-13 13:12, Shlomi Fish wrote:
while (my $line = <>)
{
chomp($line);
if (my ($dev_num) = $line =~ /\AdisplayDevNum=(.*)\z/)
In Perl5, '\z' is not needed here, because '.' matches non-newlines. (also the chomp is not needed here, looks like cargo cult to me) -- Ruud -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
