#!/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

@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";