求助：一则小日志分析，附不完整代码（一类问题）

windows.li

[ABC1]
jack
lily
[ABC2]
john
susan
suse

如何输出这种结构：

[ABC1]=>jack lily
[ABC2]=>john susan suse

我的思路如下：

while (<DATA>){
   $k = $_ if /\[ABC\d+\]/;
   if (/(^\d+)/){
      $v = $1;
      push @{$hash{$k}}, $v;
   }
.............#在这里，不会写了..如何设置标志位还是...？
print "$k=>@{$hash{$k}}\n";
}

__END__
[ABC1]
jack
lily#如果这后面有个空白哦行的话，可以遇到空白行（标志位）就停下来print。当然可以自己事先通篇设置空白行，不过太蠢吧
[ABC2]
john
susan
suse

我首先先到的就是“数组的哈希”结构，所以用了这种方法(不可否认，还有其他方法，设置$/，再用正则，我也测试OK了)。
诸位，帮我看看，按数组的哈希这种结构，该如何写下去，多谢大家！

[ 本帖最后由 windows.li 于 2009-3-20 09:18 编辑 ]

wxlfh

去看看Config::IniFiles模块，可能有帮助。

windows.li

应该不算复杂吧，我走进死胡同了，不用模块，想了解下此类问题是个啥解决思路。

MMMIX

原帖由 windows.li 于 2009-3-20 09:42 发表
应该不算复杂吧，我走进死胡同了，不用模块，想了解下此类问题是个啥解决思路。

你现在碰到啥问题了？不会解析 ini 文件？每读进来一行就判断下是不是 [label]，若是，说明前一个 label 的内容已经完了；若不是，就继续往前一个 label 里面保存数据。

小公猫

这个很简单吧？不需要模块
正则就OK了~
每次匹配[]

MMMIX

原帖由 小公猫 于 2009-3-20 12:06 发表
这个很简单吧？不需要模块
正则就OK了~
每次匹配[]

用 regexp 也可以，如果文件不大的话整个读进来，然后匹配。

shijiang1130

while (<DATA>){    if(/^\[/){    chomp;    print "\n".$_."=>";    }    else{    chomp;    print " $_";    } } __END__ [ABC1] jack lily [ABC2] john susan suse

windows.li

的确有很多方法解决。
但是按我顶楼的思路，是否可以继续写下去？

逝去的华丽

7楼的实现方法最直接~~~~~~~顶。

yzhkpli

原帖由 shijiang1130 于 2009-3-20 13:18 发表
while (){
   if(/^\[/){
   chomp;
   print "\n".$_."=>";
   }
   else{
   chomp;
   print " $_";
   }

}

__END__
[ABC1]
jack
lily
[ABC2]
john
susan
suse

我用了之后，报告：

./xxxx testdata090324aa.datab
Name "main:ATA" used only once: possible typo at ./xxxx line 3.
readline() on unopened filehandle DATA at ./xxxx line 3.


求问这个是怎么回事？？？