Shell Programming and Scripting

perl -e '@x=(10,15,20,30,45,50);printf "0-";for ($i=0;$i<$#x;$i+=2){printf "%d,%d-",$x[$i]-1,$x[$i+1]+1};printf "60\n"'

#!/usr/bin/perl

my @bids = (10, 15, 20, 30, 45, 50);
my $fbidb = 0;
my $fbide = 60;
my $cnt = @bids;

push (@fbid, $fbidb);

for (my $i=0; $i < $cnt; $i=$i+2) {
	my $j = $i +1;
	my $b = $bids["$i"];
	my $e = $bids["$j"];
	$b--;
	$e++;
	push(@fbid, $b, $e);	
}

push(@fbid, $fbide);

$cnt = @fbid;

for (my $i=0; $i < $cnt; $i=$i+2) {
	my $j = $i +1;
	my $b = $fbid["$i"];
	my $e = $fbid["$j"];
	
	if ($b < $e) {
		print "$b-$e\n";
	}		
}

# ./inverse.pl
0-9
16-19
31-44
51-60

perl -e '@x=(10,15,20,30,45,50);printf "0-";for ($i=0;$i<$#x;$i+=2){printf "%d\n%d-",$x[$i]-1,$x[$i+1]+1};printf "60\n"'