ファイルを保存するときにPerlが無効な引数

Question

スクリプト内の2つのファイルの内容を比較したいとします。これを行うために、ファイルを配列にロードしています。最初のファイルには、2番目のファイルで検索している固有の名前が含まれています。問題は比較に関連していませんが、結果をファイルに保存する必要があります。名前には配列@unique_namesの値が含まれています。比較後にファイルを作成する行にエラーが表示されます。 $file_name内容の 例：エラーは言う：test.pl線71で無効な引数、ライン6 が、これは全体のスクリプトではありませんだけカットしますのでご注意くださいprint $outputFolder . $ file_nameのPT_FCT_Sales_20161003.outと結果がc:\Strawberry\PT_FCT_Sales_20161003.out

foreach my $file (@Files){ 
    if ($file =~ /out$/i){ 
     if ($file =~ /PT_FCT_Sales_/i){ 
      open(my $INFILE, "<", $file) or die $!; 

      @lines = <$INFILE>; 

      foreach (my $i = 0; $i < @unique_names; $i++) { 
       my $file_name = join('', @unique_names[$i]); 
       #print $file_name; 
       my @data; 
       foreach $line (@lines) { 
        if ($line =~ @unique_names[$i]) { 
         push (@data, $line); 
        } 
       } 

       open(my $OUTFILE, ">>", $outputFolder . $file_name) or die $!; #error appears here 
       print $OUTFILE @data; 
       close $OUTFILE; 

      } 
      close $INFILE or die "Can't close input file"; 
     } 
    } 
} 

EDITですその問題に関連してオフになります。

Answer 1

ここでは少し良い解決策です。テストされていない。編集して修正します。 $ outputfolderがどこに定義されているかを指定してください。

foreach my $file (@Files){ 
if ($file =~ /^PT_FCT_Sales.*\.out$/i){ 
     open(my $INFILE, "<", $file) or die $!; 
     @lines = <$INFILE>; 
     foreach (my $i = 0; $i < @unique_names; $i++) { 
      my $file_name = join('', $unique_names[$i]); 
      my @data; 
      while (<$INFILE>) { 
       if ($line =~ $unique_names[$i]) { 
        push (@data, $line); 
       } 
      } 
      open(my $OUTFILE, ">> $outputFolder.$file_name") or die $!; #error appears here 
      print $OUTFILE @data; 
      close $OUTFILE; 

      } 
      close $INFILE or die "Can't close input file"; 
     } 
    }