http://blog.csdn.net/metasearch/article/details/5488513
perl中的句柄分两种:文件句柄和目录句柄
对于句柄有三种操作:打开(open,opendir),读入(readline,readdir),和关闭(close,closedir)。
一、文件句柄
文件句柄(filehandle)是Perl 程序I/O 连接的名字,是Perl 和外界的纽带。
当需要不同的文件句柄时,使用open 操作通知Perl,Perl 再请求操作系统来建立同外部的连接。如:
open CONFIG, “<”, “dino”;
open BEDROCK, “>”, $file_name;
open LOG, “>>”, &logfile_name();
分别告诉perl打开了读入、输出和追加句柄,perl请求操作系统建立同外部的链接,然后就可以使用句柄进行相应的操作了。
以前我们使用过STDIN句柄进行输入操作,如
$path=<STDIN>;@names=<STDIN>;
以通过键盘输入得到需要的标量和列表。我们可以以相同的方式使用其他句柄输入,如
open DATA,$_
or die "Can't open '$_':$!";#打开读入句柄
my @array = <DATA>;#将文件中的所有行读入列表array
写出(>)或追加的(>>)的文件句柄,可以和print 或printf 结合使用,如:
open DATAOUT,">","$_~"
or die "Can't open '$_~':$!";#打开写出句柄
printf DATAOUT "%20d/n" x @array,@array;#写入文件中,注意句柄和要打印的内容之间没有逗号
二、目录句柄
不是读入文件的内容,而是将一个目录中的文件名(以及一些其它东西)读入,如
opendir DTDIR,$path
or die "Can't open $path:$!";#打开文件句柄
foreach (readdir DTDIR){
next unless $_ =~ /.dt$/;
$_="$path/$_";#双引号内内插,单引号不可以
push @dtfs,$_;
}
注意:需要将路径名加上,以得到文件的全名(路径名+文件名),否则的话测试部分将只检测当前目录下的文件,而不是$path下的文件。这是使用目录句柄最常犯的一个错误。
附:句柄练习代码
#!C:/strawberry/perl/bin/perl.exe -w
#use warnings;
use strict;
my @dtfs;
#my @data_files = glob "*.dt";
print "Please input the directory path include data files:/n";
chomp(my $path = <>);#note:使用<>输入时,一定记得使用chomp去掉回车符!!!
###1:输入路径,查找.dt文件并写入列表
#my @dtfs = <$path/*.dt>;#尖括号中的值同双引号中的值一样,会被内插,等同glob操作
###2:使用目录句柄打开目录,使用这则表达式写入列表
opendir DTDIR,$path
or die "Can't open $path:$!";#打开文件句柄
foreach (readdir DTDIR){
next unless $_ =~ /.dt$/;
$_="$path/$_";#双引号内内插,单引号不可以
push @dtfs,$_;
}
#如果没有加上目录名,则测试部分将只检测当前目录下的文件,而不是$path下的文件。这是使用目录##句柄最常犯的一个错误
print "@dtfs"."/n";#@data_files
foreach (@dtfs){
#$^I = "~";#须与<>结合使用才能有效
open DATA,$_
or die "Can't open '$_':$!";#打开读入句柄
#文件句柄(filehandle)是Perl 程序I/O 连接的名字,是Perl 和外界的纽带
my @array = <DATA>;
foreach (@array){
chomp;
}
@array = sort {$a<=>$b} @array;#排序
open DATAOUT,">","$_~"
or die "Can't open '$_~':$!";#打开写出句柄
printf DATAOUT "%20d/n" x @array,@array;
}