From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <mookid@sigent.ru>
From: Mikhail Zabaluev <mookid@sigent.ru>
To: mandrake-russian@linuxteam.iplabs.ru
Message-ID: <20010302102104.F2684@localhost.localdomain>
Mail-Followup-To: Mikhail Zabaluev <mookid@sigent.ru>,
	mandrake-russian@linuxteam.iplabs.ru
References: <69520891.20010301003931@inbox.ru> <01030100092906.30174@pif.b5.mephi.ru>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Disposition: inline
Content-Transfer-Encoding: 8bit
User-Agent: Mutt/1.2.5i
In-Reply-To: <01030100092906.30174@pif.b5.mephi.ru>; from serpiph@mail.ru on Thu, Mar 01, 2001 at 12:09:29AM +0300
Subject: [mdk-re] Re: =?koi8-r?B?W21kay1yZV0g8NLFz8LSwdrP18HOycXSxcfJ09TSwSDTyc3Xz8zP1w==?=
Sender: mandrake-russian-admin@linuxteam.iplabs.ru
Errors-To: mandrake-russian-admin@linuxteam.iplabs.ru
X-BeenThere: mandrake-russian@linuxteam.iplabs.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@linuxteam.iplabs.ru
List-Help: <mailto:mandrake-russian-request@linuxteam.iplabs.ru?subject=help>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>
List-Subscribe: <http://linuxteam.iplabs.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@linuxteam.iplabs.ru?subject=subscribe>
List-Id: Mandrake/RE discussion list <mandrake-russian.linuxteam.iplabs.ru>
List-Unsubscribe: <http://linuxteam.iplabs.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@linuxteam.iplabs.ru?subject=unsubscribe>
List-Archive: <http://linuxteam.iplabs.ru/pipermail/mandrake-russian/>
Date: Fri Mar  2 22:11:00 2001
X-Original-Date: Fri, 2 Mar 2001 10:21:04 +0300
Archived-At: <http://lore.altlinux.org/community/20010302102104.F2684@localhost.localdomain/>
List-Archive: <http://lore.altlinux.org/community/>

Hello Sergei,

On Thu, Mar 01, 2001 at 00:09 +0300, Sergei wrote:
>
> Среда 28 Февраль 2001 19:39, Вы написали:
> > Приветствую вас, о Русская_Мандрагора!
> >
> >   Требуется порой преобразовывать имена файлов из верхнего регистра в
> >   нижний и обратно. Может, кинет кто примерчиком скрипта?
> Лови (у меня пока работал...):
> #!/usr/bin/perl
> foreach $i (<*>)
> {
> 	$_=$i;
> 	tr#A-Z#a-z#;
> 	$i1=$_;
> 	rename ($i,$i1); 
> }

Короткий вариант "с локальными буквами" (lc/uc - нижний/верхний регистры):

#!/usr/bin/perl
use locale;
rename($_, lc) foreach (<*>);
__END__

-- 
Stay tuned,
  MhZ                                    mailto:mookid@sigent.ru
-----------
To have died once is enough.
		-- Publius Vergilius Maro (Virgil)