[Comm] Изменение расширения для большого количества файлов.

[Grigory Soloviov]

Nikolay A. Fetisov wrote:
> On Thu, 10 Mar 2005 15:02:51 +0200
> Olvin <olvin на rambler.ru> wrote:
> 
> 
>>Grigory Soloviov wrote:
>>
>>>Помогите с проблемой, есть ~50 Gb mp3 и какая-то часть из этих файлов 
>>>имеет расширение "MP3", а не "mp3" чем усложняет создание плейлиста.
>>>Помгите со скриптом, что бы перевести расширения всех файлов в 
>>>нормальный вид т.е. "mp3".
>>>Предвосхищая вопрос отвечаю, все копировалось с винды на linux.
>>
>>#!/usr/bin/perl
>>..... 42 строки пропущено
>>В качестве параметра принимает имя директории, имена файлов в которой 
>>надо привести к нижнему регистру. Не только расширение, но всё (!!!) имя 
>>файла!
> 
> 
> Ой... Виноват, не удержался...
> ===========8<=============
> #!/usr/bin/perl -w
> use strict;
> 
> my $ext='.MP3';
> my $old;
> 
> sub ren {
>     chdir shift;
>     for (<*>) {
> 	ren($_) if ( -d $_ );
> 	if ( -f $_ ) {
> 	    $old=$_;
> 	    rename $old, $_ if ($_=~s/($ext)$/\L$1/);
> 	    }
> 	}
>     chdir '..';
>     }
> 
> ren('.');
> ===========8<=============
> Запускается из верхнего каталога с файлами. Проходит по всем 
> подкаталогам, трогает только расширения файлов...
> 
Помогло. Спасибо. :)

2All: спасибо всем кто откликнулся.