Perl学习笔记之文件操作
更新时间：2015年06月15日 09:40:49 投稿：junjie
这篇文章主要介绍了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!";
}
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;
相关文章
要求直接跳过第一行，然后读取后面的内容，以下代码来自网络，感谢原作者的辛苦劳动，顺祝新年快乐2013-02-02
perl pop push shift unshift实例介绍
perl的pop跟push操作数组的最右边，shift跟unshift操作数组的最左边2013-02-02
领导有任务,给一批IP列表,ping每一台机器,如果没有响应就发邮件通知,通知的邮件需要分开,不能通知一个列表,得一封一封的通知2013-02-02
perl 指定长度并生成一个随机的DNA序列的代码，有需要的朋友可以参考下2013-03-03
这篇文章主要介绍了Perl实现遍历目录例子,本文示例运行在Windows系统下,而且需要gbk编码,需要的朋友可以参考下2014-12-12
perl 删除数组元素的几种方法，有需要的朋友可以参考下2013-02-02
壁纸来自桌酷网站,所有权归属其网站，本代码仅做为交流学习使用，请勿用于商业用途，否则后果自负2012-08-08
这篇文章主要介绍了perl查找进程PID的例子,例子中主要通过/proc目录进行PID的查找,需要的朋友可以参考下2014-06-06
这篇文章主要介绍了Perl使用Tesseract-OCR实现验证码识别教程,Tesseract-OCR是一个开源图形识别引擎,需要的朋友可以参考下2014-06-06
这篇文章主要介绍了在Django框架中自定义模板过滤器的方法,Django是重多人气Python框架中最为著名的一个,需要的朋友可以参考下2015-07-07
最新评论