ディレクトリからjpgを再帰的に探しだし、epsに変換するワンライナー

twitterでつぶやいてたらすげすなコードを教えてもらったよ!!

find ./ -type f -name '*.jpg' -print0 | xargs -0 -i% -n1 convert % %.eps

espファイル名にjpgってついちゃうけど、それはperlのワンライナーで片付ければおk…とか思っていたら、結局perlで再帰的にepsファイルを探さないといけないじゃんと気がついたのは秘密www

追記
perlで自分で書いていたら、さらに教えてもらってしまったwww。すげー!!そして仕事はえー!!

find ./ -type f -name '*.jpg' | perl -pe 's/\.jpg$//' | xargs -i% -n1 convert %.jpg %.eps