reverse函数不工作

edwardhayes

为什么reverse函数不行？
我输入abc，它又输出abc，原码在下面：
[PHP]
#!/usr/bin/perl

print "Enter the list of strings:\n";
@list = <STDIN>;
@reverselist = reverse @list;
print @reverselist;
[/PHP]

noooooooooooooo

这个程序是正常的，你输入的abc只是代表一个数组元素，看我的，
192# perl 1.pl
Enter the list of strings:
a
b
c
cD
b
a
192# cat 1.pl
#!/usr/bin/perl -w
print "Enter the list of strings:\n";
@list = <STDIN>;
@reverselist = reverse @list;
print @reverselist;
192#

edwardhayes

原来如此，多谢指点。

devel

#!/usr/bin/perl -w
use strict;
print "Enter the list of string:\n";
my $a=0;
my $into;
my @test;
while ( $a<6) {
chomp($into=<>);
unshift(@test,"$into");
$a++ ;
}
print "@test\n" ;
#
my @reverse=reverse(@test);
print "@reverse\n ";
my @b;
@b=reverse("a","b","c","d");
print "@b\n";

在终端输入6个数

edwardhayes

多谢devel兄的补充。
受教了！

devel

最初由 edwardhayes 发表
多谢devel兄的补充。
受教了！

大家一起学习！！