Parameterübergabe zwischen Perl-Scripten
Necla
- perl
0 Lude0 Michael Schröpl
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
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:
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";
}
Hi,
ich möchte von einem Perl-Script ein anderes Per-Script aufrufen.
Wie das geht, weiß ich:
z.B. requiere "alarm.pl";
das ist aber kein "Aufruf eines Skripts", sondern ein "Einbinden eines
Moduls". Und weil es kein Aufruf ist, kannst Du auf diese Weise m. E.
auch keine Parameter übergeben.
Wie _will_ denn das zweite Skript aufgerufen werden?
Meinst Du wirklich ein Perl-Skript oder (weil wir hier im WWW-Kontext
sind) eine in Perl realisierte CGI-Anwendung, die via HTTP kontaktiert
werden muß?
Viele Grüße
Michael