- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
- 15
- 16
sub check_interface
{
my $int_input = shift;
my $all_intr_local = [];
$_ = qx[ip a];
s[\d{1,}:[ ]{1,}([^ ]{1,}):.*]<unshift(@$all_intr_local, $1)>ge;
if ( ! grep( { /^$config_params{$int_input}$/ } @$all_intr_local ))
{
$warning->debug("Error: interface $int_input can't found local!!!");
exit 1;
}
else
{
$info->debug("Load param $int_input = $config_params{$int_input}.");
}
}
warning? debug? error? can't found?
весьма читабельный код 😉
Не найден, но есть.)
Хотя да, она реально доставляет.