請問一下關於file to string的操作

afukada

我現在手邊有一個大約3G左右的大檔

想使用下面的方法來操作

1. open(input,"fileName") or die $!;
   
2. $fileContent=do{local $/;<input>};
   
3. close(input);

复制代码

一次將檔案讀進memory中

然後再進行處理

但是我發現不管是進行字串比對(=~m//)、substr、index等等操作都沒有效

這些操作在檔案比較小的時候是可行的

想請問一下這種方法是不是會受限於檔案的大小

謝謝

stanley_tam

台湾银？一次读3G额，你内存多大，能读成功？

zhlong8

什么叫没有效果？物理内存过小导致操作慢的无法进行还是 bug 了？

5.20 修复了一个bug你看是不是符合你的情况

Fixed a small number of regexp constructions that could either fail to match or crash perl when the string being matched against was allocated above the 2GB line on 32-bit systems. [RT #118175]

afukada

回复 2# stanley_tam


這麼大的檔案當然是用server去讀取的阿{:3_203:}

server有128G的記憶體

之前就有試過類似的方法

不過那時候檔案比較小

所以才會好奇是不是因為檔案太大的關係

afukada

回复 3# zhlong8


抱歉沒有說清楚

將檔案讀進memory之後

使用substr輸出會是空的

index會輸出負很大的數值

=~m//會找不到pattern(確定pattern是存在的)

但是使用length()可以輸出string的正確長度

---------------------------------------------------
server有128G的memory

所以理論上不會發生memory不夠的情形

不過我剛剛看了一下

有可能是其他使用者也佔用了memory

所以實際上的memory也許是不夠的

我再找找看問題好了

謝謝

zhlong8

回复 5# afukada


    按文档 index 返回负数不是-1 就是bug了。可能是返回的值是有符号的32位整数又大于2G变成负数了，升级成新的64位perl试试