Christian Kruse: Perl in HTML (Counterproblem)

Beitrag lesen

Hoi,

#neuen Wert schreiben
open(COUNTER, ">$pfad");
print COUNTER "$nummerNEW";
close(COUNTER);

Wo ist das File-Locking?

print "Content-type: text/html\n\n";
print "Location: http:/deineAdresse/bild.gif\n\n";

Richtig waere:

print "Status: 302 Moved temporarily\015\012";
print "Content-Type: text/html\015\012";
print "Location: http://adresse/bild.gif\015\012\015\012";

print <<HTML;
<html>
 <head>
  <title>302 Moved Temporarily</title>
 </head>
 <body>
  <h1>302 Moved Temporarily</h1>
  <p>
   The content of this document has moved to <a href="http://adresse/bild.gif">http://adresse/bild.gif</a>
  </p>
</html>

HTML

Gruesse,
 c.j.k