ru.unix.bsd

 
 - RU.UNIX.BSD ------------------------------------------------------------------
 From : Alexey Zakrevskiy                    2:5031/24.5    08 Dec 2000  02:31:34
 To : All
 Subject : Re: еще один идиотский вопрос
 -------------------------------------------------------------------------------- 
 

 .RFC-X-Complaints-To: usenet@glukodrom.deeptown.mun
 .RFC-NNTP-Posting-Date: Thu, 7 Dec 2000 22:31:34 +0000 (UTC)
 avl@partner.donetsk.ua wrote:
 
 > subj только не ругайте сильно
 > 
 > КАК дерево с каталогами и файлами перевести
 > в нижний регистр (названия) киньте плс скрипт
 
   Меня тоже не ругайте сильно, знаю что криво - писал когда перл учить
     начал, но работает:
 #!/usr/bin/perl
 
 open(FILE, "ls ./ | ") || die "Файл не найден!";
 while(<FILE>)
  {
   chop;
   $_ =~ s/\$/\\\$/g;
   $_ =~ s/\(/\\\(/g;
   $_ =~ s/\)/\\\)/g;
   $_ =~ s/\'/\\\'/g;
   $_ =~ s/\~/\\\~/g;
   $_ =~ s/\!/\\\!/g;
   $_ =~ s/\@/\\\@/g;
   $_ =~ s/\#/\\\#/g;
   $_ =~ s/\%/\\\%/g;
   $_ =~ s/\^/\\\^/g;
   $_ =~ s/\&/\\\&/g;
   $_ =~ s/\*/\\\*/g;
   $_ =~ s/\+/\\\+/g;
   $_ =~ s/\=/\\\=/g;
   $_ =~ s/\-/\\\-/g;
   $_ =~ s/\[/\\\[/g;
   $_ =~ s/\]/\\\]/g;
   $_ =~ s/\{/\\\{/g;
   $_ =~ s/\}/\\\}/g;
   $_ =~ s/\|/\\\|/g;
   $_ =~ s/\"/\\\"/g;
   $_ =~ s/\:/\\\:/g;
   $_ =~ s/\;/\\\;/g;
   $_ =~ s/\?/\\\?/g;
   $_ =~ s/\>/\\\>/g;
   $_ =~ s/\</\\\</g;
   $CurrentName = $_;
   $CurrentName =~ s/\ /\\\ /g;
   $_ =~  tr [A-Z] [a-z];
   $_ =~ s/\ *$//;
   $_ =~ s/\ /\\\ /g;
   print "moving ".$CurrentName." to ".$_."\n";
   system "mv ".$CurrentName."\ ".$_."\n";
  }
   system "chmod -x *";
 close(FILE);
 
   Это делалось для разгребания досовских файлопомоек и для нормального
     пользования требует переделки - но за год-два юзания руки так и не дошли ;)
     
 --- tin/1.5.6-20000803 ("Dust") (UNIX) (FreeBSD/5.0-CURRENT (i386))
  * Origin: Glukodrom station, Murmansk, Russia. (2:5031/15.2@fidonet)
 
 

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