Re: [dev] TermKit

On Fri, 20 May 2011, Andrew Hills wrote:

> On Fri, May 20, 2011 at 12:16 PM, Suraj N. Kurapati wrote:
>> history | xmessage -file - &
>
> I keep this ugly mess around in for convenience:
>
> h()
> {
> `history | perl -e 'while(<STDIN>){s/\s+\d+\s+//;push
> @o,$_;}for($i=$#o-1;$i>=0;$i--){print $o[$i];}' | dmenu -b`
> }
>

Yikes. Ugly indeed. Unsolicited (sort of... "something wrong on the
internet" 'n all), but:

'for($i=$#o-1;$i>=0;$i--){print $o[$i];}'

is better written:

'pop @o; print for reverse @o'
or
'print for reverse @o[0..$#o-1]'

Plus it's easier to reverse the whole thing outside of Perl (via tac),
and you can use '-n' to avoid the 'while(<STDIN>){}', so the whole thing
becomes:

h()
{
     `history | perl -nwe 's/\s+\d+\s+//; print unless eof' | tac | dmenu -b`
}

Don't have `tac` installed? (I think it's in linux-utils or core-utils,
but maybe it's linux- and/or GNU-centric.)

tac () { perl -nwe 'unshift @o, $_; END { print for @o }' }

-- 
Best,
Ben