ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     11 Jan 2001  21:28:14
 To : All
 Subject : Re: Коротенькая программка
 -------------------------------------------------------------------------------- 
 

 Alexey G.Polosoff <Alexey.G.Polosoff@p69.f600.n5020.z2.fidonet.org> wrote:
 
 > All, my greetings!
 > Хотел написать коротенькую программку, которая
 > все файлы в текущем каталоге переименовывает
 > на номера, начиная с 00000001.ext (с сохранением
 > исходных расширений), но никак не получается добиться
 > доступа к именам файлов и нулей, предшествующих цифре...    :(((
 
 > Может, кто подбросит идею? Pls.
 
 foreach (0..$#filelist) {
   ( -f $filelist[$_] ) ? (my $ext=$1 if $filelist[$_]=~/\.([^\.+])$/) : next;
   my $name=sprintf("%u0.8",$_+1);
   rename($filelist[$_],"$name.$ext");
 }
 
 код грязноватый, @filelist я думаю найдешь сам...
 
 > Better Bye than ever before.
 
 -- 
 VP992-RIPE
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Коротенькая программка   Alexey G.Polosoff   11 Jan 2001 19:34:00   Re: Коротенькая программка   Vladimir Podgorny   11 Jan 2001 21:28:14   Коротенькая программка   Alexey G.Polosoff   14 Jan 2001 01:53:00   Re: Коротенькая программка   Artem Chuprina   18 Jan 2001 19:41:58