如何將變量從調用 perl 腳本傳遞到調用 perl 腳本？

Question

我有一個父/調用 shell 腳本“parent.sh”，該腳本調用 perl 腳本“child.pl”。 在“child.pl”中，我有“$x = 1000”，如何在不使用退出狀態的情況下將 x 返回給父級/調用“parent.sh”？

Answer 1

反引號允許您捕獲孩子的 output。

my $stdout_of_child = `perl -e'print 1000'`;

die( "Can't launch child: $!\n" )                   if $? == -1;
die( "Child killed by signal ".( $? & 0x7F )."\n" ) if $? & 0x7F;
die( "Child exited with error ".( $? >> 8 )."\n" )  if $? >> 8;

有關文檔，請參閱 perlop 中的qx 。

另見 IPC::System::Simple 和 IPC::Run 的capturex 。

要交換更復雜的數據結構，可以使用 JSON、YAML 等序列化數據。