请问用Perl怎么实现与系统的交互，谢啦：）

yaya722611

请问想让perl实现与系统的交互怎么实现。

比如在shell中：
echo " please input your name:"
read NAME

在perl中怎么实现呀，并将NAME作为一个变量读入？？？ 谢谢大家啦。

DQP

1. 
   
2. print "please input your name:";
   
3. chomp(my $name = <STDIN>);
   

复制代码

yaya722611

多谢楼上的，多谢多谢。这么快就给我答复了:wink:

ynchnluiti

原帖由 DQP 于 2009-1-22 11:53 发表

print "please input your name:";
chomp(my $name = );

能否直接读入到两个变量呢

DQP

??
一次从键盘读入2个然后分别给2个变量付值？
还真不知道
我只能写成这样了...

1. 
   
2. $_ = <STDIN> for my($foo, $bar);
   

复制代码

你有啥好想法没

ynchnluiti

原帖由 DQP 于 2009-1-22 14:21 发表
??
一次从键盘读入2个然后分别给2个变量付值？
还真不知道
我只能写成这样了...

$_ =  for my($foo, $bar);

你有啥好想法没

没有好办法。
这样要输入两行，一行赋值给一个变量，
如果要实现shell中的read, 可能得用模块，或者自己分解读入的内容。

hitsubunnu

原帖由 DQP 于 2009-1-22 14:21 发表
??
一次从键盘读入2个然后分别给2个变量付值？
还真不知道
我只能写成这样了...

$_ =  for my($foo, $bar);

你有啥好想法没

1. 
   
2. 
   
3. use Getopt::Std;
   
4. 
   
5. or
   
6. 
   
7. use Getopt::Long;
   
8. 
   
9. 
   

复制代码

[ 本帖最后由 hitsubunnu 于 2009-1-22 15:14 编辑 ]

DQP

哦
是交互式操作
不是读取命令行参数 :wink:

ynchnluiti

原帖由 hitsubunnu 于 2009-1-22 15:11 发表
use Getopt::Std;
or
use Getopt::Long;

好像有Term或者叫Terminal之类的模块