#!/usr/local/bin/perl

#This file demonstrates how command line arguments are
#processed in perl

print "There were " . @ARGV . " arguments passed to the program\n";
print "Those arguments are: @ARGV\n";
print "The name of the executable is: $0\n";

---------------------------------------------------------
#!/usr/local/bin/perl -w

$i = 10;

if ($i < 0){
	print "i is less than 0\n";
} elsif ($i < 10) {
	print "i is less than 10\n";
} else {
	print "i is greater than or equal to 10\n";
}

unless ($i > 5){
	print "i is not greater than 5\n";
} else {
	print "i is, in fact, greater than 5\n";
}

---------------------------------------------------------
#!/usr/local/bin/perl -w

%months = ('Jan' => 'January',
	   'Feb' => 'February',
	   'Mar' => 'March',
	   'Apr' => 'April',
	   'May' => 'May',
	   'Jun' => 'June',
	   'Jul' => 'July',
	   'Aug' => 'August',
	   'Sep' => 'September',
	   'Oct' => 'October',
	   'Nov' => 'November',
	   'Dec' => 'December');

@short = keys %months;
@long = values %months;

print "Short names are @short\n";
$" = "\n";
print "Long names are\n@long\n";


---------------------------------------------------------
#!/usr/local/bin/perl -w

@array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);
$i = 0;
foreach $val (@array){
	print "\$val has value of $val\n";
	next if ($val % 2 == 0);
	$val *= 2;
} continue {
	$i++;
	print "We've looked at $i values so far\n";
}
print "\@array now contains @array\n";


---------------------------------------------------------
#!/usr/local/bin/perl -w

@array = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);
@array2 = (11 .. 20);
print "Right now, \@array = @array\nand \@array2 = @array2\n";
#push @array, @array2;
unshift @array, @array2;
print "Now, \@array = @array\nand \@array2 = @array2\n";

$b = pop @array2;
$c = pop @array2;
$d = pop @array2;

@newarray = ($b, $c, $d);
print "old array2 is now @array2\n";
print "New array = @newarray\n";