> > #!/usr/local/bin/perl
> > while( <STDIN> ){
> >   $FileName1 = $_;
> >   $FileName2 = $_;
> >   if( $FileName2=~m/・/g ){
> >     $FileName2=~s/・/\./g;
> >     rename( $FileName1 , $FileName2 );
> >   }
> > }
> > これを適当にren.plとかで保存して
> > dir /b * > tmp.txt
> > perl ren.pl < tmp.txt
> > で出来るかな？
> (´ー｀)ﾊﾟｰﾙの人ｸｼｺ
> できたよ　　(´ー｀)ﾍﾞｯｶﾑ
> 極窓だと・bmpが・bmp.bmpになってｱﾚだったけど
> これなら安心
> と書いたのだが貴殿には見えなかったようだｸｼｺ


参考：2002/07/02(火)03時50分06秒