从Perl脚本返回值

Question

是否可以从另一个调用的Perl脚本返回值（或散列或数组）？

caller.pl

printf("%d",system("callee.pl"));

callee.pl

if(<Went good>)
{
    return(1);
}
else
{
    return(100);        
}

Answer 1

最好的方法是将callee.pl包装在'sub {}'中然后需要脚本并调用它。然后，您可以将sub视为正常过程。

caller.pl

require("callee.pl");
printf("%d",callee());

callee.pl

sub callee {
if(<Went good>)
{
    return(1);
}
else
{
    return(100);        
}
}

1;

Answer 2

系统只会提供退出状态，这不是返回值。 只需从被调用者打印到STDOUT并使用反引号在调用者中捕获。