perl three liner - 3-liner

perl -MFile::Glob -pi -e 'BEGIN{@list = File::Glob::bsd_glob("/usr/share/vim/vim63/colors/*.vim"); $i = int(rand( scalar @list)); $x = $list[$i]; $x=~s/.vim$//;$x=~s@/usr/share/vim/vim63/colors/@@;} s/colorscheme.*/colorscheme $x/;’ .vimrc

One Response to “perl three liner - 3-liner”

  1. VovaKar Says:

    http://pd2.funnyhost.com
    desk3
    [url=http://pd4.funnyhost.com]desk4[/url]
    [link=http://pd6.funnyhost.com]desk6[/link]

Leave a Reply