本文共 732 字，大约阅读时间需要 2 分钟。

-- Start

在 Linux 中，我们通过大于号(>) 和小于号(<) 来重定向输入和输出到一个文件中。在 Perl 中，我们也可以很容易的从一个文件中读取数据或将数据写入一个文件中。

#!/usr/bin/perluse strict;my $file1 = "c:/a.txt";my $file2 = "c:/b.txt";# 打开文件open IN, "< $file1" || die "$!"; # 以只读方式打开 $file1open OUT, "> $file2" || die "$!"; # 以写入方式打开 $file2，存在则先清空文件，不存在则创建# 处理数据方式一：一次读取文件中所有的数据到内存中my @data = 
   
    ; # 读取 $file1 中的所有数据并保存到数组中print OUT @data; # 将数据写到 $file2 文件中# 处理数据方式二：逐行读取while(my $line = 
    
     ) {	print OUT $line; # 将数据写到 $file2 文件中}# 关闭文件close IN;close OUT;
    
   

• 上面例子中的 IN 和 OUT 被称为文件句柄，用来表示打开的文件，可以是任何名字，通常用大写字母来表示。
• die 函数用来输出错误消息并终止程序。
• 内部变量 $! 保存错误信息。
• >> 用来向文件中追加内容，如：open OUT, ">> $file2"

-- 更多参见：

-- 声 明：转载请注明出处