forum.lissyara.su

Код: Выделить всё

id="545931" lat="48.7072377" lon="9.6465332" version="6" timestamp="2009-08-17T07:50:21Z" changeset="2174074" uid="110363" user="Frank9652";k="addr:city" v="G?ppingen";k="addr:country" v="DE";k="addr:housename" v="Kreis-Medien-Zentrum & Radiofips";k="addr:housenumber" v="22";k="addr:postcode" v="73033";k="addr:street" v="Eberhardstra?e"

Код: Выделить всё

	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;
				#print $string."\n";
				my @arr = split(/;/,$string);
				foreach my $element (@arr) {
					my @L = split(/ /,$arr[0]);
					foreach my $l(@L) {
						$L[1] =~ s/lat="//;
						$L[1] =~ s/"//;
						$lat = $L[1];
						$L[2] =~ s/lon="//;
						$L[2] =~ s/"//;
						$lon = $L[2];
					}
					if ($element =~ m/"addr:city"/) {
						for ($element) {
							s/k="addr:city" v="//;
							s/"//;
						}
				#		#$element =~ s/k="addr:city" v="//;
				#		#$element =~ s/"//;
						$ort = $element;
					}
					if ($element =~ m/"addr:postcode"/) {
						for ($element) {
							s/k="addr:postcode" v="//;
							s/"//;
						}
				#		#$element =~ s/k="addr:postcode" v="//;
				#		#$element =~ s/"//;
						$plz = $element;
					}
					$csv = $lat.";".$lon.";".$plz.";".$ort."\n";
					#print $csv;
				}
			}
		}
		return $csv;
	}