ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Vladimir Podgorny                    2:5020/400     20 Mar 2001  11:27:01
 To : All
 Subject : Re: Проверка наличия файлов
 -------------------------------------------------------------------------------- 
 

 Mihail Kapitanov <Mihail.Kapitanov@f239.n465.z2.fidonet.org> wrote:
 
 > Hello everybody.
 > 
 > Как проверить есть ли в каталого Z:\\ *.tic файлы?
 
 sub checkfile($) {
   return() unless @_;
   opendir(DIR,$dir) || return();
   my @count=grep(/\.tic$/,readdir(DIR)); 
   closedir(DIR);
   return($#count);
 }
 
 > 
 > Mihail
 > 
 
 --
 VP1-UANIC
 --- ifmail v.2.15dev5
  * Origin: Adamant ISP news server (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    Проверка наличия файлов   Mihail Kapitanov   20 Mar 2001 01:51:52   Re: Проверка наличия файлов   Vladimir Podgorny   20 Mar 2001 11:27:01   Проверка наличия файлов   Mihail Kapitanov   20 Mar 2001 17:30:22   Re: Проверка наличия файлов   Vladimir Podgorny   20 Mar 2001 22:07:39   Проверка наличия файлов   Mihail Kapitanov   21 Mar 2001 03:01:58   Re: Проверка наличия файлов   Alexander V. Gaiduk   21 Mar 2001 11:54:49   Re: Проверка наличия файлов   Konstantin Stupnik   21 Mar 2001 14:52:49   Проверка наличия файлов   Mihail Kapitanov   21 Mar 2001 16:27:32   Re: Проверка наличия файлов   Konstantin Stupnik   22 Mar 2001 14:44:50   Re: Проверка наличия файлов   Michael Samanov   21 Mar 2001 00:24:28   Проверка наличия файлов   Mihail Kapitanov   21 Mar 2001 03:08:10   Re: Проверка наличия файлов   Vladimir Podgorny   21 Mar 2001 11:08:00   Re: Проверка наличия файлов   Dmitry Fedotov   21 Mar 2001 03:00:48