[請益] Hash reference應用
Hi 各位前輩/先進,
小弟想用perl做log比較差異, 由於兩份log資料內容舉例如下:
Warning (00001): Can't analyze file - no such file exists
Warning (00100): warning at zzzzzzzzzzzzzzzzzz.v
Warning (00100): warning at abcdef_g1h2_ev5_dataflow.vow.v
Warning (00100): warning at aaaaaaaaaaaaa.v
...
...
...
兩份log都有2xxxx行, 尤其中間有些訊息需要bypass, 所以逐行比較會跑好超過10小時。
我想利用hash = {key, value}來做,變成為:
hash = {
00001, Warning (00001): Can't analyze file - no such file exists
00002, Warning (00002): ????????????????????????????????
...
...
00100, Warning (00100): warning at zzzzzzzzzzzzzzzzzz.v
...
...
}
如上述, 我比較的時候可以先抓key縮小範圍再比較, 這樣效率會提升。
但是如剛剛舉例的log內容, 同一個warning number, 其實有非常多項, 因為描述會不同。
所以單純的hash無法滿足我的應用, 因為一個warning number只對應一個value。
我想像是希望能做到如下:
hash = {
00001, Warning (00001): Can't analyze file - no such file exists
00002, Warning (00002): ????????????????????????????????
...
...
00100, Warning (00100): warning at zzzzzzzzzzzzzzzzzz.v
00100. Warning (00100): warning at abcdef_g1h2_ev5_dataflow.vow.v
00100, Warning (00100): warning at aaaaaaaaaaaaa.v
...
...
}
網路上查, 說要用reference才可以。但目前網路上資料有看沒有懂, 請問各位高手能
不能指點一下, code該怎麼寫, 謝謝~
現在程式碼大概如下:
%warnings_line_ori = ();
while(<>){
...
...
$warnings_line_ori{$warning_no} = $line;
...
...
}
--
The elevator to success is out of order. You'll have to use the stairs one
step at a time.
像搭電梯般快速成功是不切實際的。你必需沿著樓梯，一步一階的往上爬。
Joe Girard
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.137.246.134 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1587271714.A.928.html
Perl 近期熱門文章
PTT數位生活區 即時熱門文章
