baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
|
Alle Einträge zum Thema: | Zur Liste |
<perl> $now=datum("jetzt",'JahrMonat0Tag0');
@lines=split/\n/,$content; ## datensätze aufdröseln
shift @lines;
@values=split/;/,@ds; ## einzelne werte des ds aufdröseln $Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$SHOPID&title=$TITEL&descr=$BESCHREIBUNG&place=$ORT&venue=$SPIELSTAETTE" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[2],"SPIELSTAETTE",$values[2],"PROV",$values[2],"KAT",$values[2],"SHOPID",$values[2]],"topevents"; # achtung $values beginnt bei 0 }
$now=datum("-1",'JahrMonat0Tag0');
<perl> $now=datum("-1",'JahrMonat0Tag0');
@lines=split/\n/,$content; ## datensätze aufdröseln
<perl> $now=datum("-1",'JahrMonat0Tag0');
@lines=split/\n/,$content; ## datensätze aufdröseln
shift @lines;
@values=split/;/,@ds; ## einzelne werte des ds aufdröseln $Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$SHOPID&title=$TITEL&descr=$BESCHREIBUNG&place=$ORT&venue=$SPIELSTAETTE" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[2],"SPIELSTAETTE",$values[2],"PROV",$values[2],"KAT",$values[2],"SHOPID",$values[2]],"topevents"; # achtung $values beginnt bei 0 }
shift @lines;
@values=split/;/,@ds; ## einzelne werte des ds aufdröseln $Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$SHOPID&title=$TITEL&descr=$BESCHREIBUNG&place=$ORT&venue=$SPIELSTAETTE" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[2],"SPIELSTAETTE",$values[2],"PROV",$values[2],"KAT",$values[2],"SHOPID",$values[2]],"topevents"; # achtung $values beginnt bei 0 }
$content=get "http://blabla.de/logfiles/$now.csv";
out "http://admin.blabla.de/logfiles/$now.csv"; und guck ob der link korrekt ist bzw ob dann auch unter dieser adresse die fehlermeldung kommt.
$now=datum("-1",'Jahr Monat0 Tag0'); $now=~s/ //g; $content=get "http://blabla.de/logfiles/$now.csv";
$Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$value[7]&title=$value[1]&descr=$value[2]&place=$value[3]&venue=$value[4]" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[3],"SPIELSTAETTE",$values[4],"PROV",$values[5],"KAT",$values[6],"SHOPID",$values[7]],"topevents"; # achtung $values beginnt bei 0
<perl> $now=datum("-1",'Jahr Monat0 Tag0'); $now=~s/ //g; $content=get "http://blabla.de/logfiles/$now.csv"; @lines=split/\n/,$content; ## datensätze aufdröseln
shift @lines;
$Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$value[7]&title=$value[1]&descr=$value[2]&place=$value[3]&venue=$value[4]" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[3],"SPIELSTAETTE",$values[4],"PROV",$values[5],"KAT",$values[6],"SHOPID",$values[7]],"topevents"; # achtung $values beginnt bei 0
</perl>
foreach $ds (@lines){ my @values = split/\n/,$ds; ## aktuellen datensat in Liste einlesen, damit die Werte über ihren Index ausgelesen werden können $Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$value[7]&title=$value[1]&descr=$value[2]&place=$value[3]&venue=$value[4]" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[3],"SPIELSTAETTE",$values[4],"PROV",$values[5],"KAT",$values[6],"SHOPID",$values[7]],"topevents"; # achtung $values beginnt bei 0 }
<perl> $now=datum("-1",'Jahr Monat0 Tag0'); $now=~s/ //g; $content=get "http://blabla.de/logfiles/$now.csv"; @lines=split/\n/,$content; ## datensätze aufdröseln
shift @lines; foreach $ds (@lines){ my @values = split/\n/,$ds; ## aktuellen datensat in Liste einlesen, damit die Werte über ihren Index ausgelesen werden können $Karten=<<EOF; <a href="http://topevents24.cc/shop/default.asp?id=3641&id2=&usid=691104901021&cust=&log=login&agid=&key=&mode=shop&shopid=$value[7]&title=$value[1]&descr=$value[2]&place=$value[3]&venue=$value[4]" target="_blank"> <img border="0" src="http://www.daten-banken.de/infos-ueber-tickets-und-eintrittskarten.gif" width="32" height="16"></a> EOF put ["DATUM",$values[0],"TITEL",$values[1],"BESCHREIBUNG",$values[2],"ORT",$values[3],"SPIELSTAETTE",$values[4],"PROV",$values[5],"KAT",$values[6],"SHOPID",$values[7]],"topevents"; # achtung $values beginnt bei 0 } </perl>
my @values = split/\n/,$ds;
my @values = split/;/,$ds;
$content=get... if($content=~/^DATUM;TITEL;BESCHREIBUNG/){ ##rest des scriptes rein }
Liste der Einträge von 20851 bis 21001: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |