求助..

duan101101

想要把如下文件中很多的日志信息转化成hash
describe=ICMP redirect host
priority=2
time=03/07-22:20:56
srcip=172.16.114.50
srcport=80
desip=172.16.112.50
desport=43703
describe=ICMP redirect host
priority=2
time=03/07-22:20:56
srcip=172.16.114.50
srcport=1965
desip=172.16.115.20
desport=53

my %hash=(
    {  describe => ICMP redirect host,
        priority => 2，
        time=>03/07-22:20:56
        srcip=>172.16.114.50
        srcport=>80
        desip=>172.16.112.50
        desport=>43703
         
  },
{  describe => ICMP redirect host,
        priority => 2，
        time=>03/07-22:20:56
        srcip=>172.16.114.50
        srcport=>80
        desip=>172.16.112.50
        desport=>43703
         
  }........
);应该怎么循环处理啊，先谢谢大家了。

DQP

你想要的是个元素为hash ref 的数组吧

ulmer

Hi,
put hash (ref.) in an array:

use strict;
use Data::Dumper;
my @records = ();
my $flag;
my $cnt = 0;
while (<DATA>) {
    chomp;
    if (/^describe=/) {
        $flag = 0;
        $cnt++;
    } else {
        $flag = 1;
    }

    if ($flag == 1) {
        my ($name, $value) = split /=/;
        $records[$cnt]->{$name}=$value;
    }
}
print Dumper \@records;

__DATA__
describe=ICMP redirect host
priority=2
time=03/07-22:20:56
srcip=172.16.114.50
srcport=80
desip=172.16.112.50
desport=43703
describe=ICMP redirect host
priority=2
time=03/07-22:20:56
srcip=172.16.114.50
srcport=1965
desip=172.16.115.20
desport=53

[ 本帖最后由 ulmer 于 2009-3-9 18:10 编辑 ]

wxlfh

需求描述不明。每个Hash怎么来分割，是固定行数么？

[ 本帖最后由 wxlfh 于 2009-3-9 21:06 编辑 ]