溫馨提示×
您好，登錄后才能下訂單哦！
點擊 登錄注冊 即表示同意《億速云用戶服務條款》
您好，登錄后才能下訂單哦！
這篇文章主要介紹perl中如何批量創建不同的文件，文中介紹的非常詳細，具有一定的參考價值，感興趣的小伙伴們一定要看完！
perl
use FileHandle;
use PerlIO::gzip;
if ($ARGV[4]=~/gz$/){
open IN, "<:gzip", "$ARGV[0]" or die "$! actions";
}else{
open IN, "$ARGV[0]" or die "$!";
}
#批量創建文件，把創建的文件句柄放到，hash中存儲；
my%fout=();
for my$i (1..10){
my $f=FileHandle->new("> ${i}_links.txt");
$fout{$i}=$f;
}
#根據不同的條件輸出到不同的文件當中
while(<IN>){
my@tmp=split(/\t/);
print $fout{$tmp[0]} $_;
}以上是“perl中如何批量創建不同的文件”這篇文章的所有內容，感謝各位的閱讀！希望分享的內容對大家有幫助，更多相關知識，歡迎關注億速云行業資訊頻道！
免責聲明：本站發布的內容（圖片、視頻和文字）以原創、轉載和分享為主，文章觀點不代表本網站立場，如果涉及侵權請聯系站長郵箱：is@yisu.com進行舉報，并提供相關證據，一經查實，將立刻刪除涉嫌侵權內容。
