Perl sort和reverse

redring_wawa

perl 脚本如下
#! /usr/bin/perl

my @mysort = sort qw(Gilligana Skipperb Gingerc Professord Mary-Anne);
my @myreverse = reverse qw(Gilligana Skipperb Gingerc Professord Mary-Anne);
print "@mysort\n";
print "@myreverse\n";

sort出来的result是Gilligana Gingerc Mary-Anne Professord Skipperb 这个能明白，是按首字母排序的。
reverse出来的result竟然 Mary-Anne Professord Gingerc Skipperb Gilligana 这个不是应该是按首字母反序吗？ 为什么是按尾字母逆序了？

小白求解释，谢谢！

shijiang1130

my @myreverse = reverse qw(Gilligana(1) Skipperb(2) Gingerc(3) Professord(4) Mary-Anne(5));
结果是： 5->4->3->2->1
我觉得对

xiumu2280

1. my $youreverse = reverse qq(Gilligana Skipperb Gingerc Professord Mary-Anne);

复制代码

fengshao2004

我觉得是里面的词组作为一个字符串来考虑。

redring_wawa

回复 2# shijiang1130

我还以为是按首字母的顺序排序呢。这么理解就对了。
那sort是按首字母顺序排序，对吧。


   

jason680

回复 1# redring_wawa

$ perldoc -f sort
    sort SUBNAME LIST
    sort BLOCK LIST
    sort LIST
            In list context, this sorts the LIST and returns the sorted list
            value. In scalar context, the behaviour of "sort()" is undefined.
    ...

$ 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
            ...