Хочется разобрать вывод команды iptables -xvL. Вот рпимер вывода 232983 31738587 chain_name all -- any any 192.168.0.0/25 anywhere'; Нужно оставить второе число и название цыпочки. #!/usr/bin/perl -w open(FF, "iptables -vL|") or die "Unable to open "; while($tmp = <FF>) { $tmp =~ /^\d+ (\d+) (\w+)/; print $1,$2; } close(FF); Такая программа не работает и пишет Use of uninitialized value in print at. Но ниже приведенная программа отлично работает и делает то же самое.
$ipt = '232983 31738587 name all -- any any'; $ipt =~ /^\d+ (\d+) (\w+)/; print $1\n$2; Результат: 31738587 name Как заставить читать строчки и правильно их разбирать в $1,$2;
