Shell Programming and Scripting

    "SEQ-0      UNSORT2     0", 
    "SEQ-1      UNSORT2     1", 
    "SEQ-2      UNSORT2     2", 
    "SEQ-3      UNSORT2     3", 
                               <--- Missing the SEQ-4 (2nd column still has the same name)
    "SEQ-5      UNSORT2     4", 
    "SEQ-6      UNSORT2     5", 
    "SEQ-7      UNSORT2     6", 
                               <---Althought not follow the sequence, Ignored because the name already different 
    "SEQ-11     UNSORT3     0", 
    "SEQ-12     UNSORT3     1", 
    "SEQ-13     UNSORT3     2", 
    "SEQ-14     UNSORT3     3",
    
    "SEQ-15     UNSORT4     0", 
    "SEQ-16     UNSORT4     1", 
    "SEQ-17     UNSORT4     2", 
                              <--- Missing the SEQ-18 until SEQ-20 (2nd column still has the same name)
    "SEQ-21     UNSORT4     3",   
    "SEQ-22     UNSORT4     4",

SEQ-0&&-3   UNSORT2 0
SEQ-5&&-7   UNSORT2 4
SEQ-10&&-14 UNSORT3 0
SEQ-15&&-17 UNSORT4 0
SEQ-21&&-22 UNSORT4 4

#!/usr/bin/perl
 
use strict;
use warnings;
#use Data:: Dumper;

#---------------------
# Variables definition
#---------------------
my @temp_File;
my @inFile;
my @int_File;
my @store_fl;
my @store_next_fl;
my @hash_File;
my @sort_devs;
my @srt_Fns;
my %HoA;
my %HoB;
my @sorted;

@inFile = (
    "SEQ-0      UNSORT2     0", 
    "SEQ-1      UNSORT2     1", 
    "SEQ-2      UNSORT2     2", 
    "SEQ-3      UNSORT2     3", 
    "SEQ-5      UNSORT2     4", 
    "SEQ-6      UNSORT2     5", 
    "SEQ-7      UNSORT2     6",
    "SEQ-11     UNSORT3     0", 
    "SEQ-12     UNSORT3     1", 
    "SEQ-13     UNSORT3     2",
    "SEQ-14     UNSORT3     3", 
    "SEQ-15     UNSORT4     0", 
    "SEQ-16     UNSORT4     1",   
        "SEQ-17     UNSORT4     2",
        "SEQ-21     UNSORT4     3",
        "SEQ-22     UNSORT4     4",
        );


foreach my $dev_fl(@inFile){
   chomp($dev_fl);    
   @temp_File = split(/(\w+)\-(\d+)\s*(\w+)\s*(\d+)/,$dev_fl);
   push @int_File, $temp_File[2]; 
}

my $start_dev = $int_File[0];

for (my $i=1; $i<@int_File; $i++){
   if(($int_File[$i] - $int_File[$i-1]) != 1){
       push @store_fl, "$temp_File[1]\-$start_dev\&&-$int_File[$i-1]";
       $start_dev = $int_File[$i];      
   }
}
push @store_next_fl, "$temp_File[1]\-$start_dev\&&-$int_File[$#int_File]";

push @store_fl, @store_next_fl; # Add data from @store_next_fl to @store_fl

foreach my $P(@store_fl){
   chomp($P);    
   my ($k, $l, $m) = split(/(\w+\-\d+)\&&-(\d+)/,$P);
   push @{$HoA{'$P'}{$l}}, $m; 

}

foreach my $R(@inFile){
   chomp($R);    
   my ($k, $l, $m, $n) = split(/(\w+\-\d+)\s*(\w+)\s*(\d+)/,$R);
   push @{$HoA{'$R'}{$l}}, $m."\t"."\t".$n; 

}

foreach my $result(keys %{$HoA{'$P'}}){
      if (exists $HoA{'$R'}{$result}){
           foreach my $classR(@{$HoA{'$P'}{$result}}){ 
               foreach my $classP(@{$HoA{'$R'}{$result}}){ 
                  push (@sorted, $result."\&&-".$classR."\t".$classP."\n"); 
                                               
               }
           }
      } 
          
}
    
foreach my $keys_file(@sorted){
   chomp($keys_file);
   my($k, $l, $m, $n) = split(/\s+/,$keys_file); 
   $HoB{$k} = {TRUNK => $l, BCIC_DV => $m};  
}

@sort_devs = 
  map{$_->[0]}
  sort{$a->[1] cmp $b->[1] || $a->[2] <=> $b->[2]}
  map{[$_,$HoB{$_}{TRUNK},$HoB{$_}{BCIC_DV}]} keys %HoB;

foreach my $HoB_Key(@sort_devs){
  push (@srt_Fns,"$HoB_Key\t$HoB{$HoB_Key}{TRUNK}\t\t$HoB{$HoB_Key}{BCIC_DV}\n");
}

print "$_" for (@srt_Fns);