Исходное сообщение
"  неопределенная переменная в perl" Отправлено motorini, 26-Мрт-14 13:42
sdelal vot tak:     sub parse {         my($string)=@_;         my $lat = "UnDefine";         my $lon = "UnDefine";         my $ort = "UnDefine";         my $plz = "UnDefine";         $csv = "";         if ($string =~ m/"addr:postcode"/) {             if ($string =~ m/"addr:city"/) {                 $string =~ s/<node //;                 $string =~ s/><tag//;                 $string =~ s/\/><tag//g;                 $string =~ s/\/>//;                 $string =~ s/ k/;k/g;                 my @arr = split(/;/,$string);                 for (@arr) {                     if (/.*\slat="([0-9\.]+)"\slon="([0-9\.]+)"\s.*/) {$lat = $1; $lon = $2;}                     if (/.*city\"\sv="(.*)"/) {$ort = $1;}                     if (/.*postcode\"\sv="([0-9]+)"/) {$plz = $1;}                 }                 $csv = $lat.";".$lon.";".$plz.";".$ort."\n";             }         }         return $csv;     } molotit kak chasy.. ) spasibo ogromnoe.. s menja pivo pri sluchae.. )

Ваше сообщение
Имя*:
EMail:	Для отправки новых сообщений в текущей нити на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:	> sdelal vot tak: > sub parse { > my($string)=@_; > my $lat = "UnDefine"; > my $lon = "UnDefine"; > my $ort = "UnDefine"; > my $plz = "UnDefine"; > $csv = ""; > if ($string =~ m/"addr:postcode"/) { > if ($string =~ m/"addr:city"/) { > $string =~ s/<node //; > $string =~ s/><tag//; > $string =~ s/\/><tag//g; > $string =~ s/\/>//; > $string =~ s/ k/;k/g; > my @arr = split(/;/,$string); > for (@arr) { > if (/.*\slat="([0-9\.]+)"\slon="([0-9\.]+)"\s.*/) {$lat = $1; $lon = > $2;} > if (/.*city\"\sv="(.*)"/) {$ort = $1;} > if (/.*postcode\"\sv="([0-9]+)"/) {$plz = $1;} > } > $csv = $lat.";".$lon.";".$plz.";".$ort."\n"; > } > } > return $csv; > } > molotit kak chasy.. ) spasibo ogromnoe.. s menja pivo pri sluchae.. )
	Введите код, изображенный на картинке: