在PERL中如何调用BASH

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

1^# ant_tree 发表于 2008-01-09 11:34

在PERL中如何调用BASH

各位大侠：
由于项目框架是用BASH搭建的，现在要采用PERL增添功能，所以要调用一些BASH程序，并使用BASH程序中的返回值，但现在不知道在PERL中如何获取这些值，请指教！

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

2^# ly5066113 发表于 2008-01-09 11:50

$?

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

3^# redicaps 发表于 2008-01-09 12:13

``

perljoker

UID: 30669
帖子: 88
积分: 202
在线时间: 10 小时

4^# perljoker 发表于 2008-01-09 12:20

用perl回答问题真诡异啊
不知道的人还以为你们灌水呢

xuxingyu

UID: 36969
帖子: 122
积分: 280
在线时间: 20 小时

5^# xuxingyu 发表于 2008-01-09 12:41

system("echo $?")

doiob

UID: 20086
帖子: 106
积分: 243
在线时间: 15 小时

6^# doiob 发表于 2008-01-09 13:00

反引号``

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

7^# ant_tree 发表于 2008-01-09 13:09

echo $?好象只返回该操作有没有成功啊。

反引号怎么用？可以具体点吗？本人学习PERL没多久，所以请多指教一下

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

8^# ly5066113 发表于 2008-01-09 13:13

QUOTE:

原帖由 ant_tree 于 2008-1-9 13:09 发表
echo $?好象只返回该操作有没有成功啊。

反引号怎么用？可以具体点吗？本人学习PERL没多久，所以请多指教一下

到底是要得到bash脚本的返回值还是它的标准输出呢？

ant_tree

UID: 16473
帖子: 22
积分: 50
在线时间: 10 分钟

9^# ant_tree 发表于 2008-01-09 13:20

标准输出吧
比如：start-run.sh (bash)
#!/usr/bin/bash

count=10;
echo $count;

在call.sh (perl)
#!/usr/bin/perl

system("$value = ${./start-run.sh}");

执行的时候报错：
Bareword found where operator expected。。。
(Might be a runaway multi-line // string starting on line 47)

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

10^# ly5066113 发表于 2008-01-09 13:25

QUOTE:

原帖由 ant_tree 于 2008-1-9 13:20 发表
标准输出吧
比如：start-run.sh (bash)
#!/usr/bin/bash

count=10;
echo $count;

在call.sh (perl)
#!/usr/bin/perl

system("$value = ${./start-run.sh}");

执行的时候报错：
Bareword fou ...

#!/usr/bin/perl

$value = `./start-run.sh`;
print "$value";