重定向输入输出

-- Start

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

#!/usr/bin/perl
use strict;

my $file1 = "c:/a.txt";
my $file2 = "c:/b.txt";


# 打开文件
open IN, "< $file1" || die "$!"; # 以只读方式打开 $file1
open OUT, "> $file2" || die "$!"; # 以写入方式打开 $file2，存在则先清空文件，不存在则创建


# 处理数据方式一：一次读取文件中所有的数据到内存中
my @data = <IN>; # 读取 $file1 中的所有数据并保存到数组中
print OUT @data; # 将数据写到 $file2 文件中


# 处理数据方式二：逐行读取
while(my $line = <IN>) {
	print OUT $line; # 将数据写到 $file2 文件中
}


# 关闭文件
close IN;
close OUT;

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

-- 更多参见：Perl 精萃

-- 声 明：转载请注明出处
-- Last Updated on 2012-06-28
-- Written by ShangBo on 2012-06-28
-- End