Referenzen in Perl-Skripten werden nicht erkannt

[Peter Squentz]

#!/usr/local/bin/perl

#!/usr/local/bin/perl -w

Das zeigt Dir dumme Fehler an.

print "HTTP/1.0 200 OK\n";
print "Content-type: text/html\n\n\n";

$type = $ENV{'HTTP_USER_AGENT'};

if ($type =~ /Mac/i) {

»»  open (PAGE, "../home_m.html");

open PAGE, '/bla/bla/home_m.html' or die "Kann home_m.html nicht oeffnen: $!";

Benutze absolute Pfade und teste *immer* den Rueckgabewert.

»»  while (<PAGE>)
»»  {

print "$_";

»»  }

print <PAGE>;
»»  close(PAGE);

} else {

»»  open (PAGE, "../home.html");

open PAGE, '/bla/bla/home.html' or die "Kann home.html nicht oeffnen: $!";

»»  while (<PAGE>)
»»  {

print "$_";

»»  }

print <PAGE>;

»»  close(PAGE);

}

Peter