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

Letzter Kommentar: vor 2 Jahren von Domi1907 in Abschnitt Zuordnung Objekte Ortsteile
Diese Diskussionsseite dient dazu, Verbesserungen am Artikel „Liste der Baudenkmäler in Lindau (Bodensee)“ zu besprechen. Persönliche Betrachtungen zum Thema gehören nicht hierher. Für allgemeine Wissensfragen gibt es die Auskunft.

Füge neue Diskussionsthemen unten an:

Klicke auf Abschnitt hinzufügen, um ein neues Diskussionsthema zu beginnen.

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 "{{Denkmalliste Bayern Tabellenkopf|Gemeinde=Lindau}}\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 "<!-- created with $scriptversion -->\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 "<ref group=\"Anm.\">{{Disclaimer Baudenkmal in Bayern}}</ref>\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 "<references group=\"Anm.\" />\n\n";
 
 	print "== Literatur ==\n\n";
 	print "* {{Quelle Denkmalliste Bayern|Swb}}\n\n";
 
 	print "== Weblinks ==\n\n";
 	
 	print "* {{Commonscat|Cultural heritage monuments in Lindau (Bodensee)|Bildersammlung zu Baudenkmälern in Lindau (Bodensee)}}\n";
 
 	print "* {{BayernViewer Denkmal}}\n";
 	print "* {{BayLADenkm|776116|Lindau}}\n\n";
 
 	print "{{Navigationsleiste Baudenkmäler im Landkreis Lindau (Bodensee)}}\n";
 
 	print "[[Kategorie:Liste (Baudenkmäler in Bayern)|Lindau (Bodensee)]]\n";
 	print "[[Kategorie:Lindau (Bodensee)|Baudenkmäler]]\n";
 	print "{{All Coordinates}}\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)Beantworten

Ich habe ein Leerzeichen hinzugefügt, sehe aber, dass es auch in der Denkmalliste des Bayerischen Landesamtes für Denkmalpflege fehlt; wollen wir dem Original folgen oder können Korrekturen vorgenommen werden? (@Martin Homuth-Rosemann) -- IvanP (Diskussion) 09:57, 28. Jul. 2018 (CEST)Beantworten

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)Beantworten

Zuordnung Objekte Ortsteile

Bearbeiten

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)Beantworten