[mdk-re] Помогите с рег выражением....

[mdk-re] Помогите с рег выражением....

[Korshunov Ilya]

Вообщем задачака наверно детская ..
как должна выглядеть командная строка для перименования всех файлов
в каталоге из FILE.EXT в File.ext ? 

regards
korshunov

Re: [mdk-re] Помогите с рег выражением....

[Sergei]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Четверг 17 Январь 2002 20:04, Вы написали:
> Вообщем задачака наверно детская ..
> как должна выглядеть командная строка для перименования всех файлов
> в каталоге из FILE.EXT в File.ext ?

Исходные имена в верхнем регистре, а получить имена, у которых только первая 
буква в верхнем, а остальные в нижнем? Или я ошибаюсь?

- -- 
С уважением, Епифанов Сергей.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE8RwtB4ZpgWiwK7D8RAlmxAJ9z9cQ5QoTNUxFYssKdtEoJv7LmyACeMkUQ
jw8BFxhO+pQRRNCtCS9TcE0=
=UDkG
-----END PGP SIGNATURE-----

Re: [mdk-re] Помогите с рег выражением....

[Korshunov Ilya]

On Thu, 17 Jan 2002 20:34:57 +0300
Sergei <serpiph@pochtamt.ru> wrote:

> -----BEGIN PGP SIGNED MESSAGE-----
> Hash: SHA1
> 
> Четверг 17 Январь 2002 20:04, Вы написали:
> > Вообщем задачака наверно детская ..
> > как должна выглядеть командная строка для перименования всех файлов
> > в каталоге из FILE.EXT в File.ext ?
> 
> Исходные имена в верхнем регистре, а получить имена, у которых только первая 
> буква в верхнем, а остальные в нижнем? Или я ошибаюсь?
> 
угум....именно так. 

Re: [mdk-re] Помогите с рег выражением....

[Sergei]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Ну, на PERL прога выглядит так (все файлы превращает в конечный вид 
независимо от начального вида):
#!/usr/bin/perl

open (LIST,"ls -1A|");

while ($file=<LIST>)
{
	chomp $file;
	next if ($file=~/^\.\.?$/);
	$file1="\L\u$file";
	print "$file -> $file1\n";# можно выкинуть
	rename $file,$file1;
}
close (LIST);

- -- 
С уважением, Епифанов Сергей.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: For info see http://www.gnupg.org

iD8DBQE8RxAd4ZpgWiwK7D8RApT5AJ4hXFa5XmoDEFtLvcZlLDCPR4ZmlgCfYhS8
nojh0yCZFsjePF43SIElj8E=
=b3X4
-----END PGP SIGNATURE-----

Re: [mdk-re] Помогите с рег выражением....

[Sergey Vlasov]

On Thu, 17 Jan 2002 20:04:35 +0300
Korshunov Ilya <kosha@kp.ru> wrote:

> Вообщем задачака наверно детская ..
> как должна выглядеть командная строка для перименования всех файлов
> в каталоге из FILE.EXT в File.ext ? 

Кстати, можно в mc выделить файлы, F6, и написать в поле нового
имени \L\u* - это у него прямо по F1 в этом месте выводится.

Re: [mdk-re] Помогите с рег выражением....

[Sergey Degtyaryov]

Доброго времени суток, Sergei.
Thu, 17 Jan 2002 20:55:40 +0300 Вы сказали буквально следующее:

S> #!/usr/bin/perl
S> 
S> open (LIST,"ls -1A|");
S> 
S> while ($file=<LIST>)
S> {
S> 	chomp $file;
S> 	next if ($file=~/^\.\.?$/);
S> 	$file1="\L\u$file";
S> 	print "$file -> $file1\n";# можно выкинуть
S> 	rename $file,$file1;
S> }
S> close (LIST);

Ну, "это же неаккуратненько" (с)  =)

#!/usr/bin/perl

for (qx/ls -a/) {
chomp; rename $_, ucfirst;
}
---
Ciao, maga, maga@anykey.spb.ru
--

Re: [mdk-re] Помогите с рег выражением....

[Sergei]

Пятница 18 Январь 2002 00:18, Вы написали:

> Ну, "это же неаккуратненько" (с)  =)
>
> #!/usr/bin/perl
>
> for (qx/ls -a/) {
> chomp; rename $_, ucfirst;
> }

Хм:
1. ls -a выдаст список всех файлов в несколько колонок, причем вместе с "." и 
"..".
2. ucfirst переведет в верхний регистр только первый символ, а остальные без 
изменений.
3. Хотел сделать, чтобы было видно где что. Может, человеку нужно будет еще 
что-то вставлять.
4. А если у вас названия файлов содержат пробелы или непечатаемые символы? 
Ведь в имени могут быть все символы, кроме "\" пары-тройки других.
4. Каждый работает "в меру своей испорченности" :)))

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