#!/usr/bin/perl -w
#=====================================#
# statischer Teil der Seite, kann mit #
# html-Kenntnissen editiert werden #
#=====================================#
#Datum
$datum = `date`;
#Kopfteil
#hier kann insbesondere das Layout veraendert werden
$kopf .= " \n";
$kopf .= " \n";
$kopf .= " \n";
$kopf .= "Stammtischkarte \n";
$kopf .= " \n";
$anfang .= " \n";
$anfang .= " \n";
$anfang .= "Stammtischkarte
\n";
#$anfang .= " \n";
#Seitenende
#hier stehen datum, weiterfuehrende Links, etc
$ende .= " \n";
$ende .= " |
\n";
$ende .= "
\n";
$ende .= "
\n";
$ende .= "www.BVSM.de
\n";
$ende .= "zuletzt geändert am: $datum \n";
$ende .= " \n";
$ende .= " \n";
#=====================================#
# Ende statischer Teil #
#=====================================#
open(EINGABE,"< staedte.txt") or die "Fehler beim Öffnen von stadte.txt: $ !\n";
open(AUSGABE,"> Stammtischkarte.html") or die "Fehler beim Öffnen von 'Stammtischkarte.html': $!\n";
open(DUMMY,"> stammtischliste.html") or die "Fehler beim Öffnen von 'stammtischliste.html': $!\n";
#Einlesen aller Zeilen von 'staedte.txt'
while( defined($i= ) ) {
#Zerlegen der Zeilen
@b = split(/ /,$i);
$ort = $b[0];
#Umrechnung von Breite und Laenge in Koordinaten
#bedenke Angabe in Minuten!
$komma = index($b[1],",");
$breite[1] = substr($b[1],0,$komma);
$breite[2] = substr($b[1],$komma+1);
$komma = index($b[2],",");
$laenge[1] = substr($b[2],0,$komma);
$laenge[2] = substr($b[2],$komma+1);
#Zahlen aus linearem Fitt einiger Staedte
$t = 6928.1 - 124.79*($breite[1]+$breite[2]/60) +0; #offset
$l = -460.24 + 79.39*($laenge[1]+$laenge[2]/60) +0; #offset
#zur Kontrolle
print $ort,"\n";
print "$b[1]","\ \ ", "$b[2]";
print "$breite[1]",",","$breite[2]","\ \ ","$laenge[1]",",","$laenge[2]";
print $breite[1]+$breite[2]/60,"\ \ ",$laenge[1]+$laenge[2]/60,"\n";
print "$t","\ \ ", "$l","\n";
#Unterdruecken der Nachkommastellen
$t =~ /(\w+)/;
$top = $&;
$l =~ /(\w+)/;
$left = $&;
#Accumulation der Strings
$koordinaten .= "\#$ort {position:absolute; top:$top px; left:$left px; } \n";
#$links .= "\n";
$links .= "\n";
$stadt .= "$ort
\n";
}
$koordinaten =~ s/ px/px/g;
#print "$links";
#Ausgabe
print AUSGABE "$kopf";
print AUSGABE "$koordinaten";
print AUSGABE "$anfang";
#print AUSGABE " \n";
print AUSGABE " \n";
print AUSGABE "$links";
print AUSGABE "$ende";
print DUMMY "$kopf";
print DUMMY "$anfang";
print DUMMY "$stadt";
print DUMMY " \n![](\"stadt.png\" "\\"$ort\\"")