Bases
#!/usr/bin/perl -w print "Content-type: text/html\n\n"; ################ ##### Html Wert einlesen use CGI; $query = new CGI; $Seite=$query->param("value"); #################### ##### Daten für Seite öffnen $rw = open(FILE,"$Seite.dat"); while(defined($b = )) {$c = $c . $b;} close(FILE); my @daten = split(/;/,$c); ########## ## Artikelnummern-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=20; $i<($summe); $i++) { $datennummer[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelname-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=21; $i<($summe); $i++) { $datenname[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbeschreibung-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=22; $i<($summe); $i++) { $beschreibung[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelpreis-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=23; $i<($summe); $i++) { $preis[$t] = $daten[$i]; if (length($preis[$t]) < 7) { $rabattpreis[$t] = $daten[$i] * 0.9; $_[0] = $rabattpreis[$t]; my @bidamt = split(/\./, $_[0]); $bidamt[0] = "0" if (!($bidamt[0])); $bidamt[0] = int($bidamt[0]); $bidamt[1] = substr($bidamt[1], 0, 2); $bidamt[1] = "00" if (length($bidamt[1]) == 0); $bidamt[1] = "$bidamt[1]0" if (length($bidamt[1]) == 1); $rabattpreis[$t]= "$bidamt[0].$bidamt[1]"; } $t = $t+1; $i = $i+6; } ########## ## Artikelbild-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=24; $i<($summe); $i++) { $bild[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbildlänge-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=25; $i<($summe); $i++) { $laenge[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ########## ## Artikelbildbreite-Daten extrahieren my $summe = @daten; my $t = 0; for(my $i=26; $i<($summe); $i++) { $breite[$t] = $daten[$i]; $t = $t+1; $i = $i+6; } ############### #### Datennummer - Zeilenumbruch entfernen foreach $datennummer (@datennummer) { $datennummer = reverse($datennummer); for(my $e=0; $e < "2"; $e++) { $Zeichen = "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"; $b = length($Zeichen); $d = 0; for(my $i=0; $i < ($b); $i++) { $a = substr($datennummer,-1,1); $c = substr($Zeichen,$i,1); if ($a eq $c) {$d = 1;} } if ($d eq 0) { chop($datennummer); } } $datennummer = reverse($datennummer); } ############## #### Kategorien einlesen my $summe = 20; my $t = 0; for(my $i=0; $i<($summe); $i++) { $stelle[$t] = $daten[$i]; $t = $t+1; $i = $i+1; } my $summe = 20; my $t = 0; for(my $i=1; $i<($summe); $i++) { $kategorie[$t] = $daten[$i]; $t = $t+1; $i = $i+1; } ############## #### Tabelle schreiben my $summe = @datennummer; my $a = 0; for(my $i=0; $i<($summe); $i++) { if ($i eq $stelle[$a]) { print ""; $a = $a +1; } else { } print " "; print ""; } if ($bild[$i] eq "auswahl"){ print "
Artikel & Preis siehe oben
"; } if ($bild[$i] eq ""){ print "";} if ($bild[$i] eq "auswahl") { print ""; } else { if ($beschreibung[$i] ne "") { print "";} else { print ""; } } print ""; } else { print "
 "; print "
"; } }
Thumbnail
Artikel
Preis / Warenkorb
$kategorie[$a]
"; if (($bild[$i] ne "auswahl") && ($bild[$i] ne "")){ $jpgtest = substr($bild[$i],-4,4); $jpgtest = lc($jpgtest); if (($jpgtest ne ".jpg") && ($jpgtest ne ".gif")) {$bild[$i] = "$bild[$i]".".jpg"; } $thumb = $bild[$i]; chop($thumb); chop($thumb); chop($thumb); chop($thumb); $thumb = $thumb . "_sm.jpg"; print "
$beschreibung[$i]
$datenname[$i]

$beschreibung[$i]
$datenname[$i]
"; if ($bild[$i] ne "auswahl") { print "

Preis : $preis[$i] €

"; print "
";} print "
 "; print "