求助：一則小日志分析，附不完整代碼（一類問(wèn)題）

windows.li

[ABC1]
jack
lily
[ABC2]
john
susan
suse

如何輸出這種結(jié)構(gòu)：

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

我的思路如下：

while (<DATA>){
   $k = $_ if /\[ABC\d+\]/;
   if (/(^\d+)/){
      $v = $1;
      push @{$hash{$k}}, $v;
   }
.............#在這里，不會(huì)寫了..如何設(shè)置標(biāo)志位還是...？
print "$k=>@{$hash{$k}}\n";
}

__END__
[ABC1]
jack
lily#如果這后面有個(gè)空白哦行的話，可以遇到空白行（標(biāo)志位）就停下來(lái)print。當(dāng)然可以自己事先通篇設(shè)置空白行，不過(guò)太蠢吧
[ABC2]
john
susan
suse

我首先先到的就是“數(shù)組的哈希”結(jié)構(gòu)，所以用了這種方法(不可否認(rèn)，還有其他方法，設(shè)置$/，再用正則，我也測(cè)試OK了)。
諸位，幫我看看，按數(shù)組的哈希這種結(jié)構(gòu)，該如何寫下去，多謝大家！

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

wxlfh

去看看Config::IniFiles模塊，可能有幫助。

windows.li

應(yīng)該不算復(fù)雜吧，我走進(jìn)死胡同了，不用模塊，想了解下此類問(wèn)題是個(gè)啥解決思路。

MMMIX

原帖由 windows.li 于 2009-3-20 09:42 發(fā)表
應(yīng)該不算復(fù)雜吧，我走進(jìn)死胡同了，不用模塊，想了解下此類問(wèn)題是個(gè)啥解決思路。

你現(xiàn)在碰到啥問(wèn)題了？不會(huì)解析 ini 文件？每讀進(jìn)來(lái)一行就判斷下是不是 [label]，若是，說(shuō)明前一個(gè) label 的內(nèi)容已經(jīng)完了；若不是，就繼續(xù)往前一個(gè) label 里面保存數(shù)據(jù)。

小公貓

這個(gè)很簡(jiǎn)單吧？不需要模塊
正則就OK了~
每次匹配[]

MMMIX

原帖由 小公貓 于 2009-3-20 12:06 發(fā)表
這個(gè)很簡(jiǎn)單吧？不需要模塊
正則就OK了~
每次匹配[]

用 regexp 也可以，如果文件不大的話整個(gè)讀進(jìn)來(lái)，然后匹配。

shijiang1130

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

windows.li

的確有很多方法解決。
但是按我頂樓的思路，是否可以繼續(xù)寫下去？

逝去的華麗

7樓的實(shí)現(xiàn)方法最直接~~~~~~~頂。

yzhkpli

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

}

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

我用了之后，報(bào)告：

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


求問(wèn)這個(gè)是怎么回事？？？