|
| von Michael Schnitker freundlicherweise zur Verfügung gestellt:
use LWP::Simple;
### Initialisierung
@felder = ("Liga","Bezeichnung","Gruppe","Datum1","Datum2", "Kickoff","Heim","Heimname","Heimkürzel","Gast","Gastname","Gastkürzel", "TDHeim","TDGast","Q1Heim","Q1Gast","Q2Heim","Q2Gast","Q3Heim","Q3Gast", "Q4Heim","Q4Gast","Stadion","Kommentar");
$afvd_url = "http://vereine.football-verband.de/exportspielplan.php3"."?Liga=DBL&Gruppe="; # hier entsprechend die gewünschten Filter, d.h. die Liga, bzw. die Gruppe nach dem =eintragen
$seite = get($afvd_url);
@afvd_daten_gesamt = split(/ /, $seite);
$begegnung=1;
### end Initialisierung ###
### EINLESEN
### Hier werden alle erhaltenen Daten entsprechend
### der Nummer der Begegnung und der Felder als Referenz
### abgelegt
foreach $afvd_daten_einzeln (@afvd_daten_gesamt)
{
$feld = 0;
@afvd_daten_einzeln = split(/;/, $afvd_daten_einzeln);
foreach $afvd_daten (@afvd_daten_einzeln)
{
$daten{$begegnung}{$felder[$feld]} = $afvd_daten;
$feld++;
} #foreach
$begegnung++;
} #foreach
### end EINLESEN ###
### AUSGABE
### Die Daten können gezielt ausgegeben werden,
### indem mit "$daten{Nummer der Begegnung}{welches Feld}"
### auf die entsprechenden Referenzen zugegriffen wird
for ($zaehler=1;$zaehler<$begegnung;$zaehler++)
{
### Beispiel: Ausgabe aller Begegnungen und Felder
print "$daten{$zaehler}{'Liga'}($daten{$zaehler}{'Bezeichnung'})/$daten{$zaehler}{'Gruppe'} - $daten{$zaehler}{'Datum1'}/$daten{$zaehler}{'Datum2'} - $daten{$zaehler}{'Kickoff'} - $daten{$zaehler}{'Heim'}/$daten{$zaehler}{'Heimname'}/$daten{$zaehler}{'Heimkürzel'} - $daten{$zaehler}{'Gast'}/$daten{$zaehler}{'Gastname'}/$daten{$zaehler}{'Gastkürzel'} - $daten{$zaehler}{'TDHeim'}:$daten{$zaehler}{'TDGast'} ($daten{$zaehler}{'Q1Heim'}:$daten{$zaehler}{'Q1Gast'}/$daten{$zaehler}{'Q2Heim'}:$daten{$zaehler}{'Q2Gast'}/$daten{$zaehler}{'Q3Heim'}:$daten{$zaehler}{'Q3Gast'}/$daten{$zaehler}{'Q4Heim'}:$daten{$zaehler}{'Q4Gast'}) - $daten{$zaehler}{'Stadion'} - $daten{$zaehler}{'Kommentar'} ";
}
### end AUSGABE ### | | Drucken Top |
|
| | |