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