일치하는 행 및 연속된 행 삭제(for 루프)

Question 1

내 이해에 따르면 이름이 파일에 저장되어 있는 파일이 여러 개 있고 fileA저장된 텍스트를 제외하고 각 파일의 모든 내용을 인쇄하여 fileB다음을 수행할 수 있습니다.

while read -r file_name
do
grep -v -f <(grep -A1 -f fileB "$file_name") "$file_name"
done < file

내용이 인쇄됩니다 stdout.

Answer

내 이해에 따르면 이름이 파일에 저장되어 있는 파일이 여러 개 있고 fileA저장된 텍스트를 제외하고 각 파일의 모든 내용을 인쇄하여 fileB다음을 수행할 수 있습니다.

while read -r file_name
do
grep -v -f <(grep -A1 -f fileB "$file_name") "$file_name"
done < file

내용이 인쇄됩니다 stdout.

Question 2

fileA의 파일 이름이 정확히 한 줄에 하나씩 나열되고 파일 이름에 개행( \n) 문자가 포함되지 않은 경우 다음이 유효합니다.

$ xargs -d'\n' <fileA \
    perl -MFile::Slurp -e '
     my @patterns=read_file(shift, {chomp=>1});
     $re = join ("|",@patterns);

     while (<>) {
       if (m/$re/o) { readline; next };
       print
     }' fileB
9606.jklpan
how is the weather
10116.zyxtak
i am happy to see rainbow

xargsPerl 스크립트에 파일 이름 매개변수 목록을 제공하는 데 사용되며 fileA한 번에 한 줄씩 읽습니다.

Perl 스크립트는 먼저 fileB명령줄( )에서 첫 번째 파일 이름 인수를 읽고 각 줄을 결합하는 정규식을 작성합니다( chomp각 입력 줄을 끝내는 개행 문자 뒤).

그 후, 나머지 각 파일 이름 인수를 반복하여 일치하는 줄과 다음 줄을 건너뛰고 나머지 줄을 인쇄합니다.

이 스크립트는 단순히 모든 입력 파일의 출력을 stdout으로 인쇄하고 다른 입력 파일의 출력을 구별하려고 시도하지 않습니다.

각 입력 파일의 출력을 다른 출력 파일로 이동하려면(예: 파일 출력이 234로 이동 ) 전체 루프를 다음과 같이 바꿀 234.new수 있습니다 .while (<>) {...}

my $lastfn="";
while (<>) {
  if(eof) { close(OUTFILE) };

  if ($lastfn != $ARGV) {
    $lastfn=$ARGV;
    open(OUTFILE,">","$ARGV.new")
  };

  if (m/$re/o) { readline; next; };
  print OUTFILE
}

또는 출력에 파일 이름만 표시하려는 경우:

my $lastfn="";
my $nl="";   # we dont want to print a LF before the first output filename
while (<>) {
  if ($lastfn != $ARGV) {
    print "$nl", $ARGV,":\n";
    $nl="\n";
    $lastfn=$ARGV };
  };

  if (m/$re/o) { readline; next };
  print
}

또는 각 출력 줄에 입력 파일 이름을 붙입니다.

while (<>) {
  if (m/$re/o) { readline; next };
  print "$ARGV:$_"
}

마지막으로 xargs 없이도 perl로 완전히 수행할 수 있습니다.

$ perl -MFile::Slurp -e '
   my @patterns=read_file(shift, {chomp=>1});
   $re = join ("|",@patterns);

   my @files=read_file(shift, {chomp=>1});
   @ARGV=@files;

   while (<>) {
     if (m/$re/o) { readline; next };
     print
   }' fileB fileA

Answer