Dieses Script geht in der Shell,
aber nicht im Browser.
was heißt geht?
Was macht es dort?
#!/usr/bin/perl
#!/usr/bin/perl -w
use strict;
Du liest doch eigentlich hier mit, ohne use strict solltest du gar nicht anfangen Perl Programme zu schreiben.
sub errormessage
{
print $_[0]."\n";
Das geht einfacher:
print "$_[0]\n";
}
open (DATA, "< readme.txt") || &errormessage($!);
Der '&' Operator ist Perl 4 Syntax und du solltest ihn nur verwenden wenn du weißt warum. Ansonsten lass ihn einfach weg.
Aber eigentlich sollte das Skript laufen.
Struppi.