http://snippets.dzone.com/posts Fri, 25 Jul 2008 07:05:05 GMT DZone Snippets: Sundaryourfriend's Code Snippets http://snippets.dzone.com/posts/show/4186 1. Searches for files having uppercase extensions (can be mixed with numbers and can be multipart eg: TAR.BZ2 ). <br /> It does not detect files whose extensions contain both upper and lower cases. This is intentional, as if you have part of extension lowercase, you probably intentionally left the other part upper case. Changing this behaviour is trivial. Replace that complex (?:[A-Z]*[0-9]*\.*) with a . (a dot). <br /> <br />2. It then converts them to lowercase. <br /> <br /><code> <br />#!/usr/bin/perl <br />$files=`ls`; <br />@files=split(/\n/,$files); <br />foreach (@files) { <br /> if(/(.*)\.((?:[A-Z]*[0-9]*\.*)+)$/) { <br /> $name=$1."."."\L$2\E"; <br /> system("mv $_ $name") <br /> } <br />} <br /></code> <br />Looks quite ugly, but this is what I could do with the Perl I know, and more importantly, it works (at least in my case)! Thu, 21 Jun 2007 18:16:09 GMT http://snippets.dzone.com/posts/show/4186 sundaryourfriend (Sundara Raman)