Array to Hash

[yitzle]

Any tips on compacting this sub?

sub readFile($) {
        my $fileName = shift;
        open FILE, "<", $fileName;
        while (<FILE>) {
                my($name,$oldCount,$oldNum) = split /~/;
                $dHash{$name}{'oldCount'} = $oldCount;
                $dHash{$name}{'oldNum'} = $oldNum;
        }
        close FILE;
}

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/