源码网商城,靠谱的源码在线交易网站 我的订单 购物车 帮助

源码网商城

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

  • 时间:2021-03-11 16:25 编辑: 来源: 阅读:
  • 扫一扫,手机访问
摘要:Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码
读文件:
[u]复制代码[/u] 代码如下:
#!perl open filetxt,"/path/a.txt";   #  filetxt为文件句柄,用于和文件a.txt建立链接。文件句柄可任意取名,但不要和Perl自带的几个文件句柄重名。 print <filetxt>;                 #  此处print函数用于显示文件a.txt的内容。<>为取行操作符,<文件句柄>用于读取所链接文件的内容。 close filetxt;                    #  关闭文件句柄filetxt。另一种关闭的方法是将其与其它文件建立关联,如:open filetxt,"b.txt";如此则与原来文件a.txt的关联自动关闭。
或者
[u]复制代码[/u] 代码如下:
#!perl open filetxt,"<path/a.txt"; #  < 用于从文件中读取内容,但是不能写入任何内容到文件中。< 与 什么符号都不加 效果相同 while ($line=<filetxt>) { print $line; ) close filetxt;
写文件: 在 open 一行中将 < 更改为 > 或 >> ,即可向文件中写入内容。如:
[u]复制代码[/u] 代码如下:
#!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:将文件重命名
[u]复制代码[/u] 代码如下:
#!perl rename "a.txt","b.txt";       # 或者 rename "a.txt","a.bat";
unlink:等同于rm,删除系统中的某些文件
[u]复制代码[/u] 代码如下:
#!perl my @files=<*.txt>;          # 或者 my @files=glob "*.txt"; unlink @files;
或者
[u]复制代码[/u] 代码如下:
#!perl unlink glob "*.txt";
或者
[u]复制代码[/u] 代码如下:
#!perl unlink <*.txt>;
多个文本文件的合并: 在Perl中,可以按照如下方式合并多个文本文件:
[u]复制代码[/u] 代码如下:
#!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";
  • 全部评论(0)
联系客服
客服电话:
400-000-3129
微信版

扫一扫进微信版
返回顶部