Re: Помогите пожалуйста с perl

[Aleksander Gorohovski]

On Mon, 25 Apr 2011 14:08:32 +0300, Alex Emergy wrote:

sub ip_sub_menu {
     foreach my $ip ($_[0]) {
         print Dumper($ip) . "\n";
     }
     exit;
}

Вывод:

$VAR1 = [
           '192.168.11.5',
           '192.168.70.240',
           '212.248.72.98'
         ];

sub ip_sub_menu {
     foreach my $ip ($_[0][0]) {
         print Dumper($ip) . "\n";
     }
     exit;
}

Вывод:
$VAR1 = '192.168.11.5';

Что и требовалось доказать.

У Вас @_ содержит один элемент -> на массив.

--
ubuntu-ru mailing list
ubuntu-ru@lists.ubuntu.com
https://lists.ubuntu.com/mailman/listinfo/ubuntu-ru