Maike: Problem mit Perl lösen!

Beitrag lesen

hiho,

Ja. Wenn ich will, daß mir jemand hilft, dann muß ich ihm vertrauen und  den Quelltext zur Verfügung stellen. (Wenns viel ist als Download).

Hier kannst du die den kompletten Quelltext ansehen:
http://www.treffpage.de/forum.pl

Hier der Ausschnitt, der die Antwortlinks zum Beitrag erzeugt:

print "<p style="margin-top: 0px; margin-bottom: 5px;"><b>Antworten zu diesem Diskussionsbeitrag:</b></p>";
 $zaehler=0;
 $aktuelletiefe=length($aktuellenummer);
 for ($z=0;$z<=$laenge;$z+=1)
 {
  if (length($zwischendaten[$z]) > $aktuelletiefe and substr($zwischendaten[$z],0,$aktuelletiefe) eq $aktuellenummer)
  {
   $zaehler=$zaehler+1;
  }
 }
if ($zaehler == 0)
{
 print "Noch keine Antworten vorhanden.";
}
else
{
 for ($z=0;$z<=$laenge;$z+=1)
 {
  $zlaenge=length($zwischendaten[$z]);
  $zwischennummmer=$zwischendaten[$z];
  if ($zlaenge > $aktuelletiefe)
  {
   print "<table border=0><tr align='left'>";
   for ($z2=1;$z2<=($zlaenge/4-2);$z2+=1)
   {
    print "<td width=30>&#160;</td>";
   }
   open(IN,"forum/daten/$zwischendaten[$z].txt");
   $titel=<IN>;
   chomp($titel);
   $nick=<IN>;
   chomp($nick);
   $email=<IN>;
   chomp($email);
   $oeffentlich=<IN>;
   chomp($oeffentlich);
   $benachrichtigung=<IN>;
   chomp($benachrichtigung);
   $url=<IN>;
   chomp($url);
   $tag=<IN>;
   chomp($tag);
   $monat=<IN>;
   chomp($monat);
   $jahr=<IN>;
   chomp($jahr);
   $sekunde=<IN>;
   chomp($sekunde);
   $minute=<IN>;
   chomp($minute);
   $stunde=<IN>;
   chomp($stunde);
   close(IN);
   print "<td align='left'>";
   print "<a href="$skriptpfad?action=ansehen&nummer=$zwischendaten[$z]" style="padding-left: 14px; background-image:url(/images/forum/antwort.gif); background-repeat:no-repeat; background-position: top left; ">$titel</a> von <b>$nick</b>, $tag.$monat.$jahr, $stunde:$minute";
   print "</td></tr></table>";

}

}

}
print "</div></div>";
}