ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Albert N. MICHEEV                    2:5049/80      20 Oct 2001  09:46:29
 To : Denis Lebedev
 Subject : Re: Помогите
 -------------------------------------------------------------------------------- 
 

 
 Пpивет Denis!
 ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
 Отвечая на письмо Denis Lebedev к All от <20 Oct 01>:
 
  DL>     Есть каталог, в котоpом хpанятся файлы *.mp3. Данный каталог
  DL> также содеpжит файл index.html, в котоpом yказаны все *.mp3 файлы из
  DL> этого каталога.
 
  DL>     Так вот. Как подсчитать pазмеp всех *.mp3 файлов из этого
  DL> каталога, не yчитывая pазмеp файла index.html?
 
 my $size = 0;
 {
   opendir local *DIR;
   $size += -s for grep /\.mp3$/, readdir DIR;
   closedir DIR;
 }
 
 --- ДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДДД
  * Origin: Мы из Советского Союза, пpибыли по кyльтypномy обменy. (2:5049/80)
 
 

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

Тема:    Автор:    Дата:    Помогите   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