Diskussion:Liste der Baudenkmäler in Lindau (Bodensee)

message: Die Liste wurde erstellt mit einem schnell gehackten Perl-Script, Koordinatenabfrage gemäß Benutzer:Ordercrazy/Denkmalparser:
 
 #!/usr/bin/perl
 
 my $scriptversion = "denkmalliste_parser_20120526.pl";
 
 # 20120526: Koordinatenabfrage nachgerüstet - danke Thomas
 #
 # 20120525:	Erste Version, erstellt für Lindau ([DE]-7-76-116-\d*)
 #  Das Programm interpretiert die Datei denkmalliste_merge_776116.txt 
 #  Textversion der Bayerischen Denkmalliste des Bayerischen Landesamtes
 #  für Denkmalpflege, umgewandelt mit pdftotext aus 
 #  denkmalliste_merge_776116.pdf.
 #
 
 use strict;
 
 use I18N::Langinfo qw(langinfo CODESET);
 my $charset = langinfo(CODESET);
 
 binmode STDIN, ":encoding($charset)";
 binmode STDOUT, ":encoding($charset)";
 
 
 my $akte = "";
 my $text = "";
 my $skiplines = 0;
 my $monuments = 0;
 my $ns = "";
 my $ew = "";
 
 &kopf();
 
 while (<>) {
 	chomp; 				# cut end of line char
 	
 	if ( $skiplines ) { 		# Überspringe n Zeilen (header/footer)
 		$skiplines--;
 		next;
 	}
 	
 	if ( /Ortsteil:\s*(.*)/ ) {		# neuer Ortsteil
 		&tabellenzeile( $akte, $text ); # Record fertig, ausgeben
 		if ( $monuments ) {		# wenn bereits Ausgaben waren 
 			print "|}\n\n";		# schließe Tabelle ab
 		}
 		print "=== $1 ===\n\n"; 	# Überschrift
 		print "\n";
 	} elsif ( /[DE]-7-76-116-\d*/ ) {	# Neue Akte
 		&tabellenzeile( $akte, $text );	# Record fertig, ausgeben
 		$akte = $_;
 	} elsif ( /nachqualifiziert/ ) {	# Zeile überspringen
 		&tabellenzeile( $akte, $text ); # Record fertig, ausgeben
 		next;
 	} elsif (/©/) {				# Kopf/Fußzeile
 		$skiplines=8;			# diese und weitere Zeilen überspringen
 		next;
 	} else {
 		$text = "$text $_";		# Beschreibung sammeln
 		#print $text;
 	}
 }
 
 &ende();
 
 
 
 sub kopf()
 {
 	print "\n\n";
 	print "{{Kopf Denkmalliste Bayern\n"; 
 	print "| name=Lindau (Bodensee)\n";
 	print "| link=Lindau (Bodensee)\n";
 	print "| art=Gemeinde\n";
 	print "| bezirk=SW}}\n";
 	print "\n\n";
 	print "== Baudenkmäler nach Ortsteilen ==\n\n";
 }
 
 
 sub tabellenzeile()
 {	
 	if ( $_[0] =~ /D-/ ) {			# Denkmal
 		if ( $_[1] =~ /\s*(.*?)\.\s*(.*?)(,.*)/ ) {
 			$monuments += 1;
 			print "{{Denkmalliste Bayern Tabellenzeile\n";
 			print "|Adresse= $1\n";
 			print "|NS=$ns\n|EW=$ew\n";
 			print "|Bezeichnung= $2\n";
 			print "|Artikel=\n";
 			print "|Beschreibung= $2$3\n";
 			print "|Nummer= $akte\n";
 			if ( $akte =~ /D-7-76-116-533/ ){	# ist es der Milchpilz ? ;)
 				print "|Bild=Milchpilz DSCN9459.JPG\n";
 			} else {
 				print "|Bild=\n";
 			}
 			print "|Commonscat=\n}}\n"
 		}
 	} elsif ( $_[0] =~ /E-/ ) {		# Ensemble
 		if ( $_[1] =~ /\s*(.*?)\.\s*(.*)/ ) {
 			$monuments += 1;
 			print "{{Denkmalliste Bayern Tabellenzeile\n";
 			print "|Adresse=\n";
 			print "|NS=\n|EW=\n";
 			print "|Bezeichnung= $1\n";
 			print "|Artikel=\n";
 			print "|Beschreibung= $2\n";
 			print "|Nummer= $akte\n";
 			print "|Bild=\n";
 			print "|Commonscat=\n}}\n"
 		}
 	}
 	# Strings leeren (call by ref)
 	$_[0] = $_[1] = "";
 }
 
 
 sub ende()
 {
 	print "|}\n\n";
 
 	print "== Anmerkungen ==\n\n";
 	print "\n\n";
 
 	print "== Literatur ==\n\n";
 	print "* \n\n";
 
 	print "== Weblinks ==\n\n";
 	
 	print "* \n";
 
 	print "* \n";
 	print "* \n\n";
 
 	print "\n";
 
 	print "Lindau (Bodensee)\n";
 	print "Baudenkmäler\n";
 	print "\n";
 }
 
 
 sub koord() 
 {
 	# koordinaten fuer die strasse holen
       my $xadr = shift;
 	   my $plz  = 88131;
 	   my $ot   = "";
 	   my $ort  = "Lindau";
 	   my $url="http://api.serversniff.de/wp/m.php?a=de,$plz $ot ($ort),$xadr";
       my $coord=get($url); $coord=~ s/\n//g;
       ($ns,$ew)=split(/\|/,$coord);
 }
 
Zweite Variante der Koordinatenbestimmung:
 
 #!/usr/bin/perl
 
 # PHP/Google Maps: How to get GPS coordinates for address
 # http://www.havlena.net/blog/en/php-a-google-maps-jak-ziskat-gps-souradnice-pro-adresu/
 
 use strict;
 use LWP::Simple;
 
 my $adr="88131+Lindau,Ladestraße+7";
 
 # output: json(default), kml, xml, csv
 my $url="http://maps.google.com/maps/geo?output=csv&q=$adr";
 print "$url\n";
 my $coord=get($url);
 print "$coord\n";
 
 # csv format:
 # 200,8,47.5518700,9.7000200
 
 my ($status,$accuracy,$lat,$long)=split(",",$coord);
 print "|NS=$lat\n|EW=$long\n";
 
 
--Martin Homuth-Rosemann (Diskussion) 11:41, 26. Mai 2012 (CEST)
replies: text: Korrekturen sind immer gerne gesehen, in der Denkmalliste könnten vermutlich einige kleinere Fehler schlummern. --Martin Homuth-Rosemann (Diskussion) 20:21, 28. Jul. 2018 (CEST)

message: Die Zuordnung vieler Objekte passt nicht zu den Gemeindeteilen. Beispielsweise das Objekt Streitelsfinger Straße 38 befindet sich im Gemeindeteil Streitelsfingen, und nicht in Reutin. Liste sollte evtl. überarbeitet werden. 
Gruß --Domi1907 (Diskussion) 00:11, 18. Nov. 2021 (CET)
thread_title:  Zuordnung Objekte Ortsteile