一、需求

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

二、代码

#!/usr/bin/perl -wuse strict;#========================== open function ====================# 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是自定义的两个文件流句柄变量    # 句柄操作 
      
        从文件流中读取一行    # print OUTPUTFILE 向文件流输出        while (my $line = 
       
        ) {        print OUTPUTFILE $line;    }}