作者abliou (Art of Life)
看板perl
标题Re: [请益]新手请教一下
时间Tue Mar 6 23:48:10 2007
我也是新手....应该可以更短....
请高手赐教.......
==============================================================================
open file,"<session.txt";
while (<file>){
/(\d+\.\d+\.\d+\.\d+)/;
$hash{$1}++ ;
}
close file;
open file,">temp.txt";
print "$key = $value \n" while ($key,$value)=each %hash;
close file;
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.228.124.101
1F：推 softwind:请问 /\w+/; $hash{$1}++; 也可以吗？ 型态好像没有差... 03/07 09:52
2F：推 abliou:\w不是用在character吗? 03/07 13:15