zoukankan      html  css  js  c++  java
  • perl文件读写

    一、需求

      将test1.txt文件备份成test2.txt文件,使用到文件读写操作。

    二、代码

    #!/usr/bin/perl -w
    use strict;
    #========================== open function ====================
    # open(STREAM, "filename");                #从现存文件中去读取
    # open(STREAM, "<filename");               #从现存文件中去读取
    # open(STREAM, ">filename");               #创建文件并写入
    # open(STREAM, ">>filename");              #附加在现有文件后面
    # open(STREAM, "| output-pipe-command");   #设置一个输出过滤器
    # open(STREAM, "input-pipe-command |");    #设置一个输入过滤器
    
    my $input_file_name = "test1.txt";
    my $output_file_name = "test2.txt";
    
    if (open(INPUTFILE, $input_file_name) && open(OUTPUTFILE, ">>$output_file_name" )) {
    
        # INPUTFILE OUTPUTFILE是自定义的两个文件流句柄变量
        # 句柄操作 <INPUTFILE> 从文件流中读取一行
        # print OUTPUTFILE 向文件流输出
        
        while (my $line = <INPUTFILE>) {
            print OUTPUTFILE $line;
        }
    }
  • 相关阅读:
    python基础之数据类型
    简单猜年龄游戏
    python基础之变量
    Python3获取大量电影信息:调用API
    10分钟制作UWP汉堡菜单
    java 异常处理
    多态
    接口与继承
    数组及课后动手动脑
    String类型
  • 原文地址:https://www.cnblogs.com/chenshi/p/3895778.html
Copyright © 2011-2022 走看看