> > 俺が作るとこうなります。
> > エラー処理なんて糞食らえですよ
> > opendir DH, '.';
> > for (readdir DH) {
> >   ($folder) = $_ =~ /([^_]+)_.*/;
> >   mkdir $folder;
> >   rename $_, $folder."/".$_;
> > }
> .と..は除外する注意力を(;´Д`)

そのくらい気にせずヽ(´ー｀)ノ手動で戻せ

参考：2001/05/12(土)03時19分35秒