From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <olvin@rambler.ru>
Message-ID: <4230457B.1080702@rambler.ru>
Date: Thu, 10 Mar 2005 15:02:51 +0200
From: Olvin <olvin@rambler.ru>
User-Agent: Mozilla Thunderbird 0.6 (X11/20040511)
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>
In-Reply-To: <4230428F.4010009@21th.com>
Content-Type: text/plain; charset=KOI8-R; format=flowed
Content-Transfer-Encoding: 8bit
X-Auth-User: olvin, whoson: (null)
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: Thu, 10 Mar 2005 13:01:20 -0000
Archived-At: <http://lore.altlinux.org/community/4230457B.1080702@rambler.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

Grigory Soloviov wrote:
> Помогите с проблемой, есть ~50 Gb mp3 и какая-то часть из этих файлов 
> имеет расширение "MP3", а не "mp3" чем усложняет создание плейлиста.
> Помгите со скриптом, что бы перевести расширения всех файлов в 
> нормальный вид т.е. "mp3".
> Предвосхищая вопрос отвечаю, все копировалось с винды на linux.

#!/usr/bin/perl

$L{'A'}='a';
$L{'B'}='b';
$L{'C'}='c';
$L{'D'}='d';
$L{'E'}='e';
$L{'F'}='f';
$L{'G'}='g';
$L{'H'}='h';
$L{'I'}='i';
$L{'J'}='j';
$L{'K'}='k';
$L{'L'}='l';
$L{'M'}='m';
$L{'N'}='n';
$L{'O'}='o';
$L{'P'}='p';
$L{'Q'}='q';
$L{'R'}='r';
$L{'S'}='s';
$L{'T'}='t';
$L{'U'}='u';
$L{'V'}='v';
$L{'W'}='w';
$L{'X'}='x';
$L{'Y'}='y';
$L{'Z'}='z';

opendir(FD,$ARGV[0]);
@DIR=readdir(FD);
closedir(FD);

foreach $a(@DIR){
  $b=$a;
  for($i=0;$i<length($a);$i++){
   $c=$L{substr($a,$i,1)};
   if($c ne ''){
    substr($a,$i,1)=$c;
   }
  }
  rename($ARGV[0].'/'.$b,$ARGV[0].'/'.$a);
}

В качестве параметра принимает имя директории, имена файлов в которой 
надо привести к нижнему регистру. Не только расширение, но всё (!!!) имя 
файла!