[問題] 如何改善大文件的讀寫效能

看板Perl作者時間4月前 (2024/07/12 20:22), 4月前編輯推噓2(2013)
留言15則, 3人參與, 3月前最新討論串1/1
餓死抬頭 我在工作上撰寫一些程式給同仁使用 主要是以perl做文件內容的更改或比較 一開始都還沒問題,但隨著檔案愈來愈大,效能就是一個問題了 檔案目前大約3G-9G不等,我寫法是從IO做讀寫 同仁會輸入一串字串,然後要與文件內容作比較 輸入: $input = "AX.BC.\\SR\\d"; $source = "Banana"; $tar = "APPLE"; 這似這樣 我的程式碼大約這樣寫 $line=1; open fid_wr,">file2"; open fid_rd,"<file1"; while(<fid_rd>){ $tmp = $_; if($tmp =~ /$input/){ printf("Matched in line %d\n",$line); $tmp =~ s/$source/$tar; } printf(fid_wr "$tmp"); $line++; } close fid_rd; close fid_wr; 目前搜尋一個大約3G大小的文件就要耗費2分鐘 如果同仁搜尋更多,那就要更久了 因此在想有沒有方法可以讓其更快的做完? 目前我想到先把所有的資料load到memory,然後走memory來做比較 可以節省IO的時間,不過memory只有1.5T,擔心多人使用就卡死了 有試過先push到array,再一起寫入硬碟,但更慢 所以還是邊讀邊寫才是最快的 我們是使用CentOS 7,硬碟是一般傳統硬碟 因為是公司資源,所以硬碟沒得動,系統沒得動,一切就是手邊現有資源 希望有知道怎麼解決的人可以幫忙一下,或是提供我關鍵字搜尋也好 我可以自己找資料沒問題的,因為我在網路上有先找過 但如果同時要用正規表示式來支援萬用字元,又要兼顧修改 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 150.116.208.71 (臺灣) ※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1720786959.A.2B7.html

07/13 20:25, 4月前 , 1F
如果要純用perl 讀整個檔作處理的話 可能用File::Map 對記憶
07/13 20:25, 1F

07/13 20:26, 4月前 , 2F
體的管理會比較有效一點 後續再看要multi-thread, -procces
07/13 20:26, 2F

07/13 20:28, 4月前 , 3F
用外部工具的話 看人弄過印象中是 parallel(1) 搭 grep(1)
07/13 20:28, 3F

07/13 20:30, 4月前 , 4F
現有工具中 ag, ripgrep 處理大檔也蠻快的
07/13 20:30, 4F
是有思考過走記憶體流程,但就擔心同仁一起用,反而會拉高記憶體的使用量

07/14 08:57, 4月前 , 5F
將printf("Matched.. 先關掉
07/14 08:57, 5F

07/14 08:59, 4月前 , 6F
結果輸出檔案拿掉,然後用>>將結果重新導向到檔案
07/14 08:59, 6F

07/14 09:01, 4月前 , 7F
如果可以的話用sed
07/14 09:01, 7F

07/14 09:02, 4月前 , 8F
sed -n '/AX.BC.\sR[0-9]/ s/Banana/APPLE/g p' file2
07/14 09:02, 8F

07/14 09:08, 4月前 , 9F
sed -n '/AX.BC.\sR[0-9]/ s/Banana/APPLE/g p' file1
07/14 09:08, 9F

07/14 09:09, 4月前 , 10F
接上 >> file2
07/14 09:09, 10F

07/14 17:17, 4月前 , 11F
perl -ne '/AX.BC.\sR\d/ && s/Banana/Apple/ && print'
07/14 17:17, 11F

07/14 17:17, 4月前 , 12F
接上 file1 > file2
07/14 17:17, 12F
所以建議是捨棄用perl做這件事,改用sed是嗎?目前只會簡單的awk,但sed不會,看來得學 習了...... ※ 編輯: jacky1989 (101.10.6.175 臺灣), 07/17/2024 16:19:23

07/17 19:15, 4月前 , 13F
就這個例子會用sed或perl單行來執行,或許你試試2種效率
07/17 19:15, 13F
好的,我來試試,感謝分享 ※ 編輯: jacky1989 (150.116.208.71 臺灣), 07/17/2024 22:28:04

07/18 06:40, 4月前 , 14F
另外,if(/$input/o)加上o參數還可以爭取一些效率
07/18 06:40, 14F

08/15 08:17, 3月前 , 15F
regular expression純拿來搜尋真的是overkill
08/15 08:17, 15F
文章代碼(AID): #1caI0FAt (Perl)
文章代碼(AID): #1caI0FAt (Perl)