代码之家 › 专栏 › 技术社区 › Vijay

如何将值从Perl程序返回到KornShell脚本?

ksh shell unix perl

Vijay · 技术社区 · 14 年前

我想在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;
}

3 回复 | 直到 14 年前

Greg Bacon 14 年前

分配给 RET1 在shell脚本中,运行perl命令并捕获其标准输出。要使Perl程序继续运行,请将末尾的条件更改为

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

运行它会产生

另一种方法是使用Perl程序的退出状态。用 shell.sh 包含

#! /usr/bin/ksh
RET1=$(${PERL_PATH} missing_months_wrap.pl)
echo $?

改变最后一个条件 missing_months_wrap.pl 到

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

您得到相同的输出:

$ PERL_PATH=/usr/bin/perl ./shell.sh 
1

Paul R 14 年前

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

philant 14 年前

shell脚本可以从$中的Perl脚本中检索退出状态。变量,或者Perl脚本的输出(如果使用backticks或subshell调用)。

perl test.pl
VAR=$?

一定要拿到美元?值在Perl脚本调用之后,因为它可能会更改。

VAR=`perl test.pl`

或 var=$(perl test.pl)

对于第二种方法,变量可以是字符串,对于第一种方法,变量必须是介于0和255之间的整数值。

推荐文章

Manny · 如何比较Perl中的字符串?

2 年前

BioRod · 我不能用Perl打印键和值

2 年前

user17227456 · Perl CLI代码无法追加字符串行

2 年前

LearnToBeBetter · 读取文件,搜索字符串,打印字符串

2 年前

KJ7LNW · 一些波斯语文本的宽字符印刷,但其他文本则没有

2 年前

Amit M · 如何用FFI:Platypus替换cpan Perl实用程序P5NCI

2 年前

con · 如何搜索大型数据结构并返回一系列给出特定值的键/数组?

2 年前

rohithguptha potti · 在LINUX操作系统上执行一些Perl命令时,这些模块可以在LINUX中使用,也可以不在LINUX中使用

2 年前

Tonys AnsonÄ« Misirgis · 当“网站”选项卡关闭时,服务器如何知道关闭websocket的连接

6 年前

Pranay Nanda · 使用regex解析许可证文件

6 年前