|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Mihail Kapitanov 2:465/239 20 Mar 2001 17:30:22
To : Vladimir Podgorny
Subject : Проверка наличия файлов
--------------------------------------------------------------------------------
20 Mar 01 10:27, you wrote to all:
>> Как проверить есть ли в каталого Z:\\ *.tic файлы?
VP> sub checkfile($) {
VP> return() unless @_;
VP> opendir(DIR,$dir) || return();
VP> my @count=grep(/\.tic$/,readdir(DIR));
VP> closedir(DIR);
VP> return($#count);
VP> }
Огромное спасибо, а вот если будут и *.tic и *.TIC и *.TiC?
И что означает /\.tic$/ ?
Mihail
--- GoldED+/W32 1.1.4.7
* Origin: Storm Station 380-62-3821639 (20:00-06:00) (2:465/239)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
