perl能提供shell接口吗？

john.daker

UID: 36690
帖子: 162
积分: 372
在线时间: 1 天 12 小时

1^# john.daker 发表于 2008-11-03 17:46

perl能提供shell接口吗？

提供一个shell这样的命令行，接收用户输入，但是输入不直接shell解释，而是先传给perl，perl再传给shell解释，不知道有没有这样的模块可以直接使用的？

谢谢

ynchnluiti

UID: 39553
帖子: 24
积分: 55
在线时间: 10 分钟

2^# ynchnluiti 发表于 2008-11-03 22:41

#!/usr/bin/perl

print '>';
while (<>) {
    chomp;

    last if /quit|exit/;

    print "Usage: input shell command.\n" if /help/;

    eval { system("$_"); };
    print '>';
}

这样的效果？

QUOTE:

>help
Usage: input shell command.
>ls
abc article color ddd fh out out1 out2 print_time.pm reg.pl stdin test.pl testfh txt
>