Возвращаемое значение из скрипта Perl

Question

Возможно ли вернуть значение (или хэши или массивы) из скрипта Perl, вызванного другим?

caller.pl

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

callee.pl

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

Answer 1

Самый лучший способ, чтобы обернуть callee.pl в 'суб {}', то требуется, то скрипт и назовите его. Затем вы можете обрабатывать субстанцию ​​как обычную процедуру.

caller.pl

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

callee.pl

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

1; 

Answer 2

система будет давать только статус выхода, который не является возвращаемым значением. Просто распечатайте STDOUT с вызываемого абонента и используйте обратные выходы для захвата в вызывающем абоненте.