Perl之文件操作的方法
来源:爱站网时间:2019-05-01编辑:网友分享
由Perl程序启动的所有进程都可以继承Perl程序的工作目录,但是对于启动perl的进程,其工作目录不会随着perl工作目录的变化而改变,下面就让爱站技术频道小编带你一起来学习Perl之文件操作的方法。
由Perl程序启动的所有进程都可以继承Perl程序的工作目录,但是对于启动perl的进程,其工作目录不会随着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;
上述是爱站技术频道和大家分享的关于Perl之文件操作的方法,希望对想要了解这方面信息的人有所帮助,感谢大家继续支持爱站技术频道!
上一篇:详解Perl正则表达式的实例演示