• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    Perl 文本文件的读写操作、文件的重命名和删除、多个文本文件的合并实现代码

    读文件:

    复制代码 代码如下:

    #!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";

    您可能感兴趣的文章:
    • 重命名批处理python脚本
    上一篇:Perl合并文本的一段实例代码
    下一篇:使用Perl创建指定编码格式(如utf-8)文件的实现代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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