求助shell（）

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

1^# paminy 发表于 2008-04-30 08:49

求助shell（）

我的dump－lab文件内容如下：
#!/usr/bin/perl
shell("");

运行./dump－lab出错如下：
Undefined subroutine &main::shell called at ./dump-lab line 2.

请问是为何呢？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

2^# churchmice 发表于 2008-04-30 09:01

QUOTE:

原帖由 paminy 于 2008-4-30 08:49 发表
我的dump－lab文件内容如下：
#!/usr/bin/perl
shell("");

运行./dump－lab出错如下：
Undefined subroutine &main::shell called at ./dump-lab line 2.

请问是为何呢？

不是很清楚了么？
underfined subroutine
先看看perl里面的subroutine是怎么定义的

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

3^# paminy 发表于 2008-04-30 09:23

shell不是自带的函数吗？
还要再写一个？

churchmice

UID: 31829
帖子: 2
积分: 4
在线时间: 10 分钟

4^# churchmice 发表于 2008-04-30 10:17

QUOTE:

原帖由 paminy 于 2008-4-30 09:23 发表
shell不是自带的函数吗？
还要再写一个？

QUOTE:

<lig@romeo:~/perl/programming_perl>$ perldoc -f shell
No documentation for perl function `shell' found

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

5^# paminy 发表于 2008-04-30 11:04

对不起，我弄错了，是system（）函数！

paminy

UID: 28511
帖子: 172
积分: 395
在线时间: 1 天 16 小时

6^# paminy 发表于 2008-04-30 11:36

脚本目的是将dump1文件的“”内容用“myfile文件”替换保存在文件dump。
以下是脚本：

#!/usr/bin/perl
open(myfilein,"/root/myfile.txt");
@myfile=<myfilein>;
#system("echo @myfile");
system("sed 's/\""/\"@myfile\"/' /root/dump-lab/dump1 >/root/dump-lab/dump");

运行结果对dump没做任何改动！
而如果在终端输入sed 's/\""/\"@myfile\"/' /root/dump-lab/dump1 >/root/dump-lab/dump命令，则将dump1文件的“”替换为“ @myfile”。
请问原因？