49 |
$v =~ s{\s+}{#}g if $n =~ m{tel}; |
$v =~ s{\s+}{#}g if $n =~ m{tel}; |
50 |
$v =~ s[\x{17d}][F] if $n =~ m{spol}; |
$v =~ s[\x{17d}][F] if $n =~ m{spol}; |
51 |
|
|
52 |
if ( $v =~ m{#} ) { |
if ( $v =~ m{#} ) { # subfields delimiter in CSV data |
53 |
my @v = split(/\s*#+\s*/, $v); |
my @v = split(/\s*#+\s*/, $v); |
54 |
foreach my $pos ( 0 .. $#v ) { |
foreach my $pos ( 0 .. $#v ) { |
55 |
if ( $n =~ m{tel} ) { |
if ( $n =~ m{tel} ) { |
61 |
} |
} |
62 |
$hash->{ $n . '_' . $pos } = $v[$pos]; |
$hash->{ $n . '_' . $pos } = $v[$pos]; |
63 |
} |
} |
64 |
|
|
65 |
|
$hash->{ $n } = [ @v ]; |
66 |
|
} else { |
67 |
|
$hash->{ $n } = $v; |
68 |
} |
} |
|
$hash->{ $n } = $v; |
|
69 |
} |
} |
70 |
|
|
71 |
warn dump( $hash ) if $debug; |
warn dump( $hash ) if $debug; |