#!/usr/bin/env perl
#
# Perl language Hello World! (and then some...) 
use strict;
use warnings;

my @animals = ("camel", "llama", "owl");
my %fruit_color = (apple => "red", banana => "yellow");
my @fruits = keys %fruit_color;
my @colors = values %fruit_color;
my $verinfo = `git describe --abbrev=7 --dirty --always --tags`;

# Obligatory Hello World with some version info
print "Hello Perl World!  Version:  $verinfo\n";

# Show list of command line arguments
print "Command line args: @ARGV\n";
print "ARGV[0] = $ARGV[0]";
print "ARGV[1] = $ARGV[1]";
print "ARGV[2] = $ARGV[2]";

# print out our animals array in reverse-sorted order
print "\nValue of animals array:\n";
foreach (reverse @animals) {
	print 'item = ' .  $_ . "\n";
	if ($_ eq $animals[0]) {
		print "   Condition is TRUE, \"$_\" eq " . "$animals[0]\n";
	} else {
		print "   Condition is FALSE, \"$_\" ne " . "$animals[0]\n";
	}
}

# print our fruit_color hash (key/value pairs)
print "\nValue of fruit_color hash:\n";
foreach (keys %fruit_color) {
	print "$_ = $fruit_color{$_}\n";
}

# Let's create the file test.out and write animals array to it...
print "\nWriting test.out file...\n";
open(my $out, ">", "test.out") or die "Can't create/open test.out! $!\n";
foreach (@animals) {
	print $out "$_\n";
}
close $out or die "$out: $!\n";

# Now open the file we wrote and read it back...
print "\nContents of test.out file:\n";
open (my $in, "<", "test.out") or die "Can't open test.out! $!\n";
my $linenum = 1;
while (<$in>) {
	print "line $linenum: $_";
	$linenum += 1;
}
close $in or die "$in $!\n";