※ 引述《abliou (Art of Life)》之銘言：
: 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: 221.169.170.106