文件句柄

#!/usr/bin/perl
#auth youcz 20110512 May Thursday twevfth
open(HD1,'> ./test1.txt');
open(HD2,'> ./test2.txt');
open(HD3,'> ./test3.txt');
open(TR,"| tr '[a-z]' '[A-Z]'");
open(HD, '< test.txt');

while(<HD>){
        print HD1 ;
        print HD2 ;
        print HD3 ;
}
我想把HD 用 tr处理后写到 HD1 2 3 中，怎么写？

# cat test.pl
#!/usr/bin/perl
use strict;
use warnings;

#auth youcz 20110512 May Thursday twevfth
open(HD1,'> ./test1.txt') or die "can't open test1.txt\n";
open(HD2,'> ./test2.txt') or die "can't open test2.txt\n";
open(HD3,'> ./test3.txt') or die "can't open test3.txt\n";
open(HD, '< test.pl') or die "can't open test.pl\n";

while( <HD> ) {
        tr/a-z/A-Z/;
        print HD1 ;
        print HD2 ;
        print HD3 ;
}

回复 jason680


    xiexie