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 |
if ( $v =~ m{#} ) { |
if ( $v =~ m{#} ) { |
49 |
my @v = split(/\s*#\s*/, $v); |
my @v = split(/\s*#\s*/, $v); |
50 |
foreach my $pos ( 0 .. $#v ) { |
foreach my $pos ( 0 .. $#v ) { |
51 |
$hash->{ $n . '_' . $pos } = $v[$pos]; |
$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; |
$hash->{ $n } = $v; |