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