ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/371.32  31 Jul 2000  11:58:09
 To : Sergey Dvorianinov
 Subject : Re: Посчитать файлы
 -------------------------------------------------------------------------------- 
 

 <Sergey_Dvorianinov@p70.f93.n462.z2.fidonet.org> wrote:
 
 SD>  Hарод, как посчитать количество файлов в директории?
 SD> Тоесть на страничке есть таблица:
 SD> В директории а файлов: ?
 SD> К сожалению я только начинаю yчить Перл, посмотрел в FAQ и написал такой вот
 SD> скрипт:
 
 SD> #!/usr/bin/perl
 SD> opendir DIR,'/images';
 
 Во-первых, почти наверняка, эта директория _в файловой системе_ ни разу не
 /images...
 
 SD> while $file (readdir DIR)
 SD> {
 SD> $a=$a+1;
 SD> }
 
 Во-вторых, $a = (readdir DIR);
 
 SD> closedir DIR;
 SD> print "$a"; 
 
 В-третьих, раз уж #include virtual, то перед print "$a"; (где кавычки,
 заметим, полезно опустить), надо print "Content-type: text/html\n\n";
 
 -- 
 Счастливо!
   Ран.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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