nicht angemeldet
Hallo,
ich möchte von einem Perl-Script ein anderes Per-Script aufrufen. Wie das geht, weiß ich:
z.B. requiere "alarm.pl";
Dabei muss ich an das aufzurufende Script Parameter übergeben, sonst kann ich es nicht ausführen.
Wie geht das? Gibt es Alternativen? Könnt Ihr mir bitte helfen!!
Gruß,
Necla
Die Parameter werden in Klammern gesetzt übergeben und von der aufgerufenen Prozedur mit shift verarbeitet.
Gruss,
Lude
Beispiel:
Parameter:
$AlertMeassage = Ausgabenachricht
$URL = eine URL zu der gesprungen werden soll; ist diese "0", dann wird der naechste Parameter ausgewertet
$goback = wieweit soll in der Browserhistory zurueckgesprungen werden (z.B. "-2")
sub alert
{
my $AlertMessage = shift;
my $URL = shift;
my $goback = shift;
# Interessant - :-)
print "Content-Type: text/html\n\n";
print "<html>\n";
print "<head>\n";
print "<script language="JavaScript">\n";
print "function onLoadJob()\n";
print "{\n";
print "alert("".$AlertMessage."");\n";
if ($URL eq '')
{
print "window.history.go($goback);\n";
}
else
{
print 'document.location.href="'.$URL."";\n";
}
print "}\n";
print "</script>\n";
print "</head>\n";
print "<body onLoad="javascript:onLoadJob()">\n";
print "</body>\n";
print "</html>\n";
}