Re^3: grep in line and print

in reply to Re^2: grep in line and print
in thread grep in line and print

No, I meant like this:

my @macall = qw(print @input);
foreach $line (@macall) {
   print "<$line>\n";
   if ($line =~ /C4:46:19:75:C1:55:\s+(\S+)/) {
      $id = $1;
   }
}
print "ID = $id";
return (0);
[download]

...roboticus

When your only tool is a hammer, all problems look like your thumb.

Comment on Re^3: grep in line and print Download Code

In Section Seekers of Perl Wisdom