Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码
Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码
发布时间:2016-12-28 来源:查字典编辑
摘要:读文件:复制代码代码如下:#!perlopenfiletxt,"/path/a.txt";#filetxt为文件句柄,用于和文件a.txt建...

读文件:

复制代码 代码如下:

#!perl

open filetxt,"/path/a.txt"; # filetxt为文件句柄,用于和文件a.txt建立链接。文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名。

print <filetxt>; # 此处print函数用于显示文件a.txt的内容。<>为取行操作符,<文件句柄>用于读取所链接文件的内容。

close filetxt; # 关闭文件句柄filetxt。另一种关闭的方法是将其与其它文件建立关联,如:open filetxt,"b.txt";如此则与原来文件a.txt的关联自动关闭。

或者

复制代码 代码如下:

#!perl

open filetxt,"<path/a.txt"; # < 用于从文件中读取内容,但是不能写入任何内容到文件中。< 与 什么符号都不加 效果相同

while ($line=<filetxt>)

{

print $line;

)

close filetxt;

写文件:

在 open 一行中将 < 更改为 > 或 >> ,即可向文件中写入内容。如:

复制代码 代码如下:

#!perl

open TXT,">a.txt";

print TXT "梦里不知身是客,n"; # 如果文件a.txt存在,则其内容会被取代

print TXT "一晌贪欢。n"; # 该行内容会附加到第二行

close TXT;

[code]

或者

#!perl

open TXT,">>a.txt";

print TXT "独自莫凭栏,无限江山,别时容易见时难。n"; # 如果文件a.txt已存在,该行内容会被附加到已存在文件的后面

close TXT;

<,从文件中读取内容,但是不能输出到文件里任何内容。如果什么都不加的清况下读文件状况会同加上“<”的效果一样。

>,将内容输出到文件中,并将原有文件中的内容清空。

>>,将内容追加到文件中,不会清空原有文件中的内容。

文件的重命名和删除:

rename:将文件重命名

复制代码 代码如下:

#!perl

rename "a.txt","b.txt"; # 或者 rename "a.txt","a.bat";

unlink:等同于rm,删除系统中的某些文件

复制代码 代码如下:

#!perl

my @files=<*.txt>; # 或者 my @files=glob "*.txt";

unlink @files;

或者

复制代码 代码如下:

#!perl

unlink glob "*.txt";

或者

复制代码 代码如下:

#!perl

unlink <*.txt>;

多个文本文件的合并:

在Perl中,可以按照如下方式合并多个文本文件:

复制代码 代码如下:

#!perl

open a,">a.txt";

print a "四十年来家国,三千里地山河。";

open b,">b.txt";

print b "凤阁龙楼连霄汉,玉树琼枝作烟萝。";

open c,">c.txt";

print c "几曾识干戈?"; # 分别建立文本文件 a.txt、b.txt和c.txt,并执行写入操作

close a;

close b;

close c; # 关闭对应的文件句柄(filehandle)

open a,">>a.txt";

open b, "b.txt";

open c, "c.txt"; # 重新建立文件关联,其中 a.txt 执行附加写入操作,其它两个文件执行读文件操作

print a "n".<b>."n"; # 利用 . 进行字符串的连接,此操作符必须

print a <c>."n"; # <filehandle>表示读取文件句柄所链接的文本文件的内容

close a;

close b;

close c;

[code]

或者

[code]

#!perl

open a,">a.txt";

print a "四十年来家国,三千里地山河。n";

open b,">b.txt";

print b "凤阁龙楼连霄汉,玉树琼枝作烟萝。n"; # 生成文件并写入内容时,即执行换行操作,让光标留在下一行

open c,">c.txt";

print c "几曾识干戈?n"; # 分别建立文本文件 a.txt、b.txt和c.txt,并执行写入操作

close a;

close b;

close c; # 关闭对应的文件句柄(filehandle)

open a,">>a.txt";

open b, "b.txt";

open c, "c.txt"; # 重新建立文件关联,其中 a.txt 执行附加写入操作,其它两个文件执行读文件操作

print a <b>; # 利用 . 进行字符串的连接,此操作符必须

print a <c>; # <filehandle>表示读取文件句柄所链接的文本文件的内容

close a;

close b;

close c;

如果想要在合并文本文件后删除文本文件 b.txt 和 c.txt ,可以在后面加上如下代码:

unlink <b.txt>;

unlink <c.txt>;

或者

unlink "b.txt";

unlink "c.txt";

或者

unlink <b.txt>,<c.txt>;

或者

unlink "b.txt","c.txt";

推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
相关阅读
网友关注
最新perl学习
热门perl学习
脚本专栏子分类