привет. помогите
вот небольшая прога для таблицы соответствия ip/mac адресов.
my @lines = `cat test.txt`;
foreach my $line (@lines) { if ($line =~/\d+\.\d+\.\d+\.\d+\s+[0-9A-Fa-f]{2}:[0-9A-Fa-f]{2}:[0-9A-Fa-f]{2}:[0-9A-Fa-f] {2}:[0-9A-Fa-f]{2}:[0-9A-Fa-f]{2}/) { print "\$line is passed"; } }
как сделать регулярное выражение покороче????
