|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Michael Poliakov 2:5020/400 16 Nov 2000 14:44:55
To : All
Subject : Re: Как проверить наличие файла в каталоге?
--------------------------------------------------------------------------------
On Thu, 16 Nov 2000 10:00:00 +0000 (UTC), "Kozachenko Alexey" <alexey@infor.ru>
wrote:
>Можно например считать содержимое каталога в массив, а затем проверить есть
>ли название файла в массиве.
opendir(DIR, $some_dir) || die "can't opendir $some_dir: $!";
print "Вот он, родимый!"
if grep { /wanted_file/ && -f "$some_dir/$_" } readdir(DIR);
closedir DIR;
>Есть ли какой-нибудь более простой способ?
Купить книжку, или perldoc -f readdir, perldoc -f grep
Michael Poliakov
--- ifmail v.2.15dev5
* Origin: Nizhniny Novgorod Information Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
