Perl可以'；t使用字符串作为符号ref，而使用严格ref

我需要一些关于以下Perl代码的指导。当我离开

没有严格的'refs'

时，

子

工作正常。但是如果删除了

无严格的“refs”

，则会收到错误消息：

Can't use string ("A") as a symbol ref while "strict refs" in use at test.pl

它死在下面标记为“此处”的行中。此

sub

需要从A..Z打开（写入）所有文件，并根据读取文件（日志）中的

regex

，将输出写入相应的文件输出

use strict;
use Text::CSV_XS;
no strict 'refs';  
...
...
sub file_split {

    my ( $i, $fh, @FH );
    my ( $file ) = @_;
    my ( @alpha) = ("A".."Z");

    for ( @alpha) {                            
            $fh = $_ ;
            open ( $fh,">","$_-$file" )  || die $!;      <--------- HERE
            push @FH, $fh;
    }

    my $csv = Text::CSV_XS->new( {  binary => 1,
                                    allow_whitespace => 1,
                                    allow_loose_escapes => 1,
                                    allow_loose_quotes =>1,
                                    escape_char => undef ,
                                    sep_char => ',',
                                    auto_diag=> 1
                                    } );
    open( LOG,"<", $file ) || die $!;
    while ( my $row = $csv->getline( *LOG ) ) {
            if ( $row->[0] =~ /^(\w)/ ) {
                    print $1                       <--------- HERE
                            "$row->[0]".",".
                            "$row->[1]" .",".
                            "$row->[2]" .",".
                            "$row->[3]" .",".
                            "$row->[4]".",".
                            "$row->[5]"."\n";

            } else {
                        print "Record skipped... --> $row->[0] <-- ... please verify     \n";
                }
    }
}

使用严格；
使用Text:：csvxs；
没有严格的“参考文献”；
...
...
子文件分割{
我的（$i，$fh，@fh）；
我的（$file）=@；
我的（@alpha）=（“A”。“Z”）；
对于（@alpha）{
$fh=$\；
打开（$fh，“>”，“$文件”）| | die$！；新建（{binary=>1，
允许_空格=>1，
允许\u松动\u逃逸=>1，
允许\u松散\u引号=>1，
escape_char=>undef，
sep_char=>'，'，
自动诊断=>1
} );
打开（日志，“[0]”，“。
“$row->[1]”，“，”。
“$row->[2]”，“，”。
“$row->[3]”，“，”。
“$row->[4]，”。
“$row->[5]”“\n”；
}否则{
打印“已跳过记录…”-->$row->[0]不分配
$fh=$\ucode>它没有做任何有用的事情

@FH
应该是
%FH
而不是
推送
尝试：

$FH{ $_ } = $fh

将
$1
替换为
$FH{$1}
您试图使用字符串文本作为文件句柄：在
foreach
循环中，
$\ucode>接受值
“a”
，
”B“
等。所以，不要这样做。只需创建一个新的文件句柄并将其推送到
@FH
您要求perl使用$FH值作为文件句柄的名称，如下所示：

for ( @alpha) {                            
            $fh = $_ ;
            open ( $fh,">","$_-$file" )  || die $!;      <--------- HERE
            push @FH, $fh;
    }

以便稍后在此处使用：

while ( my $row = $csv->getline( *LOG ) ) {
            if ( $row->[0] =~ /^(\w)/ ) {
                    print $handles{$1}                       <--------- HERE
                            ...

while（我的$row=$csv->getline（*LOG））{
如果（$row->[0]=~/^（\w）/）{
print$handles{$1}成功了。print$1被替换为print{$FH{$1}。谢谢。这很有效。只需将print$handles{$1}替换为print{$handles{$1}。谢谢。
while ( my $row = $csv->getline( *LOG ) ) {
            if ( $row->[0] =~ /^(\w)/ ) {
                    print $handles{$1}                       <--------- HERE
                            ...