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: [email protected] For additional commands, e-mail: [email protected] http://learn.perl.org/
