Perl Не может использовать строку в качестве символа ref, в то время как строгие ссылки

Question

Мне нужно некоторое руководство со следующим кодом 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 и на основе regex из файла READ (LOG) выходные данные будут записаны в соответствующий выходной файл.

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";
                }
    }
}

Answer 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
                            ...

Answer 2

Не присваивайте $fh = $_ ничего полезного не делает.

@FH должно быть %FH и вместо push try:

$FH{ $_ } = $fh

Заменить $1 на $FH{ $1 }.

Answer 3

Вы пытаетесь использовать строковый литерал в качестве дескриптора файла: в вашем цикле foreach $_ принимает значения "A", "B" и т. Д. Так что не делай этого. Просто создайте новый дескриптор файла и поместите его на @FH.