Perl学习笔记之文件操作

页面导航:首页 > 脚本专栏 > perl > Perl学习笔记之文件操作

Perl学习笔记之文件操作

来源:互联网 作者:脚本宝典 时间:2015-07-21 18:46 【

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 ; # 或

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;


Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<