【perl】開啟多個檔案——檔案控制代碼的使用

經常要講一個檔案分割成許多小檔案，如果每次判斷後要進行“開啟檔案控制代碼—》寫入資料—》關閉檔案控制代碼”，這樣重複的開啟、關閉檔案控制代碼是很耗時間的。

進程經常會處於“S”睡眠狀態。

如果同時開啟多個檔案，再判斷要寫入哪個檔案，則可以節省CPU等待的時間。

for my $i (0..99)

{

  $o="OUT".$i;

  open $o,">test.$i" or die $!;

  print $o "test";

  close $o;

}

 

linux允許同時開啟檔案數量：

/proc/sys/fs/file-max

 

附：

如何修改linux核心預設檔案描述符最大同時開啟數量?

原始碼檔案已經找到 file-max <kernel-path>;/fs/file.c inode-nr <kernel-path>;/fs/innode.c 如果系統不是精簡的核心可以用：以下方法修改 ulimit -n  <可以同時開啟的檔案數>;  設定使用者可以同時開啟的最大檔案數（max open files）      # echo "65536"  >; /proc/sys/fs/file-max  # 適用於 2.2 和 2.4 版核心      # echo "131072" >; /proc/sys/fs/inode-max # 僅適用於 2.2 版核心 或將下列內容放入 /etc/sysctl.conf，做永久性的更改：