Why the print is not working

[jesuashok]

This node falls below the community's threshold of quality. You may see it by logging in.

[ikegami]

Reread the documentation for reverse, particulary the part on list context vs scalar context. Then try

print scalar reverse "dog"

[sauoq]

It is working. The reverse is executing in list context and reversing its one element list. Try scalar reverse "dog" to get what you were hoping for.

[blue_cowdawg]

Why the followig code is not working.

My son, let me give you some priestly advice: When you want to find out why something isn't working you first have to establish for the reader what your criteria for "working" is. In other words: what were you expecting to happen, and what really happened.

As has been noted before and I quote from the perldoc for reverse:

      reverse LIST
               In list context, returns a list value consisting of the
+ ele-
               ments of LIST in the opposite order.  In scalar context
+, con-
               catenates the elements of LIST and returns a string val
+ue with
               all characters in the opposite order.
 
                   print reverse <>;           # line tac, last line f
+irst
 
                   undef $/;                   # for efficiency of <>
                   print scalar reverse <>;    # character tac, last l
+ine tsrif

So with that in mind, if I run the following on-liner:

perl -e 'print scalar reverse "dog" . "\n";'

I get the following terse output:

god

Let us play... If I run the following one liner:

perl -e 'print join( ",", reverse ( split "", "dog")) . "\n";'

I am now feeding reverse an array and I can now get the result

g,o,d

I hope this clears things up for you....

---

[friedo]

print takes a list, and so puts reverse in list context. In list context, reverse returns the list with the items reversed. In the case of a one item list, the result is exactly the same. To reverse the string "dog", you can use:

print scalar reverse "dog";

[blazar]

It is working but to see that you have to plug in one more animal:

print reverse "dog", "cat";

But observe the effect of

print q|'.$(  | ^ reverse "dog", "cat";

[sh1tn]

In addition:

print+(reverse split "", "dog"), "\n"

[eric256]

Maybe a little clearer print '' . (reverse 'dog')