perl _DATA_ 文件句柄

常用的perl 读写文件的操作，我们都很熟悉了，需要先声明1个文件句柄。但是看下面这段代码：

my %organisms = ();

while(<DATA>){

    chomp;

    if(/^(\S+)\s+(\S+)$/){

        my $u=lc($);

        my $v=lc($);

        $u =~ s/ //g;

        $v =~ s/ //g;

        $organisms{$u}=$v;

    }

}

__DATA__

hsa                 Human

ptr                 Chimp

na                  Orangutan

na                  Rhesus

na                  Marmoset

mmu                 Mouse

rno                 Rat

while 循环中读取的文件句柄，并没有对应一个实际的文件，

这其实是一种用法，在最下方声明了句柄__DATA__, 在句柄下方是每一行的文件内容，

然后通过DATA 这个句柄，就可以读取到这些内容；

这种用法可以当做数据库来用，当字段较少时，我们直接给哈希赋值就可以了；但是当内容很多时，就可以像上述写法一样；

巴特西

perl _DATA_ 文件句柄

最新文章

热门文章