From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <info4me@21th.com>
Message-ID: <42315894.8070708@21th.com>
Date: Fri, 11 Mar 2005 11:36:36 +0300
From: Grigory Soloviov <info4me@21th.com>
User-Agent: Mozilla Thunderbird 1.0 (X11/20050202)
X-Accept-Language: en-us, en
MIME-Version: 1.0
To: community@altlinux.ru
Subject: Re: [Comm] =?KOI8-R?Q?=E9=DA=CD=C5=CE=C5=CE=C9=C5_=D2=C1=D3=DB?=
	=?KOI8-R?Q?=C9=D2=C5=CE=C9=D1_=C4=CC=D1_=C2=CF=CC=D8=DB=CF=C7=CF_=CB?=
	=?KOI8-R?Q?=CF=CC=C9=DE=C5=D3=D4=D7=C1_=C6=C1=CA=CC=CF=D7=2E?=
References: <4230428F.4010009@21th.com>	<4230457B.1080702@rambler.ru>
	<20050310202210.2154a429@naf177.naf.net.ru>
In-Reply-To: <20050310202210.2154a429@naf177.naf.net.ru>
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
X-BeenThere: community@altlinux.ru
X-Mailman-Version: 2.1.5
Precedence: list
Reply-To: community@altlinux.ru
List-Id: Mailing list for ALT Linux users <community.altlinux.ru>
List-Unsubscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://lists.altlinux.ru/pipermail/community>
List-Post: <mailto:community@altlinux.ru>
List-Help: <mailto:community-request@altlinux.ru?subject=help>
List-Subscribe: <https://lists.altlinux.ru/mailman/listinfo/community>,
	<mailto:community-request@altlinux.ru?subject=subscribe>
X-List-Received-Date: Fri, 11 Mar 2005 08:36:39 -0000
Archived-At: <http://lore.altlinux.org/community/42315894.8070708@21th.com/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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: спасибо всем кто откликнулся.