Comments on: Stupid perl tricks (that would be better in something else)

By: admin

admin — Fri, 21 Aug 2009 15:44:29 +0000

I think that is prettier. When you’re dealing with a bunch of python guys, that’s suprisingly important. Thanks all!

By: Matt S Trout

Matt S Trout — Fri, 21 Aug 2009 12:46:34 +0000

Meh.

perl -e ‘print q{echo “}.join(“\n”,map “repair table $_;” @ARGV).q{“| mysql -uroot mydvb};’ things whosit mrmr

is longer, but prints prettier shell commands.

When generating code, always try and make the generated code pretty, even at the cost of a little more ugliness in the generator – you’ll thank yourself when you have to debug the output.

(and yes, I know everybody else was just playing, but this still strikes me as a more elegant solution 🙂

By: Chas. Owens

Chas. Owens — Thu, 20 Aug 2009 23:13:24 +0000

Shaved another two characters off:

perl -le ‘map{print$c=”echo repair table $_ | mysql -uroot mydb”;`$c`}@ARGV’ things whosit mrmr

By: Chas. Owens

Chas. Owens — Thu, 20 Aug 2009 23:11:09 +0000

I can’t help but golf this:

perl -le ‘for(@ARGV){print$c=”echo repair table $_ | mysql -uroot mydb”;`$c`}’ things whosit mrmr