Perl 在严格引用时不能使用字符串作为符号引用答案

【问题标题】：Perl Can't use string as a symbol ref while strict refsPerl 在严格引用时不能使用字符串作为符号引用
【发布时间】：2023-03-31 08:06:01
【问题描述】：

我需要一些关于以下 Perl 代码的指导。当我离开no strict 'refs' 时，sub 工作正常。但是如果 no strict 'refs' 被删除，那么我会收到错误消息：

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

它死在下面标记为“这里”的行中。这个sub 需要打开（写入>）A..Z 中的所有文件，并且基于读取文件（LOG）中的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";
                }
    }
}

【问题讨论】：

标签： perl

【解决方案1】：

您要求 perl 在此处使用 $fh 的值作为文件句柄的名称：

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

您应该考虑使用词法变量并通过打开将其自动激活到文件句柄中，然后将其存储在哈希中以便稍后获取：

for ( @alpha) {                            
            open ( my $fh,">","$_-$file" )  || die $!;
            $handles{$_} =  $fh;
}

这样你以后可以在这里使用它：

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

【讨论】：

这行得通。只需将 print $handles{$1} 替换为 print {$handles{$1}} 。谢谢。

【解决方案2】：

不要分配$fh = $_，它没有做任何有用的事情。

@FH 应该是 %FH 而不是 push 尝试：

$FH{ $_ } = $fh

将$1 替换为$FH{ $1 }。

【讨论】：

成功了。并且 print $1 被替换为 print {$FH{$1}} 。谢谢。

【解决方案3】：

您正在尝试使用字符串文字作为文件句柄：在您的 foreach 循环中，$_ 采用值 "A"、"B" 等。所以，不要那样做。只需创建一个新文件句柄并将其推送到 @FH。

【讨论】：