On 30/08/2011 17:54, Emeka wrote:
$s =~ s{(\w+)}{scalar reverse($1)}eg; --- From Shlomi Fish perl -e'@words=split/\s+/,$ARGV[0];$_=reverse$_ for@words;print"@words\n";' 'abcd efgh ijkl mnop' Shawn Corey print join ' ', map scalar reverse($_), split ' ', $str; Rob Dixon It is time we explain our codes ... I don't think that Narasimha will easily wrap his head around the first two.
(Once again Emeka, please bottom-post your responses and edit what you are quoting to what is relevant. Thanks :) I agree. It is a shame that senior and supposedly wise contributors here feel the need to boost their egos by posting obscure code. It is primarily a /beginners/ list, and should be treated as such. If you cannot teach then please hold off from showing us your wares. Perl already has a reputation for being incomprehensible without people who should know better proving that they are right. In particular I believe Perl should be treated as a programming language. Its flexibility allows a short script to be passed on the command line but, unless the question requires it, a perl -e "script" solution is an ugly way to express a solution. In particular it does not allow us to insist on the mandatory use strict; use warnings; header, and the consequent declaration of lexical variables. Rob -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/