问个拍砖的问题

ouyangyu139

可不可以把shell命令写入perl程序中，
当perl程序运行时碰到那些shell命令就自动运行。

(不要拍偶阿):wink:

福瑞哈哥

你要干什么，在Perl程序中透明地使用Shell命令，就像CPAN上Shell模块自己说的？

ouyangyu139

恩 好象就是你说的那意思！
有例子看看吗？

福瑞哈哥

原帖由 ouyangyu139 于 2007-3-15 11:08 发表
恩 好象就是你说的那意思！
有例子看看吗？

use Shell;

$p = cat('/tmp/file');
print $p;

ouyangyu139

use Shell 中 的命令是不是所有shell的命令？
还有命令能否结合使用？

alexru

应该可以的，用Shell 模块和直接在Shell下工作是一样的

xuxingyu

在perl里｀command｀就能执行系统命令呀

福瑞哈哥

原帖由 ouyangyu139 于 2007-3-15 11:29 发表
use Shell 中 的命令是不是所有shell的命令？
还有命令能否结合使用？

Shell模块是通过AUTOLOAD自动把程序中不可识别的函数转化为系统命令调用的，因此应该是所有的命令都可以，除了那些跟Perl函数重名的，比如unlink等。

命令可以结合使用，出了最开始的那个命令被当作函数使用，其他的都要作为参数。

比如：

use Shell;

$c = ls('/tmp | cat | wc -l');

print $c;

月魔

perl入门里有讲 可以用system和exec 函数执行

还可以直接用反引号捕获执行的命令

先去看书吧