Shell Programming and Scripting

while (<>) {
  die "Invalid input" unless m/^(\d+) ([-+])$/);
  my ($number, $sign) = ($1, $2);  # as captured by the previous regex match
  if ($sign eq '+') {
    ++$plusses;
    $previous = $number;
    next;
  }
  # else, must be a minus
  --$plusses;
  push @differences, $previous - $number;
}

while (<>) {
	chomp;
  #die "Invalid input" unless m/^(\d+) ([-+])$/);
  my ($number, $sign) = split("\t");  # as captured by the previous regex match
  if ($sign eq '+') {
    ++$plusses;
    $previous = $number;
    next;
  }
  # else, must be a minus
  --$plusses;
	push @differences, $number - $previous;
	print $number - $previous, "\n";
}

#!/usr/bin/perl 

#use strict;
use warnings;


my ($plusses, $previous, @differences, $h, $diff_value);
$value_100 = '0'; $value_200 = '0'; $value_500 = '0'; $value_750 = '0'; $value_1000 = '0'; $value_1001 = '0';
while (<>) {
	chomp;
  #die "Invalid input" unless m/^(\d+) ([-+])$/);
  my ($number, $sign) = split("\t");  # as captured by the previous regex match
  if ($sign eq '+') {
    ++$plusses;
    $previous = $number;
    next;
  }
  # else, must be a minus
  --$plusses;
	push @differences, $number - $previous;
	$diff_value = $number - $previous;
	if ($diff_value <= 100){
		$value_100++;
		}elsif ($diff_value > 100 && $diff_value <=200){
			$value_200++;
				}elsif ($diff_value >200 && $diff_value <=500){
				$value_500++;
					}elsif ($diff_value >500 && $diff_value <=750){
					$value_750++;
						}elsif ($diff_value >750 && $diff_value <=1000){
						$value_1000++;
							}else {
							$value_1001++;
							}
			
	
}
my $total_value = $value_100 + $value_200 + $value_500 + $value_750 + $value_1000 + $value_1001;
print "\nDistribution:\n";
print "<100 \t\t-\t$value_100\n";
print "100 - 200\t-\t$value_200\n";
print "201 - 500\t-\t$value_500\n";
print "501 - 750\t-\t$value_750\n";
print "751 - 1000\t-\t$value_1000\n";
print ">1001\t\t-\t$value_1001\n";
print "\t\t\t======\n";
print "TOTAL:\t\t\t$total_value\n";
print "\nNo matches: ",$plusses, "\n\n";