reverse的疑问

murdercool

my $a='ac';
print reverse($a),"\n";
my $b=reverse($a);
print $b

第一个打印的还是‘ac’ ，第二个打印的就是倒序（‘ca’）了,这是为什么啊 ?

jason680

回复 1# murdercool

  reverse($a),"\n";
change to
  reverse($a)."\n";

$ 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

   

murdercool

了解了   thx！！！回复 2# jason680


   

104359176

好久不写代码，前几天就是因为 print reverse 不出东西，又写了个 string-reverse. 这个帖子让我想起来了 reverse 在明确的标量环境中才能反转字符串。

mcshell

了解上下文不是一件容易的事

pitonas

这个帖子让我学习了 reverse

qq27898

学习了！

以后会注意这个问题，多谢

xp1842

#   输入文件是            输出文件是
#   1 2 3 4 5             5 4
#   2 3 4 5                5 4 3
#   3 4 5                   5 4 3 2
#   4 5                      5 4 3 2 1      
##############################################################
#  -----这里是因为在标量上下文中reverse反转字符串，但是为什么还会反转链表呢？reverse产生了2次作用？

while(my $line = reverse <>){
    print $line;
}
求指点啊

jason680

回复 8# xp1842

<> will read all data for reverse
1.  to SCALAR(string) will be  
  "1 2 3 4 5\n2 3 4 5\n3 4 5\n4 5\n"
2. reverse it
"\n5 4\n5 4 3\n5 4 3 2\n 5 4 3 2 1"

you can try this to see what's happen
my $line = reverse <>;
print ">>>$line<<<<";



BTW, reverse string with single line
while(my $line = <>){
    chomp $line;
    print scalar reverse($line), "\n";
}
   

xp1842

回复 9# jason680
谢谢指点 ！learning perl上写while(<>每次返回一行，但是在这里却将所有的内容返回给reverse，确实很让我这个初学者迷惑啊。 毕竟厚度有限，深入不到所有细节和情况