Perl简单的文件读写

概述use strict;use warnings; my $filename = 'C:\Users\William\Desktop\data.txt';open(DONG,$filename) or die "Could not open file '$filename' $!"; my @line=<DONG>;close DONG; #while (my $row =

use strict;use warnings; my $filename = 'C:\Users\William\Desktop\data.txt';open(DONG,$filename)  or dIE "Could not open file '$filename' $!"; my @line=<DONG>;close DONG; #while (my $row = <DONG>) {#  chomp $row;#  print "$row\n";#}my $out_filename = 'C:\Users\William\Desktop\data_out.txt'#判断输出文件是否存在if (-e $out_filename) {    dIE ("Output file outfile already exists.\n");}open(OUTfile,">$out_filename");print OUTfile ("@line\n");

总结

以上是内存溢出为你收集整理的Perl简单的文件读写全部内容，希望文章能够帮你解决Perl简单的文件读写所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。