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

[Nikolay A. Fetisov]

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<=============
Запускается из верхнего каталога с файлами. Проходит по всем 
подкаталогам, трогает только расширения файлов...


--
С уважением,
Николай Фетисов