Help for this page

Select Code to Download


  1. or download this
    perl -e 'for (<*>){ my $f= $_; tr/, -/_/s; rename $f, $_}'
  2. or download this
    perl -e 'for (<*>){ my $f= $_; tr/, -/_/s; tr/A-Z/a-z/; rename $f, $_}
+'