为什么我的机器就不能运行出正确的结果来，郁闷！

stesting

#!/usr/bin/perl
chomp(@lines = <STDIN>);
@line = sort @lines;

print @line；


#!/usr/bin/perl
chomp(@lines = <STDIN>);
@line = reverse @lines;

print @line；

print reverse <STDIN>;

为什么输入结果跟输入结果一样呢？郁闷啊

wsxedcer

都怪我，中文没有学好。。。

jason680

回复 1# stesting


$ perldoc -f reverse
       reverse LIST
               In list context, returns a list value consisting of the
               elements of LIST in the opposite order.  In scalar context,
               concatenates the elements of LIST and returns a string value
               with all characters in the opposite order.

                   print join(", ", reverse "world", "Hello"); # Hello, world

                   print scalar reverse "dlrow ,", "olleH";    # Hello, world

               Used without arguments in scalar context, reverse() reverses
               $_.

                   $_ = "dlrow ,olleH";
                   print reverse;                              # No output, list context
                   print scalar reverse;                       # Hello, world

               Note that reversing an array to itself (as in "@a = reverse
               @a") will preserve non-existent elements whenever possible,
               i.e., for non magical arrays or tied arrays with "EXISTS" and
               "DELETE" methods.

               This operator is also handy for inverting a hash, although
               there are some caveats.  If a value is duplicated in the
               original hash, only one of those can be represented as a key in
               the inverted hash.  Also, this has to unwind one hash and build
               a whole new one, which may take some time on a large hash, such
               as from a DBM file.

                   %by_name = reverse %by_address;  # Invert the hash   

609854

回复 1# stesting

输入数组的元素只有一个

1. print "$line[0]"

复制代码

就可以看出来了
   

stesting

o ,明白谢谢各位