42 |
my $v = $fields[$_]; |
my $v = $fields[$_]; |
43 |
|
|
44 |
$v =~ s{\s*#\s*$}{}; |
$v =~ s{\s*#\s*$}{}; |
45 |
|
$v =~ s{^\s+}{}; |
46 |
|
$v =~ s{\s+$}{}; |
47 |
|
|
48 |
|
# fix tel fields |
49 |
|
$v =~ s{\s+}{#}g if $n =~ m{tel}; |
50 |
|
|
51 |
if ( $v =~ m{#} ) { |
if ( $v =~ m{#} ) { |
52 |
my @v = split(/\s*#\s*/, $v); |
my @v = split(/\s*#\s*/, $v); |
53 |
foreach my $pos ( 0 .. $#v ) { |
foreach my $pos ( 0 .. $#v ) { |
54 |
|
if ( $n =~ m{tel} ) { |
55 |
|
if ( $v[$pos] =~ m{^09} ) { |
56 |
|
$hash->{ $n . '_mobile' } ||= $v[$pos]; |
57 |
|
} else { |
58 |
|
$hash->{ $n . '_fixed' } ||= $v[$pos]; |
59 |
|
} |
60 |
|
} |
61 |
$hash->{ $n . '_' . $pos } = $v[$pos]; |
$hash->{ $n . '_' . $pos } = $v[$pos]; |
62 |
} |
} |
63 |
} |
} |