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

[Alex Emergy]

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';



25.04.2011 15:03, Aleksander Gorohovski пишет:

On Mon, 25 Apr 2011 13:57:00 +0300, Alex Emergy wrote:

Знаю что тут есть знатоки перла.

Функция:

sub ip_sub_menu {
print Dumper(@_);
exit;
}

Вывод:

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

ОК! Немного изменим:
sub ip_sub_menu {
foreach my $ip (@_) {
print Dumper($ip) . "\n";
exit;
}
}

Вывод:

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


О_о почему? оно же должно выдать только один элемент массива:

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

--
С уважением,
Alex Emergy

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