Hi,

> Also mir geht es echt nur einzig und allein um das extrahieren der
> Straßennamen (ohne Bushaltestellennamen und POI-Namen) aus einem  
> gegebenen
> OSM-File.

#!/usr/bin/perl

while(<>)
{
     next unless (/^\s*<way/);
     $name = "";
     $hwy="";
     while(1)
     {
         if (/<\/way>/)
         {
             print "$name\n" if ($hwy);
             last;
         }
         $name=$1 if (/k="name" v="(.*)"/);
         $hwy=1 if (/k="highway"/);
         $_=<>;
         last unless ($_);
     }
}

> Der Code darf auch gerne richtig grausam sein oder so

Wie gewuenscht. Musst noch ein sort -u dahinterpappen oder halt die  
Namen im Perl in ein Hash schreiben, das war jetzt so ein Schnipsel  
aus meiner Muelltonne.

Bye
Frederik

-- 
Frederik Ramm  ##  eMail [EMAIL PROTECTED]  ##  N49°00'09" E008°23'33"




_______________________________________________
Talk-de mailing list
[email protected]
http://lists.openstreetmap.org/cgi-bin/mailman/listinfo/talk-de

Antwort per Email an