ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Kirill Solomko                       2:5020/400     26 Feb 2002  12:55:59
 To : Maksim Pozdeyev
 Subject : Re: Файлы в lowercase
 -------------------------------------------------------------------------------- 
 

 Maksim Pozdeyev <Maksim.Pozdeyev@p6.f67.n5090.z2.fidonet.org> wrote:
 
 > Мы к вам, профессор All, и вот по какому делу...
 > 
 > А не поделятся-ли многоуважаемые скриптом, который переберет
 > все файлы в директории и подкаталогах и переименует их в lowercase.
 > Hу или ссылкой. Именно готовым и рабочим.
 > 
 #!/usr/bin/perl -w
 #
 use strict;
 use File::Find;
 print "Usage: $0 <dir>\n" and exit 1 unless $ARGV[0];
 my $dir = shift;
 sub lowcase {
   return if -d $_;
   rename($_,lc($_)) or die "Can't lc() $_: $!";
 }
 eval { &find(\&lowcase,$dir); };
 print "Error: $@\n" if $@;
 -- 
 / Loki /
 --- ifmail v.2.15dev5
  * Origin: Unknown (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Файлы в lowercase   Maksim Pozdeyev   26 Feb 2002 14:09:52   Re: Файлы в lowercase   Kirill Solomko   26 Feb 2002 12:55:59