#!/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 );
}