perl 从STDIN读取内容并执行[已解决]

e07610230

想用perl实现交互功能，比如从STDIN读取用户输入的内容并以指令的形式执行，改怎么写？
比如：
“Please enter your command：”
print “HAHA！”
然后perl读取上米面的print并执行它。。。
不知道我有没有描述清楚。

A1985

#!/bin/env perl

use 5.010;
use strict;
use warnings;

say "Please enter your command：";
my $cmd = <>;
#Must check hack problem!
# if bad guy put cmd 'rm -rf /*' ?
# use taint mode!!!
# perl -T cmd.pl
# use regex to parse cmd to check~
eval $cmd;
#check some exception
say $@ if $@;

yangqi666

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. print "Please enter your command:";
   
7. my $input = <STDIN>;
   
8. 
   
9. print "$input\n";
   

复制代码

xlteam2

very good

e07610230

A1985 发表于 2020-12-12 23:02
#!/bin/env perl

use 5.010;

while(1) {    print "Please enter your command: ";
    my $cmd = <>;
    eval $cmd;
}



执行后好像eval没起作用？

A1985

e07610230 发表于 2020-12-13 11:13
while(1) {    print "Please enter your command: ";
    my $cmd = ;
    eval $cmd;

语法都不对,直接就是输出空,print "xxx";

e07610230

A1985 发表于 2020-12-13 17:55
语法都不对,直接就是输出空,print "xxx";

谢了~

l13787908861

路过学习，很实用，谢谢分享

little_mouse

多谢
分享