Проблема с массивами в perl.

← →
abvgd (2006-03-15 10:05) [0]

Помогите новичку в perl!

Почему следуший код отказывается работать так как надо.

%item = ("recv"=>$1, "send"=>$2,"local"=>$3, "remote"=>$4, "state"=>$5, "count"=>0);
if ($item{"local"} =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/i){$item{"port"} = $5;}
if ($item{"remote"} =~ /([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/i){$item{"remote"} = "$1.$2.$3.$4";}
$ip{$item{"remote"}} = $item; <- вот это

потом пытаюсь использовать так :
print $ip{"66.111.35.189"}{"state"}; <- тут пустота выходит

← →
umbra © (2006-03-15 10:43) [1]

не совсем ясно, что за хэш %ip и что он содержит, но попробуйте заменить проблемную строку на следующую

$ip{$item}{"remote"} = $item;

и при разработке пишите в начале скрипта

use strict; use warnings;

С помощью этого можно избежать многих проблем

Проблема с массивами в perl. Найти похожие ветки