Still my favorite is:
perl -ple'$_=eval'
It's a pure REPL. It evaluates every line from stdin and outputs whatever they evaluate to. It has many uses, but most of the time it's "just" a very powerful calculator.
Hi, thanks for fixing this bug. I can now get rid of many hacky utf8::upgrade calls
Does this also encode/upgrade the query itself, in case someone uses a literal value instead of a placeholder? I forgot to add that to the test.
Modern Perl is a good concept, but antique Perl style also needs explanation. Only very few programmers never have to maintain the old stuff.
A while ago I started a wiki page for this, http://www.perlfoundation.org/perl5/index.cgi?ancient_perl but I never got around to finishing that.
Also, while old stays old, the definition of "modern" is constantly changing. It'd be a bold move, especially in print, but I think this book needs a timestamp ("Modern Perl 2009") in the title, and constant (biennial?) review.
@array.=pick(*);
This might even be optimized and actually shuffle the elements within the array.
Unfamiliar with implementation and performance details, upon reading about ProhibitUselessNoCritic I was immediately reminded of an old idea I had for "no strict": warn (if warnings are enabled) if the code doesn't eval anything and is strict compliant.
