Well... Let's try to answer (as I am a newbie :)
I found your question very easy. I am sure I am wrong so I take my camel book to see reverse's section and I seek something which I would not have seen before.
I am not sure that reverse ($aloha) is assumed as a LIST or a string. But my answer is "hello" ! ... and reverse ("$aloha") will return "olleh".
BoBiOne KenoBi ;) | [reply] [Watch: Dir/Any] |
You are correct that reverse in a scalar context will reverse the bytes in its argument. So,
my $x = reverse($aloha);
would result in assigning $x to "olleh".
However, the output of this particular piece of code is not "olleh" at all! The output of above code is just plain old "hello".
Why? Well, it's because in this instance, reverse is being used in a list context. To prove to yourself that it is being used in a list context, run this bit of code through Perl:
#!/usr/bin/perl -w
use strict;
my $aloha = "hello";
my $adios = "goodbye";
print reverse($aloha, $adios);
What happens now? The result is "goodbyehello"! This is precisely how you would expect reverse to work in a list context: it reverses the order of the elements in the list.
Finally, try this piece of code:
#!/usr/bin/perl -w
use strict;
my $aloha = "hello";
print scalar(reverse($aloha));
The scalar function forces a scalar context an indeed, the output yields "olleh".
So what is putting reverse($aloha) in a list context? It is our friend, the print function. If you kindly refer to your Camel book, or your Perldoc, or your Learning Perl book or whatever handy refernce you have a available, you will see that print places its arguments into a list context.
So, looking back at our original piece of code, the reason why it prints just plain old "hello", is that it is reversing the elements in the list and not the bytes in the string. Since there is only one element in the list, the list reversed is precisely same as the original list!
Monks, please chime in if this explanation is not exactly accurate. | [reply] [Watch: Dir/Any] [d/l] [select] |
That last post is a cruel joke, of course.
The above script yields "hello." Are you wondering why didn't it produce "olleh"?
Then the explanation appears here (skip down this page a bit for the actual explanation) and the newbie comes away smarter and more endeared to PerlMonks.org! | [reply] [Watch: Dir/Any] |
At the risk of metooing, I think that's a good idea. | [reply] [Watch: Dir/Any] |