ru.linux

 
 - RU.LINUX ---------------------------------------------------------------------
 From : Maksim Pozdeyev                      2:5090/67.6    04 May 2002  11:16:18
 To : Maxim Eremin
 Subject : Re: Скрипт
 -------------------------------------------------------------------------------- 
 

 29 Апр 02 11:02, Maxim Eremin -> All:
 
  ME>  Есть проблема, нужно переименовать все с больших букв на маленькие,
  ME>  Вручную - нереально, может кто поможет со скриптом?
 
 #!/usr/bin/perl -w
 #------------------------------------------------------------------------------
 use locale;
 use strict;
 use File::Find;
 #------------------------------------------------------------------------------
 my $result = "";
 #------------------------------------------------------------------------------
 sub file_rename {
   if (rename($_, lc($_))) {$result = "done";}
    else {my $result = "error!";};
   print ($result, "\t", $_,"\n");
 };
 #------------------------------------------------------------------------------
 if ($ARGV[0] eq "") {
   print("lowercase\n");
   print("Переименовывает файлы в lower case в указанной директории.\n");
 }
 else {
  find(\&file_rename, $ARGV[0]);
 };
 #------------------------------------------------------------------------------
 --
 Всего наилучшего.
 Maksim Pozdeyev aka Barlog M.
 
 --- GoldED+/W32 1.1.5-20010807
  * Origin: От Парижа до Hаходки с водкой лучше чем без водки! (2:5090/67.6)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    Скрипт   Maxim Eremin   29 Apr 2002 11:02:43   Re: Скрипт   Kirill Smelkov   03 May 2002 10:52:08   Скрипт   Kirill Frolov   03 May 2002 15:06:46   Скрипт   Denis Yakimov   16 May 2002 16:39:02   Re: Скрипт   Maksim Pozdeyev   04 May 2002 11:16:18   Скрипт   Kirill Frolov   05 May 2002 01:20:04   Re: Скрипт   Maksim Pozdeyev   05 May 2002 10:37:52   Re: Скрипт   nikita kozlovsky   09 May 2002 21:52:37