#!/usr/bin/perl

# author:	Allen Evans
# title:	Lab3 assignemnt
# purpose:	Calculate average file size (avfsz) 

# open Lab3.txt file
# ==================
open(INPUT, "./Lab3.txt") or die "Can't open Lab3.txt\n";

# declare variables
# =================
# unnecessary in perl, but good coding habits are tough to make
$date = "";
$time = "";
$ampm = "";
$filesize = 0;
$filename = "";
$totalfilesize = 0;
$averagefilesize = 0;
$i = 0;

# while not eof
# =============
while ($line = <INPUT>) {

($date, $time, $ampm, $filesize, $filename) = split(" ", $line);


# determine $filesize
# ===================
# print "filesize: $filesize\n";			# debugging code
$totalfilesize += $filesize;				# create $totalfilesize variable
# print "totalfilesize: $totalfilesize\n";		# debugging code


# remove commas from $filesize string
# ===================================
# NSTR					        	# place holder


# convert $filestize string to numeric
# ====================================
# NSTR							# place holder


# calculate totalfilesize and average, increment i
# ================================================
$i += 1;						# increment $i (denom)
# print "i: $i\n";					# debugging code
$averagefilesize = $totalfilesize / $i;		        # calculate $averagefilesize
# print "averagefilesize: $averagefilesize\n\n";	# debugging code
}

# print output
# ============
print "$filesize	$filename\n";			# print output to screenn
print "Total Files: $i  Avg Size: $averagefilesize\n\n";