ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Anthony Dragunov                     2:5010/1.111   13 Apr 2000  13:34:04
 To : Ilia Sprite
 Subject : lowercase.
 -------------------------------------------------------------------------------- 
 

 
 Среда Апрель 12 2000 19:39, Ilia Sprite wrote to All:
 
  IS> как в каталоге имена всех файлов перевести в нижний регистр?
  IS> (англицкие). в базе ссылки-т я поправлю php, а вот файлики - не умем
  IS> пока что.
 
 #!/usr/bin/perl
 opendir DIR, "." || die $! ;
 @files = readdir DIR ;
 closedir DIR ;
 foreach $file (@files) {
    $old=$file ;
    rename $old,$file if $file=~tr/[A-Z]/[a-z]/ ;
 }
 
 Anthony (dragunov@mail.ru)
 HackZone RC5 Team member // www.brainbench.com ID #114 / понты дешевые
 --- GoldED 2.50.A0715+
  * Origin: Cannot load COMMAND.COM, system halted (2:5010/1.111)
 
 

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

Тема:    Автор:    Дата:    lowercase.   Ilia Sprite   12 Apr 2000 19:39:01   lowercase.   Anthony Dragunov   13 Apr 2000 13:34:04   lowercase.   Oleg Bakiev   13 Apr 2000 11:34:38   lowercase.   Vladimir N. Zaytcev   14 Apr 2000 14:31:58   lowercase.   Oleg Bakiev   15 Apr 2000 05:46:05   lowercase.   Vladimir N. Zaytcev   15 Apr 2000 22:49:39   lowercase.   Oleg Bakiev   16 Apr 2000 21:25:01   Re: lowercase.   Grigoriy Strokin   15 Apr 2000 19:04:54   lowercase.   Alexander Temerev   17 Apr 2000 13:16:28   lowercase.   Oleg Bakiev   07 May 2000 20:42:38