previous | top | next |
#!/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 |