很简单的一个问题

iceman_x

#!/usr/bin/perl
@b = reverse @a=<stdin>;
print @b;

-----------------------------------------

我从键盘上输入的是“123”，那输出的结果就应该是“321”吧，但是这段代码怎么还输出的是“123”？

flw

上下文的问题造成的。

Perl_Er

标量环境下他把你的输入看作是一个LIST了，也就是把abc当成了LIST里面的一个元素, 然后对这个LIST进行reverse


这样就可以了，把它置于scalar context中
# cat reverse.pl
$b = reverse @a = <STDIN>;
print $b,"\n";

[ 本帖最后由 Perl_Er 于 2009-8-31 13:29 编辑 ]

iceman_x

修改了一下：
#!/usr/bin/perl
$a = <stdin>;
$b = <stdin>;
@b = reverse($a,$b);
print @b;

==================
输入：

xyz
abc

输出：
abc
xyz

原帖由 Perl_Er 于 2009-8-30 18:43 发表
你先看一下@b里面有几个元素.

@b里面的元素是由键盘输入的。我输入3个元素，他还是按我输入的顺序输出出来了

[ 本帖最后由 iceman_x 于 2009-8-30 18:48 编辑 ]

windfail

#!/usr/bin/perl
$a = <stdin>;
@b = reverse split //,$a;
print @b;

churchmice

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. print scalar reverse scalar <STDIN>;
   

复制代码

print提供list环境，reverse在list和scalar环境中返回不同的内容
<>在list和scalar环境中有不同的作用