我需要以下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
它在下面标记为“Here”的行中死亡。此sub
需要打开(写入>)来自A..Z的所有文件,并根据READ文件(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";
}
}
}
答案 0 :(得分:8)
不要指定$fh = $_
它没有做任何有用的事情。
@FH
应为%FH
,而不是push
尝试:
$FH{ $_ } = $fh
将$1
替换为$FH{ $1 }
。
答案 1 :(得分:7)
你要求perl在这里使用$ fh的值作为文件句柄的名称:
for ( @alpha) {
$fh = $_ ;
open ( $fh,">","$_-$file" ) || die $!; <--------- HERE
push @FH, $fh;
}
您应该考虑使用词法变量并通过open将其自动生成文件句柄,然后将其存储在哈希中以便稍后获取:
for ( @alpha) {
open ( my $fh,">","$_-$file" ) || die $!;
$handles{$_} = $fh;
}
以便您稍后可以使用它:
while ( my $row = $csv->getline( *LOG ) ) {
if ( $row->[0] =~ /^(\w)/ ) {
print $handles{$1} <--------- HERE
...
答案 2 :(得分:4)
您尝试将字符串文字用作文件句柄:在foreach
循环中,$_
采用值"A"
,"B"
等。所以,不要这样做。只需创建一个新的文件句柄并将其推送到@FH
。