How to input an array from keyboard?

moreyale

I can easily input a string to a variable from keyboad using $v=<STDIN>, but how can I input an array or list to an @v? I use dos command and perl Express 2.5. Do I need to use some specific symbols to seperate strings when trying to input from keyboard?

Here is the code:

#!/usr/bin/perl

#Question: How to input array under DOS or in Perl Express for window?
@userinput1= ('name','6');
print @userinput1;  #return name6

# but nomatter under DOS or in Perl Express Std.Output I/O box;
@userinput2=<STDIN>; #input name 6 or name, 6 or 'name','6' from Keyboard
print @userinput2; # Nothing return

wxlfh

原帖由 moreyale 于 2009-2-5 03:23 发表
I can easily input a string to a variable from keyboad using $v=, but how can I input an array or list to an @v? I use dos command and perl Express 2.5. Do I need to use some specific symbols to  ...

1. chomp($str = <>);
   
2. @array = split /\s+/,$str;

复制代码

各数组元素之间用空格分开，呵呵。

[ 本帖最后由 wxlfh 于 2009-2-5 08:13 编辑 ]

ynchnluiti

# but nomatter under DOS or in Perl Express Std.Output I/O box;
@userinput2=<STDIN>; #input name 6 or name, 6 or 'name','6' from Keyboard
print @userinput2; # Nothing return

dos下没输出吗

moreyale

Thank you wxlfh, I knew the method you recommand. I am just wandering how to process the usual code which textbooks taught us---"@v=<STDIN>;" It seems there is a way to input from keyboard directly. Or there should not be a code like this, it was a bug in the kernal of Perl, but not fatal bug.

churchmice

敲完之后别忘了敲个回车
然后用ctrl+D结束输入

MMMIX

原帖由 moreyale 于 2009-2-5 21:58 发表
Thank you wxlfh, I knew the method you recommand. I am just wandering how to process the usual code which textbooks taught us---"@v=;" It seems there is a way to input from keyboard directly. Or  ...

STDIN 是可以被重定向到文件，或者是其他程序的输出，并不一定是键盘。

若是键盘，你可以用 Ctrl-D （在 Unix-like 系统下) 标示输入已经结束。

ynchnluiti

原帖由 ynchnluiti 于 2009-2-5 09:40 发表

dos下没输出吗

看错了。还以为是dos下没输出呢

wxlfh

1. chomp(@array = <>);

复制代码

那可以这样，每行就是一个数组元素，结束在Windows下用Ctrl+Z。
用chomp函数是去掉行尾的换行符。