[쉘스크립트] 두개의 텍스트파일에서 특정 라인의 추출 후 한개의 파일로...

#!/usr/bin/perl
use strict;
my %passHash;
open my $fh_a, "a.txt"
while(<$fh_a>){
    my $uid;
    ($uid) = (split ":",$_)[2];
    $passHash{$uid} = $_;
}
close $fh_a;
 
open my $fh_b, "b.txt"
while(<$fh_b>){
    my $uid;
    ($uid) = (split ":",$_)[2];
    $passHash{$uid} = $_;
}
close $fh_b;
 
for(sort {$a<=>b} keys %passHash){
    print $passHash{$_};
}

perl -aF: -nle'$h{$F[2]}=$_;END{map{print $h{$_};} sort {$a<=>$b} keys %h}' A.txt B.txt > C.txt