Разбираю код скрипта, перл знаю только на уровне простых скриптов поэтому такая конструкция мне взрывает мозг:
Код:
foreach my $i ( keys %N ) { $CLUSERULEN{$kod} .= exists $CLUSERULEN{$kod} && $CLUSERULEN{$kod} ne "" ? " ".$N{$i} : $N{$i}; }
Особенно интересует то что внутри цикла,
Код:
$CLUSERULEN{$kod} .=
Это я так понимаю делает конкантенацию строки
Код:
$CLUSERULEN{$kod}
со строкой с правой стороны. Но с правой стороны логические операторы ). Объясните кто нить плиз
И еще,
вот это код по моему выполнится всего раз
Код:
my @N = split( / /, $CLUSERULEN{$kod} );
foreach my $i ( @N )
{
$err = `$ipfw delete $i`;
delete $USERULEN{$i};
}
Цикл тут это какая то задумка которую я не понял или он действительно не нужен и можно так ?
Код:
my @N = split( / /, $CLUSERULEN{$kod} );
$err = `$ipfw delete $N[0]`;
delete $USERULEN{$N[0]};
}
Еще хотелось бы знать как посмотреть реализацию manad на стороне биллинга для 5.2?