open FILE_1, "> > file1.txt ";
open FILE_2, "> > file2.txt ";
open FILE_3, "> > file3.txt ";
print FILE_1 "OK/n ";
print FILE_2 "NO/n ";
print FILE_3 "YES/n ";
close FILE_1;
close FILE_2;
close FILE_3;
perl 写多个文件
最新推荐文章于 2021-08-11 01:22:10 发布