use warnings;
my $in_1=shift;
my $out_1=shift;
my $out_2=shift;
open IN,”$in_1″;
open OUT_1,”>$out_1″;
open OUT_2,”>$out_2″;
while(){
chomp;
}
版权声明：本文为lin159263原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。