perl -MFatal='open,close' -ali -ne '
   if ( @ARGV ) { # FileB readin
      if ( $. == 1 ) { push @names, @F;      }
      else           { push @A, join $/, @F; }
      print;
   } else { # FileA readin
      if ( $. == 1 ) {
         open FILEC, ">", "FileC.out";
         print FILEC $_;
         print;
         @remap =
            map {
               my $n = $names[$_];
               grep { $n eq $F[$_] } 0 .. $#F;
            } 0..$#names;
      } else {
         my $n = join $/, @F[@remap];
         if ( grep { $n eq $_ } @A ) { print FILEC $_; }
         else                        { print;          }
      }
   }
   eof and $. = 0;
   eof() and close FILEC;
' FileB FileA

説明する

• Perlコマンドラインに、「FileB」と「FileA」という2つのファイルを順番に指定します。
• FileBを読み込む過程で、最初の行か別の行なのかによって2つのことを行います。
  • FileBの最初の行のFileBフィールドの名前を配列に保存します@names。
  • 他の行の場合は、デフォルトで提供されている@A改行で連結されたフィールドで配列を埋めます。\n$/RS
  • Perlどちらの場合も、sモード-iでFileBを失うことなく読み取るために、この行をSTDOUTに印刷します。
• FileAを読み取るときにファイルをFILEC埋めるために、最初の行で書き込みファイルハンドルを開きますFileC.out。
  • FileBでこの行を保持したいので、STDOUTとして印刷します。
  • また、ヘッダーがFileC.outにも入るように、ファイルハンドルFILECに印刷します。
  • これは、FileBのフィールドがFileAのフィールドにマップされる重要なステップです。
• FileAの最初の行以外では、これらの再マップされたフィールドとすでに配列に格納されているFileBデータとの間の同一性チェックを実行します@A。
• 一致するものが見つかると、この行はFileC.outに書き込まれ、FileAには書き込まれません。一致するものがない場合、FileAは記録されますが、FileC.outは記録されません。
• 両方のファイルの終わりに行カウンターを$.ゼロにリセットして、最初の行同一性チェックを両方のファイルで実行できるようにします。
• 最後のeof（eof（）で検出された）の後にファイルハンドルFILECを閉じます。
• このモジュールには、これらのタスクをFatal.pmロードして自動的に終了する機能があります。openclose