Perl学习笔记之文件操作
更新时间：2015年06月15日 09:40:49 投稿：junjie
这篇文章主要介绍了Perl学习笔记之文件操作,本文分别给出了打开文件、读取文件、写入文件代码实例,需要的朋友可以参考下
（福利推荐：【腾讯云】服务器最新限时优惠活动，云服务器1核2G仅99元/年、2核4G仅768元/3年，立即抢购>>>：9i0i.cn/qcloud）
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
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;
相关文章
这篇文章主要介绍了Perl命令行应用程序详解,本文大量讲解了perl的命令行参数和一句话实现的一些功能,需要的朋友可以参考下2015-02-02
Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享
这篇文章主要介绍了Perl中使用dig和nali判断DNS解析地址归属地是否一致脚本分享,本文同时介绍了一个使用纯真IP库实现的Perl查询工具,需要的朋友可以参考下2014-09-09
perl常量、多维数组及变量的初始化的例子，供大家学习参考2013-02-02
两段Perl代码(数组应用与say用法)，供大家学习参考2013-02-02
perl的logwrapper可以对任何的函数将标准输出和错误输出重定向到对应的log文件2013-02-02
这篇文章主要介绍了python urllib中的编码处理示例,本文直接给出几个处理实例,需要的朋友可以参考下2015-04-04
Perl 最重要的特性是Perl内部集成了正则表达式的功能，以及巨大的第三方代码库CPAN。这篇文章主要介绍了Windows10下安装配置 perl 环境的详细教程,需要的朋友可以参考下2020-12-12
本文为大家介绍Perl中处理时间的几个函数，供大家学习参考2013-02-02
使有perl搜索电脑上的重复文件并删除，需要的朋友可以参考下2013-02-02
这篇文章主要介绍了perl AnyEvent简单介绍和入门知识,AnyEvent 是一个性能非常好的基于事件驱动的框架,需要的朋友可以参考下2014-09-09
最新评论