Мне нужна какое-то руководство с следующим кодом PERL. Когда я оставляю без строгих «Refs»
, Sub
работает нормально. Но если нет строгих «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";
}
}
}