本文和大家重点讨论一下Perl文件句柄的概念，Perl脚本通过Perl文件句柄连接到外部世界。当Perl脚本开始执行时，默认地打开3个Perl文件句柄：STDIN，STDOUT和STDERR。
Perl文件句柄
Perl脚本通过间接Perl文件句柄连接到外部世界。从间接Perl文件句柄读就导入外部数据，向间接Perl文件句柄写则导出数据。根据间接Perl文件句柄的创建方式，可能连向：
磁盘文件。
硬件设备，例如打印机等。
本地进程，例如窗口系统中的一个命令行窗口。
远程进程，例如一个网络服务器。
"位存储桶"设备，也就是Unix/Linux系统中的/dev/null，该设备仅是吸引数据并忽略它。
间接Perl文件句柄可以是任何有效的Perl标识符，由大小写字母、数字和下划线字符组成。不同于其他变量的是，间接Perl文件句柄没有标志性的前缀（像"$","@","%"）。因此，为了使间接Perl文件句柄有所区别，Perl程序员经常以全部大写字母表示它们。
当Perl脚本开始执行时，默认地打开3个间接Perl文件句柄：STDIN，STDOUT和STDERR。STDOUT间接Perl文件句柄（即"standardoutput"）标准输出，是默认的输出间接Perl文件句柄。发送给这个间接Perl文件句柄的数据在用户指定的输出设备上显示，通常是脚本开始运行的命令行窗口。STDIN（即"standardinput"）标准输入，是默认的输入间接Perl文件句柄。从这个间接Perl文件句柄读取的数据取自用户选择的输入设备，通常是键盘。STDERR（即"standarderror"）标准错误输出，用于错误信息、诊断、调试和其他类似的偶发输出，默认情况下，STDERR和STDOUT使用相同的输出设备，但是用户可以自行改变。
正常输出和不正常输出有不同的独立间接Perl文件句柄，这样用户就能够独立地转移它们；例如，将正常输出发送到文件而将错误输出发送到屏幕。
- #!/usr/bin/perl-w
- chomp($input=<>);
- print"IfIheardyoucorrectly,yousaid:$input\n";
STDERR是warn()函数和die()函数的默认目标。用户在开始执行脚本之前可以改变三个标准间接Perl文件句柄的连接。在Unix/Linux和Windows系统上，使用重定向元字符"<"和">"来完成这种改变。例如，对一个名为change.pl的脚本执行这两条重定向命令，将改变该脚本的标准输入，使其从文件data.txt中读取数据，并改变标准输出，使处理过的数据输出到文件changed.txt中：
#perlchange.pl<data.txt>changed.txt
标准错误不改变，因此诊断信息（例如，从内置的warn()函数和die()函数返回的信息）在屏幕上显示。
间接Perl文件句柄
间接间接Perl文件句柄可以使名字空间的管理更简单。由于间接Perl文件句柄对于当前包是全局
的，两个函数试图同时打开"INFILE"会导致冲突。如果两个函数使用间接文
件句柄比如"my$infile"，则不会发生冲突，也不用担心以后会发生冲突。
"open"的***个参数可以是一个间接Perl文件句柄的引用。在Perl5.6.0中，如果
参数没有初始化，Perl会自动创建一个间接Perl文件句柄，然后存储在***个参数中，
例如：
- open(my$in,$infile)ordie"Couldn'tread$infile:$!";
- while(<$in>){
- #dosomethingwith$_
- }
- close$in;
还有一个方便之处是当运行到作用域外或者使用undefine时，Perl文件句柄会
自动关闭。
subfirstline{
open(my$in,shift)&&returnscalar<$in>;
#noclose()required
}
【编辑推荐】
