Parent Directory | Revision Log | Patch
revision 104 by dpavlin, Sun Oct 26 23:12:16 2008 UTC | revision 105 by dpavlin, Tue Feb 3 18:41:06 2009 UTC | |
---|---|---|
# | Line 28 sub proc2hash { | Line 28 sub proc2hash { |
28 | while(<$fh>) { | while(<$fh>) { |
29 | chomp; | chomp; |
30 | my ( $key, $value ) = split(/:\s+/, $_, 2); | my ( $key, $value ) = split(/:\s+/, $_, 2); |
31 | $value =~ s/ m[VW]h*$//; | $value =~ s/ m[AVW]h*$//; |
32 | $h->{$key} = $value; | $h->{$key} = $value; |
33 | } | } |
34 | warn "$f ",dump( $h ) if ( $debug ); | warn "$f ",dump( $h ) if ( $debug ); |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |