awk +根据文件中的值对文件进行排序并写入两个不同的文件

Question

我在文件 file_test 中右眼和左眼的值 如何通过awk将file_test分离为file1和file2，以便将相同的值写入file1和不同的值值到 file2 中，如下例

file_test 所示：

NAME: jim 
LAST NAME: bakker
right eye: >|5|< 
left eye VALUE: >|5|< 
NAME: Jorg 
LAST NAME: mitchel
right eye: >|3|< 
left eye VALUE: >|5|< 
NAME: jimmy  
LAST NAME: kartter
right eye: >|6|< 
left eye VALUE: >|5|< 
NAME: david  
LAST NAME: kann
right eye: >|9|< 
left eye VALUE: >|9|< 

file1 应该是：

NAME: jim  
LAST NAME: bakker
right eye: >|5|< 
left eye VALUE: >|5|< 
NAME: david  
LAST NAME: kann
right eye: >|9|< 
left eye VALUE: >|9|< 

file2 应该是：

NAME: Jorg  
LAST NAME: mitchel
right eye: >|3|< 
left eye VALUE: >|5|< 
NAME: jimmy  
LAST NAME: kartter
right eye: >|6|< 
left eye VALUE: >|5|<

Answer 1

awk -F: '/^NAME:/ && buff {
  say(buff, eyes); buff = null 
  split(null, eyes) # use delete eyes if supported
  }
{ 
  buff = buff ? buff RS $0 : $0
  /eye/ && eyes[$NF]
  }
END { say(buff, eyes) }
func say(b, e) {
  # length(array) is not portable
  print b > (length(e) > 1 ? "file2" : "file1")
  }' file_test

Answer 2

我会为此使用 Perl：

    open my $f, "<", "file_input";
    open my $file1, ">", "file1";
    open my $file2, ">", "file2";
    while (! eof($f)) {
        my $person; $person .= <$f> for (1..4);  # read 4 lines
        my ($right) = ($person =~ /^right.*?(\d+)/m);
        my ($left) = ($person =~ /^left.*?(\d+)/m);
        my $file = ($right == $left) ? $file1 : $file2;
        print $file $person;
    }
    close $f;
    close $file1;
    close $file2