in reply to Read a variable backwards..
$ perl -E '$string="esrever"; say join("",reverse(split(//,$string))); +' reverse
print "Good ",qw(night morning afternoon evening)[(localtime)[2]/6]," fellow monks."
|
---|
In Section
Seekers of Perl Wisdom
in reply to Read a variable backwards..
$ perl -E '$string="esrever"; say join("",reverse(split(//,$string))); +' reverse
|
---|