怎么操作Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码

来源:爱站网时间:2021-09-18编辑:网友分享
怎么操作Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码,这些问题你遇到过吗,爱站技术小编最近把这些问题都遇到了一遍,想着找到了方法就应该发出来,于是现在po在了这里。有需要的朋友可以参考下

读文件:

 

#!perl
open filetxt,"/path/a.txt";   #  filetxt为文件句柄,用于和文件a.txt建立链接。文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名。
print ;                 #  此处print函数用于显示文件a.txt的内容。为取行操作符,用于读取所链接文件的内容。
close filetxt;                    #  关闭文件句柄filetxt。另一种关闭的方法是将其与其它文件建立关联,如:open filetxt,"b.txt";如此则与原来文件a.txt的关联自动关闭。

 

或者

 

 

#!perl
open filetxt," while ($line=)
{
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=;          # 或者 my @files=glob "*.txt";
unlink @files;


或者

 

 

 


#!perl
unlink glob "*.txt";


或者

 

 

 


#!perl
unlink ;

 

多个文本文件的合并:

在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".."\n";                   # 利用 . 进行字符串的连接,此操作符必须
print a      ."\n";                     # 表示读取文件句柄所链接的文本文件的内容
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 ;                                                    #  利用 . 进行字符串的连接,此操作符必须
print a ;                                                    #  表示读取文件句柄所链接的文本文件的内容
close a;
close b;
close c;

 

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

unlink ;
unlink ;

或者

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

或者

unlink ,;

或者

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

以上内容就是爱站技术频道小编为大家分享的怎么操作Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码,看完以上分享之后,大家应该都知道遇到这些问题要怎么解决了吧。

上一篇:使用Perl创建指定编码格式(如utf-8)文件的实现代码

下一篇:perl用grep map求交集、并集、补集的实例代码

您可能感兴趣的文章

相关阅读

查看更多 >