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

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

[äÙÍÙÞ]

Приветствую вас, о Русская_Мандрагора!

  Требуется порой преобразовывать имена файлов из верхнего регистра в
  нижний и обратно. Может, кинет кто примерчиком скрипта?
  

С уважением,
 Дымыч                          отвечать на  DIMMeach@inbox.ru

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

[Sergei]

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

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

[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)

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

[Mikhail Zabaluev]

Hello Дымыч,

On Thu, Mar 01, 2001 at 00:39 +0800, Дымыч wrote:
>
> Приветствую вас, о Русская_Мандрагора!
> 
>   Требуется порой преобразовывать имена файлов из верхнего регистра в
>   нижний и обратно. Может, кинет кто примерчиком скрипта?

Собственно преобразование текста в верхний и нижний регистры, из
стандартного ввода в стандартный вывод:

tr a-z A-Z
tr A-Z a-z

Переименование файлов в нижний регистр:

for fi in <files>; do mv $fi $(echo $fi | tr A-Z a-z); done

С неанглийскими буквами - жуть и мрак, ничего не скажу. Возможно, Perl
поможет.

-- 
Stay tuned,
  MhZ                                    mailto:mookid@sigent.ru
-----------
HOST SYSTEM NOT RESPONDING, PROBABLY DOWN. DO YOU WANT TO WAIT? (Y/N)

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

[Sergei]

Среда 28 Февраль 2001 22:58, Вы написали:
> >   Требуется порой преобразовывать имена файлов из верхнего регистра в
> >   нижний и обратно. Может, кинет кто примерчиком скрипта?
>
> Собственно преобразование текста в верхний и нижний регистры, из
> стандартного ввода в стандартный вывод:
>
> tr a-z A-Z
> tr A-Z a-z
>
> Переименование файлов в нижний регистр:
>
> for fi in <files>; do mv $fi $(echo $fi | tr A-Z a-z); done
>
> С неанглийскими буквами - жуть и мрак, ничего не скажу. Возможно, Perl
> поможет.
В Perl'е:
1. команды lc() и uc()
2. строковые вставки: \U \u \L \l  ( типа ''\U$str"  ).
   Можно посмотреть регулярные выражения.
3. tr ///
При работе с локалью используйте use locale;

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

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

[äÙÍÙÞ]

Приветствую тебя, о Mikhail!

Дело было во пятница, 2 марта 2001 г..
В 5:10:19 минус 8 Гринвичей залезаю в мыльницу и вижу:

>>   Требуется порой преобразовывать имена файлов из верхнего регистра в
>>   нижний и обратно. Может, кинет кто примерчиком скрипта?

MZ> Собственно преобразование текста в верхний и нижний регистры, из
MZ> стандартного ввода в стандартный вывод:

MZ> tr a-z A-Z
MZ> tr A-Z a-z

MZ> Переименование файлов в нижний регистр:

MZ> for fi in <files>; do mv $fi $(echo $fi | tr A-Z a-z); done

Огромное спасибо!


MZ> С неанглийскими буквами - жуть и мрак, ничего не скажу.

А вот это жаль.



MZ> Возможно, Perl поможет.

Лениво ковыряться. Может, легче tr поправить?



Искренне свой,
 Дымыч                          отвечать на DIMMeach@inbox.ru