Как обработать результат system в perl скрипте?

Question

[Дмитрий Сергеев]

В перл скрипте есть вызов функции
system("/usr/sbin/ipset -A $table_name $ip");
иногда она возвращает
ipset v4.5: 194.186.2.46 is already in set autoban_31.

в это случае мне нужно выполнить

system("/usr/sbin/ipset -A $higher_table_name $ip");

Answer 1

[PooFF]

out = `/usr/sbin/ipset -A $table_name $ip`

Answer 2

[PooFF]

Парсер подвел

@out=`/usr/sbin/ipset -A $table_name $ip`

Comments

[Дмитрий Сергеев]

а как потом проверить пустая ли эта переменная?

if(out!='')
{
…
}

[Константин Власов]

Бэктики можно вызывать в скалярном контексте, а можно в контексте массива. В первом случае весь вывод будет возвращён в виде сплошного текста, во втором — разбит на строки.

# Так всё в одной строке:
$out = `/usr/sbin/ipset -A $table_name $ip`

# А так всё в виде массива строк:
@out = `/usr/sbin/ipset -A $table_name $ip`

Как анализировать каждый из этих вариантов — зависит уже от того, может ли писать ipset что-то, кроме указанной ошибки.

Answer 3

[Константин Власов]

В качестве возвращаемого значения system выдаёт код ошибки, сдвинутый на 8 бит влево. Если ipset в описанной ситуации возвращает какой-то специфический код, можно его вытащить и обработать. Если нет — тогда только парсить выходную строку, заменив system на бэктики, как предложил выше PooFF.

Answer 4

[Ilya_Drey]

В дополнение к тому, что написал PooFF могу порекомендовать вам проверять код возврата, на случай ошибки при выполнении скрипта, которая вам не известна (не знаете что парсить в выводе)…

Пример:

my $command = "/usr/sbin/ipset -A $table_name $ip";
my @result =`$command`

foreach my $line (@result)
{   
  if ($line =~ /already\sin\sset\sautoban_31/) {
    system("/usr/sbin/ipset -A $higher_table_name $ip");
  }

  die("Unknown error. Command  ".$command." return code: ".$?."") if $? -ne 0 ;
}

Comments

[Ilya_Drey]

ps При проверке строчке, так же лучше после систем break добавить, мало ли :)