Change file name from upper to lower case
1 2 for file in `ls -1|perl -ne 'print "$_" if (/[A-Z]/);'` 3 do 4 mv ${file} `echo ${file}|perl -ne 'chomp;print "$_" if (tr/A-Z/a-z/);'`; 5 done
DZone Snippets > sjspig > shell
13405 users tagging and storing useful source code snippets
Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world
1 2 for file in `ls -1|perl -ne 'print "$_" if (/[A-Z]/);'` 3 do 4 mv ${file} `echo ${file}|perl -ne 'chomp;print "$_" if (tr/A-Z/a-z/);'`; 5 done