37 |
|
|
38 |
warn "# fields = ",dump( @fields ) if $debug; |
warn "# fields = ",dump( @fields ) if $debug; |
39 |
|
|
40 |
$hash->{ $columns[$_] } = $fields[$_] foreach ( 0 .. $#fields ); |
foreach ( 0 .. $#fields ) { |
41 |
|
my $n = $columns[$_]; |
42 |
|
my $v = $fields[$_]; |
43 |
|
|
44 |
|
$v =~ s{\s*#\s*$}{}; |
45 |
|
|
46 |
|
if ( $v =~ m{#} ) { |
47 |
|
my @v = split(/\s*#\s*/, $v); |
48 |
|
foreach my $pos ( 0 .. $#v ) { |
49 |
|
$hash->{ $n . '_' . $pos } = $v[$pos]; |
50 |
|
} |
51 |
|
} |
52 |
|
$hash->{ $n } = $v; |
53 |
|
} |
54 |
|
|
55 |
warn dump( $hash ) if $debug; |
warn dump( $hash ) if $debug; |
56 |
|
|