perl - 如何从 Perl 程序返回一个值给 Korn-shell 脚本？

Question

我想在 shell 脚本中执行此操作:

#!/usr/bin/ksh

PERL_PATH=/usr/local/bin/perl

RET1=$(${PERL_PATH} missing_months_wrap.pl)

echo $RET1

我该怎么做？

如上调用 perl 脚本时出现错误:

> shell.sh
Can't return outside a subroutine at missing_months_wrap.pl line 269.

编辑:在 perl 脚本中，语句是:

unless (@pm1_CS_missing_months)
{
$SETFLAG=1;
}

my @tmp_field_validation = `sqlplus -s $connstr \@DLfields_validation.sql`;

unless (@tmp_field_validation)
{
$SETFLAG=1;
}

if ($SETFLAG==1)
{
return $SETFLAG;
}

Answer 1

您需要修改您的 Perl 脚本，以便它输出您需要的值(到标准输出)，然后您可以在您的 shell 脚本中使用该值。