> > Perlは覚えにくいんだもん(ﾉД`､)
> > さっきのｽｸﾘﾌﾟﾄをPerlで誰か書いてみてよ
> > http://strange.kir.jp/stored/qwup4735.zip
> #!/bin/sh
> for filename in *.txt
> do
>   newfilename=`echo $filename|sed "s/.*\([0-9][0-9][0-9]\)\.txt/\1.txt/i"`
>   cp $filename $newfilename
> done

いじわるだなぁ(;´Д`)perlで頼むよ

参考：2005/12/04(日)20時44分07秒