sterben ohne header

[klaus]

Hallo Paul,

'die' schreibt keinen Header, weil Perl eigentlich ja zu r Sysadmin entwickelt wurde.

Vorschlag:

#!/usr/bin/perl -w

my($isHeader) = 0; # Flag, um sich zu merken, ob der Header schon ausgegeben wurde

sub printHeader
{
my($mime) = shift;
if ($isHeader == 0)
   {
   print "Conetent-Type: $mime\n\n";
   $isHeader =  1;
   }
}

sub ErrorMsg
{
my($message) = shift;
&printHeader('text/html');
print "Error : $message\n";  # kann natürlich ausgebaut werden
exit;
}

$ARGV[0] !~ m/[^\d\w/.&-\_]/ ErrorMsg('Fehlerhaftes Argument');
&printHeader('text/html');
print 'still alive';

Vielleicht hilft Dir das weiter

Klaus