> > 素直にreaddir()すれば済む話なのになぜｺｲｼは(;´Д`)
> 俺が作るとこうなります。
> エラー処理なんて糞食らえですよ
> opendir DH, '.';
> for (readdir DH) {
>   ($folder) = $_ =~ /([^_]+)_.*/;
>   mkdir $folder;
>   rename $_, $folder."/".$_;
> }

.と..は除外する注意力を(;´Д`)

参考：2001/05/12(土)03時18分10秒