Perl对文件的操作,跟其它的语言类似,无非也就是打开,读与写的操作。
1. 打开文件
1
2
3
4
5
6
7
8
9
10
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 ; |