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 |
|
$v =~ s{^\s+}{}; |
46 |
|
$v =~ s{\s+$}{}; |
47 |
|
|
48 |
|
if ( $v =~ m{#} ) { |
49 |
|
my @v = split(/\s*#\s*/, $v); |
50 |
|
foreach my $pos ( 0 .. $#v ) { |
51 |
|
$hash->{ $n . '_' . $pos } = $v[$pos]; |
52 |
|
$hash->{ $n . '_mobitel' } = $v[$pos] if $n =~ m{tel} && $v[$pos] =~ m{^09}; |
53 |
|
} |
54 |
|
} |
55 |
|
$hash->{ $n } = $v; |
56 |
|
} |
57 |
|
|
58 |
warn dump( $hash ) if $debug; |
warn dump( $hash ) if $debug; |
59 |
|
|