我要评论perl对文件的操作，跟其它的语言类似，无非也就是打开，读与写的操作。
1. 打开文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt'; # 或者用绝对路径,如: c:/perl/learn/test.txt
if(open(myfile,$filename)) # myfile是一个标志
{
printf "can open this file:%s!", $filename;
close(myfile);
}
else{
print "can't open this file!";
}
2. 读取文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(myfile,$filename))
{
my @myfile = <myfile>; #如果要读取多行，用此方法，如果只读取一行为:$myfile = <>;
my $count = 0; #要读取的行数，初始值为0
printf "i have opened this file: %s\n", $filename;
while($count < @myfile){ #遍历
print ("$myfile[$count]\n"); #注意此种写法.
$count++;
}
close(myfile);
}
else{
print "i can't open this file!";
}
exit;
3. 写入文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(myfile,">>".$filename)) #此种写发，添加不删除
{ #此种写法，重写文件内容 myfile,">".$filename
print myfile "write file appending test\n";
close(myfile);
}
else{
print "i can't open this file!";
}
exit;
发表评论