Re: [請益]新手請教一下
我也是新手....應該可以更短....
請高手賜教.......
==============================================================================
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
推
03/07 09:52, , 1F
03/07 09:52, 1F
推
03/07 13:15, , 2F
03/07 13:15, 2F
討論串 (同標題文章)
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
