Perl学习笔记之文件操作
作者:OpenWorld
时间:2026-06-29
浏览:0
Perl文件操作的核心是打开、读取与写入。使用open函数获取文件句柄,配合if判断成功状态,操作后需close关闭。读取时可用尖括号将内容存入数组并遍历。写入时通过print输出,模式“>>”表示追加,“>”表示覆盖,需手动添加换行符。
Perl处理文件的基本思路,和多数编程语言大同小异——核心无非就是打开、读取和写入这三件事。虽然语法上有些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!";
}
打开文件时,open函数会返回一个文件句柄(这里命名为MYFILE),通常配合if判断来检查是否成功。记得操作完之后要close关闭句柄——这是很多新手容易忽略的地方,但养成习惯就好。
2. 读取文件
#! c:/perl/bin/perl -w
use utf8;
use strict;
use warnings;
my $filename = 'test.txt';
if(open(MYFILE,$filename))
{
my @myfile = ; #如果要读取多行,用此方法,如果只读取一行为:$myfile = <>;
my $count = 0; #要读取的行数,初始值为0
printf "I ha ve opened this file: %sn", $filename;
while($count < @myfile){ #遍历
print ("$myfile[$count]n"); #注意此种写法.
$count++;
}
close(MYFILE);
}
else{
print "I can't open this file!";
}
exit;
读取时,如果想把整个文件内容一次性装进数组,就用这种尖括号操作符。然后用while循环遍历每一行,按索引输出。当然,如果文件很大,这样全部加载到内存可能不太明智——但这是最直白的写法,适合小文件快速处理。
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;
写入时,模式标志是关键:>>表示追加(不覆盖原有内容),>表示覆盖重写。这里用print MYFILE把字符串输出到文件句柄,用法很直接。注意换行符\n要自己加上,Perl不会自动添加。
这三段代码基本覆盖了Perl文件操作的核心场景。实际项目中还需要考虑编码、错误处理、autodie等更高级的用法,但作为入门笔记,把打开、读取、写入这三个动作先跑通,后续再深入就会轻松很多。
作者最新文章
三星 Galaxy A08 渲染图曝光:Helio G99 芯片与 6000mAh 电池配置解析
2026-09-08 17:14
OPPO Find X10 Pro Max 影像规格详解:三颗2亿像素镜头与全焦段8K视频能力
2026-09-08 16:41
PDF转HTML在线转换器怎么选?转换后网页排版怎么查?
2026-09-04 11:02
AE教程书籍挑选指南:零基础、动效与合成方向实战标准
2026-09-02 13:31
教程书籍使用SAI软件Logo要单独授权吗:商标引用与出版合规要点
2026-09-02 11:50
上一篇:
Perl初学笔记之Hello World
热门文章
更多
精品专题
更多
Mac软件
更多
WINDOWS
更多


































