Return Wert von einem Perl-Skript
Ist es möglich, einen Wert zurückgeben (oder hashes oder arrays) aus einem Perl-script aufgerufen wird von einem anderen ?
caller.pl
printf("%d",system("callee.pl"));
callee.pl
if(<Went good>)
{
return(1);
}
else
{
return(100);
}
InformationsquelleAutor Jean | 2013-12-03
Du musst angemeldet sein, um einen Kommentar abzugeben.
Der beste Weg ist, um zu wickeln callee.pl in einem " sub {}' dann verlangen, dann script und nennen Sie es. Sie können dann behandeln die sub als einen normalen Vorgang.
caller.pl
callee.pl
sub callee { do 'callee.pl' }
das gleiche Ergebnis zu erzielen.Nur stellen Sie sicher callee.pl endet mit einem True Value wie
1;
Sonst die require () - Funktion fehl.Danke, ich vergaß
InformationsquelleAutor user1937198
System wird nur eine exit-status, das ist nicht ein Wert zurückgeben.
Einfach print auf STANDARDAUSGABE aus aufgerufenen und verwenden backticks zu erfassen, die in Anrufer.
InformationsquelleAutor GWP