|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Igor Kachev 2:5000/117.18 20 Aug 2000 11:15:41
To : Eugeniy Muran'
Subject : Re: Как обратится к другому локальному диску?
--------------------------------------------------------------------------------
EM> Проблема возникла!
EM> Hаписал скрипт, который читает данные из базы и выводит их на
EM> страничку. Так вот, локально все отлично работает, а при работе с
EM> Apache говорит, что директория или файл не найден.
>> === Здесь родился k0_1.cgi! :) ===
EM> #!perl
EM> use File::Find;
EM> use CGI qw(:standard);
EM> $dir="K:\\ARM3ARH\\";
попробуй так: $dir="K:/ARM3ARH/"
EM> find(sub {
EM> if($File::Find::name=~(/^$k*\.000/))
EM> {
EM> $file_name=$File::Find::name;
EM> last;
EM> }
EM> }, $dir);
EM> open(K0,"$file_name") || die "File \$k0 Not Found!\n";
EM> print header;
EM> print start_html(-TITLE=>"Analiz
EM> \$K.000",-background=>"\\background.gif"), h1({-style=>'Color:
EM> white;'},"Analiz Result"); print hr;
EM> while (<K0>)
EM> {
EM> if(m/-\d+/)
EM> {
EM> print h4({-style=>'Color: white;'},"Result: ", -$&/100, " grn.");
EM> }
EM> }
EM> print hr;
EM> print end_html;
EM> close(K0);
>> === Здесь скончался k0_1.cgi! :( ===
EM> ЖНННННННННННННННННННННННННННННННННННННННННННННН[ Всех благ желает
EM> Eugeniy ]ННµ ФННН[Team ASM] [Team C++ Builder] НН [Team КИHО] [Team
EM> Hаутилус Помпилиус]НННѕ . Человеку свойственно ошибаться и как часто
EM> он пользуется этим свойством!
EM> ---
EM> * Origin: -* JackSoft [ ICQ: 44436588, e-mail: jacksoft@chat.ru ]
EM> (2:4623/13)
//Meverik
... mailto: ygrik@online.sinor.ru ICQ:43818402
--- B04B 826D 63B9 296A B063 20B3 6D1D A0DC
* Origin: Очень приятно! Царь! (2:5000/117.18)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
