Perl Script

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"."?Bereich=Hessen&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