Opened by dater at 2010-02-10 15:55
User since
2006-03-29
1520 Artikel
BenutzerIn
2006-03-29
1520 Artikel
BenutzerIn
Erstmal so kleine anmerkungen zum Code.
1) Ist der gar nicht lauffähig weil nicht vollständig.
2) Parameter
Parameter selber zu verarbeiten ist unnötig, du hast das CGI Objekt. Da kannst und solltest du dann
machen wenn du den Schlüssel "PARTNERID" aus der URL auslesen möchtest.
3) Temp Dateien
Anstatt soetwas nutze File::Temp um Temp Dateien zu generieren.
1) Ist der gar nicht lauffähig weil nicht vollständig.
2) Parameter
Code: (dl
)
1
2
3
4
5
6
7
my @params = split(/&/,$ENV{QUERY_STRING});
foreach (@params){
($key, $val) = split (/=/,$_);
$param{$key} = $val;
};Parameter selber zu verarbeiten ist unnötig, du hast das CGI Objekt. Da kannst und solltest du dann
Code: (dl
)
$q->param('PARTNERID')3) Temp Dateien
Code: (dl
)
1
2
3
4
5
#Eindeutiger Dateiname inkl. Pfad bilden aus Timestamp + Zufallszahl z.B.: /srv/www/webshop1/web888w/dattrans/backup_bechtle_order/20100209_345.xml
my $strTimeStamp = myCurrentDate().time();
#Randomize
my $strDateiname = $strDataPath.$strTimeStamp."_".int(rand()*1000).".xml";
Anstatt soetwas nutze File::Temp um Temp Dateien zu generieren.
Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de