Shell Programming and Scripting

10  20  30  11  24  26
11  22  34  -2  88  22
-2  24 12  24  20  -90
         10  28  -9  -80

10  10  28  20  20  -90
11  30  11  22  88  22
-2  34  -2  24  24  26

$
$ cat f1
 10  20  30  11  24  26
 11  22  34  -2  88  22
 -2  24  12  24  20 -90
         10  28  -9 -80
$
$
$ ##
$ perl -lne 'chomp;
>            @x=unpack("A3xA3xA3xA3xA3xA3",$_);
>            push @y, [@x];
>            END {
>              $i=0;
>              while($y[$i][0] ne ""){
>                printf("%s ",$y[$i][0]);
>                for ($j=0; $j<=$#y; $j++){
>                  if ($y[$i][0] eq $y[$j][2] or $y[$i][0] eq $y[$j][3]){
>                    printf("%s %s",$y[$j][2],$y[$j][3]);
>                    break;
>                  }
>                }
>                printf(" %s ",$y[$i][1]);
>                for ($j=0; $j<=$#y; $j++){
>                  if ($y[$i][1] eq $y[$j][4] or $y[$i][1] eq $y[$j][5]){
>                    printf("%s %s",$y[$j][4],$y[$j][5]);
>                    break;
>                  }
>                }
>                $i++;
>                print;
>              }
>            }
>           ' f1
 10  10  28  20  20 -90
 11  30  11  22  88  22
 -2  34  -2  24  24  26
$
$

10  20  30  11  XX  24  26  YY
11  22  34  -2  Q1  88  22  D3E
-2  24 12  24  ZZ  20  -90  AA
         10  28  SS  -9  -80  QQ

10  10  28  20  XX  20  -90  YY
11  30  11  22  Q1  88  22  D3E
-2  34  -2  24  ZZ  24  26  AA

open FH,"<a.txt";
while(<FH>){
chomp;
my @tmp=split;
if($#tmp<5){
  @tmp=('','',@tmp);
}
$hash{$.}->{1}=$tmp[0];
$hash{$.}->{2}=$tmp[1];
$hash1{$tmp[2]." ".$tmp[3]}=1;
$hash2{$tmp[4]." ".$tmp[5]}=1;
}
foreach my $key(sort keys %hash){
  my $str1=$hash{$key}->{1};
  if ($str1 != ""){
  my @t1= grep {/([0-9]{2})?$str1([0-9]{2})?/} keys %hash1;
  my $str2 = $t1[0];
  my $str3=$hash{$key}->{2};
  my @t2= grep {/([0-9]{2})?$str3([0-9]{2})?/} keys %hash2;
  my $str4 = $t2[0];
  print $str1," ",$str2," ",$str3," ",$str4,"\n";
  }
}