Beautiful one-liner

By Hal Canary, 2003-05-29 02:26:17 (link)
#computers-code

#/bin/sh
#DTPD#
# ~/bin/despacify v2003-05
ls -x1 | \
  perl -e 'while(<>){chomp;$x=$_;s/ /_/g; \
  system("mv \"$x\" \"$_\"") if ($x ne $_);}'

(back)