Diskussion:Liste der Baudenkmäler in Lindau (Bodensee)
aus Wikipedia, der freien Enzyklopädie
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.
oder
Füge neue Diskussionsthemen unten an:
Klicke auf , um ein neues Diskussionsthema zu beginnen, und unterschreibe deinen Beitrag bitte mit oder --~~~~.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)
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)
- 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)
Zuordnung Objekte Ortsteile
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)
