|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/371.32 18 Aug 2000 18:41:02
To : Eugeniy Muran'
Subject : Re: Как обратится к другому локальному диску?
--------------------------------------------------------------------------------
<Eugeniy_Muran'@f13.n4623.z2.fidonet.org> wrote:
EM> ===[ кусь-кусь ]===
EM>>> find(sub {
EM>>> if($File::Find::name=~(/^$k*\.000/))
AC>> А чему равно $k? Правильно,
AC>> undef... И что ты имел в виду сказать этим регексом?
EM> Я ищу файл $k*.000 и вариант /^\$k*.000/ ничего не находит, а вышестоящий
EM> вариант в коммандной строке нормально работает.
То есть файл, имя которого начинается с двух символов $ и k, дальше
произвольное количество символов, заканчивается четырьмя символами ".000"?
Тогда
/^\$k.*\.000$/
EM>>> {
EM>>> $file_name=$File::Find::name;
EM>>> last;
EM>>> }
EM>>> }, $dir);
AC>> Hе понял я такого find'а. Hаверное, ты имел в виду
AC>> $file_name=$File::Find::name unless defined $file_name; ?
EM> Hет, я иел ввиду, что если найден первый файл, то сканировать нету больше
EM> смысла и выйти из подпрограммы.
У тебя не получилось.
AC>> Или, что более вероятно, но не то же самое, вместо всего find
AC>> opendir(DIR,$dir) || die "Cannot open directory $dir: $!\n";
AC>> $file_name=(grep /правильный регекс/, readdir DIR)[0];
AC>> closedir DIR;
EM> Тоже вариант!
Тогда им и пользуйся. Дольше проживешь...
--
Счастливо!
Ран.
--- ifmail v.2.14.os-p7-tma3
* Origin: MemoNet (2:5020/371.32@fidonet)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
