在Perl中可以用open或者sysopen函數來打開文件進行操作，這兩個函數都需要通過一個文件句柄（即文件指針）來對文件進行讀寫定位等操作。 下面以open函數為例： 1：讀：open(文件句柄，"<文件名")/open(文件句柄，"文件名")，前提文件必須已經存在，否則會返回0，出錯信息在$!中。 2：寫：open(文件句柄，">文件名")，文件如果不存在，那么創建之，如果存在，內容被清空，長度截為0，$!中有出錯信息。 3：追加：open(文件句柄,">>文件名")，基本同寫，但有一點，文件中的內容不會被清空，新的內容會追加到原文后面。 4：讀寫：open(文件句柄,"+<文件名")，通過“+<”模式，你可以既可以讀文件，又可以寫文件。你可以通過tell() 函數在文件內部移動，通過seek()函數進行定位。如果文件不存在，就會被創建。如果文件已經存在，原來的數據不會被清除。 open(文件句柄,"+>文件名")，通過“+》”模式，可以同時讀寫文件，但與上面不同的是，它是破懷性寫，會清除原來的內容 “` #!/usr/bin/env perl

$full_list = “/root/workspace/kaldi/kaldi-5.0/egs/yesno/s5/data/local/waves_all.list”; $test_list = “/root/workspace/kaldi/kaldi-5.0/egs/yesno/s5/data/local/waves.test”; $train_list = “/root/workspace/kaldi/kaldi-5.0/egs/yesno/s5/data/local/waves.train”;

open FL, $full_list; $nol = 0; #PRint < FL>; while ($l = < FL>)#讀取文件 { $nol++; print $nol,”,”,$l,”/n”; } close FL;

$i = 0; open FL, $full_list; open TESTLIST, “>$test_list”; open TRAINLIST, “>$train_list”; while ($l = < FL>) { chomp($l); $i++; if ($i <= $nol/2 ) { print TRAINLIST “$l/n”; } else { print TESTLIST “$l/n”; } } “`