Hromadne prejmenovani souboru

[Jan ' Kozo ' Vajda]

:> Potreboval bych zmenit u vsech souboru v danem adresari v jejich
:> jmenech vsechna velka pismena na male, proste nejak hromadne ...  

ja som si robil nieco podobne, ked mi jeden manik doniesol vsetky jpg s
divnou velkostou pismen ( kde male, kde velke ) 

__start__

#!/usr/local/bin/perl
# Tue Aug 31 08:19:08 MET DST 1999
# 
opendir(DIR,".");
 foreach ( grep { /jpg$/i  } readdir(DIR) ) {
   rename("$_","\L$_");
 }
closedir(DIR);

__end__


myslim, ze pomoze ...

		                                   K O Z O 
                		    ===================================
                                      Look At Your Young Man Fighting
                                         Look At Your Woman Crying
                                       Look At Your Young Man Dying
                                    The Way They've Always Done Before