新手求救!

谢谢关照!再次感谢

Died at  c:\perl\fff.pl line 25
好象是25行出了什么问题!能帮看看吗?
谢谢

你把代码发出来啊，要不怎么看

#!/usr/bin/perl

use strict;
use warnings;

my @aa;
my @bb;
my $count;

for ('001'..'144') {
    push @aa, 'chtb_'.$_.'sgm';
}

for ('145'..'325') {
    push @bb, 'chtb_'.$_.'sgm';
}

my $output_1 = 'e:/1.txt';
my $output_2 = 'e:/2.txt';

open File, ">>$output_1"
    or die "can't open file: $!\n";

for (@aa) {
    open File, "$_" or die;
        print File $_ while (<File>);
   
}

open File, ">>$output_2"
    or die "can't open file: $!\n";

for (@bb) {
        open File, "$_" or die;
        print File $_ while (<File>);
}
就是用的你给的程序!
求求你能不能说的详细一点,我新手真的看不懂

你改成

open File, "$_" or die "Can not open $_: $!\n";

看看哪里出错了。

我猜是文件打不开，因为文件不存在