[mdk-re] ðÒÅÏÂÒÁÚÏ×ÁÎÉÅÒÅÇÉÓÔÒÁ ÓÉÍ×ÏÌÏ×

[Sergei]

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

-- 
С уважением, Епифанов Сергей