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"라는 두 개의 파일을 순서대로 제공합니다.
• FileB를 읽는 과정에서 첫 번째 줄인지 다른 줄인지에 따라 두 가지 작업을 수행합니다.
  • 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은 기록되지 않습니다.
• 두 파일의 끝에서 줄 카운터를 $.0으로 재설정하여 첫 번째 줄 동일성 검사가 두 파일 모두에서 수행될 수 있도록 합니다.
• 마지막 eof(eof()를 통해 감지됨) 후에 파일 핸들 FILEC를 닫습니다.
• 이 모듈은 이러한 작업을 Fatal.pm로드 open하고 close자동으로 종료하는 기능을 가지고 있습니다.