Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。
1. 打开文件
1
2 3 4 5 6 7 8 9 10
扫描二维码关注公众号,回复:
15049439 查看本文章
11 12 13 14 15 |
#! 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. 读取文件
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 |
#! 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. 写入文件
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
#! 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 ; |