From 9649ed94a18776bcf75c3267a2d02b0759ed80be Mon Sep 17 00:00:00 2001 From: Bram Date: Fri, 16 May 2008 07:44:07 -0700 Subject: [PATCH] [perl #39187] [DOC-PATCH]: perldoc -f reverse: examples (was: RE: Perlfunc needs to be made more clear regarding reverse in scalar context.) From: "Bram via RT" Message-ID: p4raw-id: //depot/perl@33840 --- pod/perlfunc.pod | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/pod/perlfunc.pod b/pod/perlfunc.pod index 99acb78..764deb0 100644 --- a/pod/perlfunc.pod +++ b/pod/perlfunc.pod @@ -4718,13 +4718,16 @@ 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 reverse <>; # line tac, last line first + print join(", ", reverse "world", "Hello"); # Hello, world - undef $/; # for efficiency of <> - print scalar reverse <>; # character tac, last line tsrif + print scalar reverse "dlrow ,", "olleH"; # Hello, world Used without arguments in scalar context, reverse() reverses C<$_>. + $_ = "dlrow ,olleH"; + print reverse; # No output, list context + print scalar reverse; # Hello, world + 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 -- 2.7.4