ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Eugeniy Muran'                       2:4623/13      11 Sep 2000  08:38:30
 To : All
 Subject : Где ошибка?
 -------------------------------------------------------------------------------- 
 

 
  Вот запускаю просто так работает, а под Апачем ошибка
 //BANKSERVER/ARM3_SEP/ARM3ARH No such File or Directory.
 
  Как запустить этот скрипт по д Апачем???
 >===  Здесь родился K0_1.CGI! :) ===
 
 #!perl
 
 use File::Find;
 use CGI qw(:standard);
 
 $dir="\\\\BANKSERVER\\ARM3_SEP\\ARM3ARH\\";
 
 find(sub {
           if($File::Find::name=~/k*.000/)
             {
              $file_name=$File::Find::name;
             }
          }, $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;'},"Korrahunok: ", -$&/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)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор