perl +讀取多個csv文件+操作文件+提供output_files +語法錯誤符號參考

Question

從此012 0129 9 9 9 9 98 9 7 7 7 7 7 7 7 7 7 7 7 7 8 9 9 9 3 7 9 9 6 3 3 3 3 0 1 2。我仍然有這個腳本語法麻煩：

use strict; 
use warnings; 
use autodie; # this is used for the multiple files part... 

#START::Getting current working directory 
use Cwd qw(); 
my $source_dir = Cwd::cwd(); 
#END::Getting current working directory 

print "source dir -> $source_dir\n"; 
my $output_prefix = 'format_'; 

#print "dh -> $dh\n"; 
opendir my $dh, $source_dir; #Changing this to work on current directory; changing back 
           # added the "()" here ($dh) as otherwise an error 
for my $file (readdir($dh)) { 
    next if $file !~ /\.csv$/; 
    next if $file =~ /^\Q$output_prefix\E/; 

    my $orig_file = "$source_dir/$file"; 
    my $format_file = "$source_dir/$output_prefix$file"; 

    # .... old processing code here ... 
    ## Start:: This part works on one file edited for this script ## 
    #open my $orig_fh, '<', 'orig.csv' or die $!; #line 14 and 15 above already do this!! 
    #open my $format_fh, '>', 'format.csv' or die $!; 
    print "format_file-> $format_file\n"; 
    #print $format_fh scalar <$orig_fh>; # Copy header line #orig needs changeing 
    print {$format_file} scalar <$orig_file>; # Copy header line 

    my %data; 
    my @labels; 

    #while (<$orig_fh>) { #orig needs changing 
    while (<$orig_file>) { 
     chomp; 
     my @fields = split /,/, $_, -1; 
     my ($label, $max_val) = @fields[1,12]; 
     if (exists $data{$label}) { 
     my $prev_max_val = $data{$label}[12] || 0; 
     $data{$label} = \@fields if $max_val and $max_val > $prev_max_val; 
     } 
     else { 
     $data{$label} = \@fields; 
     push @labels, $label; 
     } 
    } 

    for my $label (@labels) { 
     #print $format_fh join(',', @{ $data{$label} }), "\n"; #orig needs changing 
     print $format_file join(',', @{ $data{$label} }), "\n"; 
    } 
    ## END:: This part works on one file edited for this script ## 

} 

我可以通過添加括號($dh)

，但我仍然有這條線print {$format_file} scalar <$orig_file>; # Copy header line線

我得到的麻煩解決這一行opendir my $dh, $source_dir;以下錯誤：

Can't use string ("/home/Kevin Smith/Perl/format_or"...) as a symbol ref while "strict refs" in use at formatfile_QforStackOverflow.pl line 29. 

任何人都可以建議嗎？

我已經嘗試使用advise here但沒有太多的喜悅。

Answer 1

使用print $format_file ...或print ${format_file} ...

然而$format_file只是包含文件，而不是一個文件句柄的名字的字符串。你必須打開文件：

open my $format_fh, '>', $format_file or die $!; 
... 
print $format_$fh ... ;