Скачать: CL | DM;

Проблема с массивами в 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;

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.031 c