Daten in Html ausgabe auf mehrere Seiten verteilen.

[Marcus Vieß]

Jetzt hast du mich total überfordert !

Hilf bitte nochmal.

Ich zeig mal wie weit ich gekommen bin :

use CGI;

my $query = new CGI;
my $line_per_page = 70;

&viewentr if $query->param('wochen') == 1;

sub viewentr
{
open(file, "thumbdat.txt");
@lines=<file>;
close(file);

my $Index = $query->param('Index');
if ($Index eq ''){$Index = 0;}

my $linecount;
my $maxcount = $query->param('Index')+ $line_per_pages;
$maxcount = $#lines if $maxcount>$#lines;

my $nextIndex = $maxcount+1;
my $prevIndex = $query->param('Index') - $line_per_pages;
$prevIndex = 0 if $prevIndex <0;

for($linecount = $query->param('Index');$linecount <$maxcount;$linecount++)
  {
  chomp $lines[$linecount]; # den Zeilenumbruch weg, falls vorhanden;
  # hier die behandlung der Zeile $lines[$linecount]
  }

foreach $line (@lines)
{
@fields=split(/\s*|\s*/,$line);
$thumb=$fields[5];
$thumb=$thumb * 2;
$thumba=$thumb;
$thumba=$thumba / 2;

print <<HTMLF;
<blablabla>
HTMLF
$indexBack=$Index-70;
if ($indexBack < 1) { $indexBack=0 }

print "<a href="http://www.pbtoys.de/cgi-bin/newitemsneu.cgi?Index=$indexBack">70 Products back / zurück</a>";
}
exit;
}