如何用perl写个类shell

EDAlinux

我想给程序加个壳，可以使用命令行的方式访问内部数据，最好输入命令时能和linux shell一样控制自如，哪位高手请指教...

工藤＊新一

把perl脚本文件chmod一下，变成可执行，最好名字简单点，然后放到/usr/bin下面，就可以像用shell命令一样使用了，不知道你是不是这个意思。
我自己写得多文件查找就是这样用的

1. $ fs
   
2. usage: fs [-t filetype]/[-n num]/[-a] [string] [directory](opt)
   
3. To find the string under the directory
   
4. 
   
5.         -t filetype         Search the file in filetype
   
6.         -n num                Print [num] items
   
7.         -a                whole string match
   
8.         -l num                the max level deepth of directory you want to search
   
9.         -N num                select files which contain string of num or more times
   
10.         -c                Match case
    
11.         -i                display the line number
    
12.         -f filename        find the file
    
13. [string]        the string want to search
    
14. [directory]        the directory to search, the default is the current one
    

复制代码

paktc

楼主是想借perl 自己打造一个命令行机制对吧。
然后可以自己设置命令，就像在shell中输入命令一样做perl的事情。

俺试了一下$command=<STDIN>;获取用户输入
然后正则表达式处理$command并作出相应操作。

不过<STDIN>的情况和 直接在shell输入信息的情况有些不同，
编辑一行命令时不能直接退格、左、右，
这些方向键会被转换成字符并显示在命令行上(我是不太习惯)

EDAlinux

对，paktc的实现方式和我一样，我就是觉得这种实现方式很不方便，不能使用左右键编辑，才问有没什么高明的办法来实现的,各位大鸟请指教！

Monox

回复 4# EDAlinux

http://search.cpan.org/search?query=ReadLine&mode=all

flw

楼主是想借perl 自己打造一个命令行机制对吧。
然后可以自己设置命令，就像在shell中输入命令一样做perl的 ...
paktc 发表于 2011-02-14 17:56

用 Term::ReadLine 就可以了。

paktc

刚刚去ubuntu10.04试了一下，
<STDIN> 跟 shell命令read 的效果是类似的，方向键同样会转换为字符。

Desktop:~/$read
test^[[D^[[Ctest  #这里我按下了一个左，一个右，变成了字符

不过可以退格，但是中文的时候退格很郁闷的…… 一个字的编码值就这么对半分了

http://search.cpan.org/~rjbs/perl-5.12.3/lib/Term/ReadLine.pm
Term::ReadLine 那个实例也一样

  use Term::ReadLine;
  my $term = Term::ReadLine->new('Simple Perl calc');
  my $prompt = "Enter your arithmetic expression: ";
  my $OUT = $term->OUT || \*STDOUT;
  while ( defined ($_ = $term->readline($prompt)) ) {
    my $res = eval($_);
    warn $@ if $@;
    print $OUT $res, "\n" unless $@;
    $term->addhistory($_) if /\S/;
  }

==========================================
感觉可以去学一下网页或者可视化编程，自己弄个小框框。 不过路比较长就是了

EDAlinux

我也试了一下效果，跟paktc说的一样。

我看有的软件在没有GUI的时候也是可以左右键移动的，没有出现乱码，不知道是怎么实现的...

paktc

回复 8# EDAlinux


    死心吧…… 应该涉及到框架源码的，
测试情况：
bash下输入方向键 OK，调用pl，方向键变成字符^[[D ^[[C ....
bash下执行 read命令，上下左右同样变成字符    read是bash内嵌的
bash下执行 bc 命令，此时左右键正常移动。 `whereis bc`找到 /usr/bin/bc , 得知bc是一个独立的程序

试了一下 apt-get install fish 安装一个fish终端，这下面的read ，左右键可以使用。
但这个read 是属于fish的   

=。= 由此可知这是一个程序对方向键输入信号截取形式不同。
perl脚本归类于/usr/bin/perl的
不知道perl有没有相关的参数开关？

况且即使解决了这个问题，输入中文的时候用退格键编辑会对半分，最终结果变成乱码，很恐怖

我正准备为此学一下可视化方面的，自己弄一个框算了

py

回复 1# EDAlinux

http://www.focusresearch.com/gregor/sw/psh/

CPAN上有Perl shell(psh)