[mdk-re] Re: [mdk-re] Преобразованиерегистра символов

[Mikhail Zabaluev]

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)