All the Perl that's Practical to Extract and Report
use Perl Log In
Robrt (1414)
Monday August 04, 2003
07:12 PM
Shell Golf
I played shell golf with myself today. (I won.)
I started with
echo $PATH | perl -F: -lane'$,="\n"; print @F'
and Ask intervened with
perl -e'print join"\n",split(/:/,$ENV{PATH}),""'
claiming it was "the same length and is using more common idioms.". I noted that his was a lot more typing and punctuation, and mine is mostly whitespace.
I shifted into Awk for a few cycles:
echo $PATH | awk 'BEGIN{RS=":"} {print}'
echo $PATH | awk -vRS=: '{print}'
but what I really wanted was sed. I settled with perl
echo $PATH | perl -pe's/:/\n/g'
after determining that tcsh was breaking sed.
But..
echo $PATH | tr : '\n'
I win.
Shell Golf
More |
Login
| Reply
The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
--Larry Wall in stab.c from the perl source code
Stories, comments, journals, and other submissions on use Perl; are Copyright 1998-2006, their respective owners.
This is fun (Score:1)
My nick is oneiron, so I better take a swing at this. What is the shortest version that uses perl?
perl -le"s,,$PATH,,y,:,\n,,print"
echo $PATH|perl -pey,:,\\n,
/-\
Purely shell solution (Score:1)
Re:Purely shell solution (Score:1)
Re:Purely shell solution (Score:1)
printwhenechois there to save you one char?( IFS=:; for x in $PATH; do echo $x; done )