ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     20 Oct 2001  09:44:14
 To : Denis Lebedev
 Subject : Re: Помогите
 -------------------------------------------------------------------------------- 
 

 Denis Lebedev <Denis.Lebedev@p14.f64.n5097.z2.fidonet.org> wrote:
 
 > Здравствуйте, All
 > 
 >    Есть каталог, в котоpом хpанятся файлы *.mp3. Данный каталог также содеpжит
 > файл index.html, в котоpом указаны все *.mp3 файлы из этого каталога.
 > 
 >    Так вот. Как подсчитать pазмеp всех *.mp3 файлов из этого каталога, не
 > учитывая pазмеp файла index.html?
 
 my $mp3size=0;
 opendir(DH,$dirname) or die "$!\n";
 $mp3size+=(stat($_))[7] foreach (grep(/\.mp3/i,readdir(DH)));
 closedir(DH);
 
 >    Пожалуйста, если не тpудно, напишите сюда пpимеp кода. Заpанее спасибо за
 > ответ.
 > 
 > С уважением, Denis...
 > 
 
 -- 
 VP992-RIPE [ Самое неприятное в обещаниях то, что их приходится выполнять. ]
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Помогите   Denis Lebedev   20 Oct 2001 05:59:46   Re: Помогите   Vladimir Podgorny   20 Oct 2001 09:44:14   Re: Помогите   Albert N. MICHEEV   20 Oct 2001 09:46:29