#!/usr/bin/perl
use strict;
use warnings;

my @Source_Files;
my @Directories;
my $Regex;
my $Top_Dir;

sub Initialize {
	if ( @ARGV ) {
			$Top_Dir = pop @ARGV;
		}
		else {
			$Top_Dir = ".";
		}
		
		if ( @ARGV ) {
			$Regex = pop @ARGV;
		}
		else {
			$Regex = '\.(?:plx|c(pp)?|h|bat)$';
		}

		push @Directories, $Top_Dir;
}
	
sub Get_Files {
	opendir my $Directory, $_[0] or die "Couldn't open $_[0]: $!\n";
	my @File_List = grep !/^\./, readdir $Directory;
	
	for (@File_List) {
		$_ = $_[0]."/".$_;
	}
	
	return @File_List;
}

sub Sort_Files {
	for (@_) {
		if ( -d $_ ) {
			push @Directories, $_;
		}
		elsif ( $_ =~ /$Regex/ ) {
			push @Source_Files, $_;
		}
	}
	return 1;
}

sub Count_Source {
	my $Total = 0;
	my @Source_Counts;
	for (0..$#Source_Files) {
		open my $file, "<", $Source_Files[$_]
			or die "Couldn't open $Source_Files[$_]: $!\n";
		$Source_Counts[$_] = 0;
		while ( my $line = <$file> ) {
			$Total++;
			$Source_Counts[$_]++;
		}
	}
	push @Source_Counts, $Total;
	return @Source_Counts;
}

sub Print_Results {
	my $Total_Lines = pop @_;
	
	for (0..$#Source_Files) {
		print "$Source_Files[$_]: $_[$_]\n";
	}
	print "Total Lines: $Total_Lines\n";
}
	
{
	Initialize;

	while ( @Directories ) {
		my $Current_Directory = pop @Directories;
		Sort_Files ( Get_Files ( $Current_Directory ) );
	}
	
	Print_Results ( Count_Source );
}