Shell Programming and Scripting

echo '[dlb=Qdlb1+=MlPxlRx]sC [sbq]sM [lan[-]nlbpst]sP [q]sQ [dsasb]sR' | cat - data \
| sed '2,$s/-/_/; 2s/.*/& lRx/; 3,$s/.*/& lCx/; $s/.*/& lPx/' | dc

$ cat data
-100
-99
-98
-97
-96
-4
-3
-2
-1
0
1
2
3
4
5
1
2
3
3
3
4
5
14
15
16
17
18
$
$ echo '[dlb=Qdlb1+=MlPxlRx]sC [sbq]sM [lan[-]nlbpst]sP [q]sQ [dsasb]sR' | cat - data \
> | sed '2,$s/-/_/; 2s/.*/& lRx/; 3,$s/.*/& lCx/; $s/.*/& lPx/' | dc
-100--96
-4-5
1-5
14-18

#!/usr/local/bin/perl

use strict;
use warnings;

my $count=0;
my @arr=();

 my @data = <DATA>;

  foreach my $rec (@data) {
  $count++;
  chomp $rec;

  if ($rec == $data[-1]) {
    if ($rec-1 != $arr[-1]) {
    print "$arr[0]-$arr[-1]\n";
    print "$rec-$rec\n";
    exit;  }
    else {
    push @arr, $rec;
    print "$arr[0]-$arr[-1]\n";
    exit; }
    }

  if ($count == 1) {
  push @arr, $rec; }

  else {
  if ($rec-1 != $arr[-1]) {
  print "$arr[0]-$arr[-1]\n";
  @arr=();
  push @arr, $rec;
  $count=1; }
 
  else {
  push @arr, $rec; }
 }
}

__DATA__
1
2
3
4
5
6
7
12
13
14
15