Parent Directory
| 
Revision Log
| 
Patch
| revision 12 by dpavlin, Sun Mar 15 20:39:55 2009 UTC | revision 13 by dpavlin, Sun Mar 15 20:47:15 2009 UTC | |
|---|---|---|
| # | Line 49 foreach my $line ( split(/\r?\n/, $csv) | Line 49 foreach my $line ( split(/\r?\n/, $csv) |
| 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; |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.26 |