Perl简单的文件读写

最新推荐文章于 2025-01-14 07:34:16 发布

William_Dong

最新推荐文章于 2025-01-14 07:34:16 发布

阅读量708

点赞数

CC 4.0 BY-SA版权

分类专栏： Perl

本文链接：https://blog.youkuaiyun.com/dongweionly/article/details/24932451

Perl 专栏收录该内容

1 篇文章

订阅专栏

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");