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

flw

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

}

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

提取公因子 chomp，可以让程序更加简化。