previous | top | next

Line Noise. AKA Don't Do This


Technical Correctness is Not Synonomous with Overall Software Quality

#!/usr/bin/perl
package HashFromFile;
use Object;
sub make {
    my ($class, %args) = @_;
    my $f=$args{fl};
    my $h = {};
    open(FH, "< $f");
    while (my $l=<FH>) {
        if ($l =~ /^\s+$/) {next;}
        chomp($l);my($k,$v)=split(/:/, $l);
        $h->{$k}=$v;
    }
    close(FH);return $h;
}
1;


Email: bschmaus@combinenet.com