|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Eugeniy Muran' 2:4623/13 18 Aug 2000 12:20:07
To : Artem Chuprina
Subject : Как обратится к другому локальному диску?
--------------------------------------------------------------------------------
і Позволю себе напомнить, что в Пятницу 18 Aвгуста 2000 года, в 11:22
і Artem Chuprina писал к Eugeniy Muran' о "Re: Как обратится к другому
локальному диску?"
АДДДДДДДД<<<
===[ кусь-кусь ]===
EM>> find(sub {
EM>> if($File::Find::name=~(/^$k*\.000/))
AC> А чему равно $k? Правильно,
AC> undef... И что ты имел в виду сказать этим регексом?
Я ищу файл $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; ?
Hет, я иел ввиду, что если найден первый файл, то сканировать нету больше
смысла и выйти из подпрограммы.
AC> Или, что более вероятно, но не то же самое, вместо всего find
AC> opendir(DIR,$dir) || die "Cannot open directory $dir: $!\n";
AC> $file_name=(grep /правильный регекс/, readdir DIR)[0];
AC> closedir DIR;
Тоже вариант!
EM>> open(K0,"$file_name") || die "File \$k0 Not Found!\n";
AC> Hу а собственно диагностику-то кто выводить будет? А директорию
AC> подставлять?
File::Find::name уже содержит имя файла с полнiм именем.
А диагностика в логе ошибок апача:
Can't state тут имя диска и директории: No such file or directory
AC> open(K0,"$dir$file_name") || die "Cannot open $dir$file_name: $!\n";
AC> Восклицательные знаки надо расставлять по делу...
Ок!
EM>> Человеку свойственно ошибаться и как часто он пользуется этим
EM>> свойством!
AC> Чаще, чем теоретически возможно.
Возможно!
ЖНННННННННННННННННННННННННННННННННННННННННННННН[ Всех благ желает Eugeniy ]ННµ
ФННН[Team ASM] [Team C++ Builder] НН [Team КИHО] [Team Hаутилус Помпилиус]НННѕ
. Могу не думать, а могу и думать о том как не думать!
---
* Origin: -* JackSoft [ ICQ: 44436588, e-mail: jacksoft@chat.ru ] (2:4623/13)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Как обратится к другому локальному диску? 