Shell Programming and Scripting

1 2 3 4 5 6 7 8  11 12 13 14

1 -8 , 11-14

1 - 14
1 - 14
1 - 14
1 - 14
1 - 14
1 - 14
1 - 14
1 - 8
11 - 14
1 - 14
1 - 14

#!/usr/bin/perl -w
use strict;
my $i;
my $start;
my @lst_array = qw /1 2 3 4 5 6 7  8 11 12 13 14/;
   $start = $lst_array[0];

      for ($i=1; $i<$#lst_array; $i++){
                 if (($lst_array[$i] - $start) == 1){
                             print "$lst_array[0] - $lst_array[$#lst_array]\n";
                 }
                   elsif (($lst_array[$i] - $start) > 1){
                              print "$lst_array[0] - $start\n";
                              print "$lst_array[$i] - $lst_array[$#lst_array]\n";
                  }
       $start = $lst_array[$i];
}

#!/usr/bin/perl 

use warnings;
use strict; 

my @lst_array = qw (1 2 3 4 5 6 7  8 11 12 13 14);
my $start = $lst_array[0];

for (my $i=1; $i<@lst_array; $i++){
  if (($lst_array[$i] - $lst_array[$i -1]) != 1 ){
    print "$start - $lst_array[$i-1], ";
    $start = $lst_array[$i];
  }
}
print "$start -$lst_array[-1]\n"'