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;
    }
}