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: %sn", $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 Testn";
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;