Главная страница


ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From :  Andrey Peshinsky                    2:5020/400     15 Oct 2001  19:23:47
 To : yurik shestakov
 Subject : Re: Perl скрипты + Apche for Win
 -------------------------------------------------------------------------------- 
 
 yurik shestakov <yu@frigate.kiev.ua> пишет в
 сообщении:9q7hfu$g0s$1@news.lucky.net...
 <skip>
 
 > А дайте URL ну или на крайний случать покажите HTTP-заголовки
 > ответа. Что-то не так именно в заголовках.
 
 <skip> 
 
 Так как я сразу не стал приводить текст скрипта более развернуто
 (с учетом эхо-полиси), то вывод немного не соответствует приведенным мною
 скриптам. Hо, что показательно, я только сейчас обратил на это внимание -
 в оригинале после строки:
 require "C:/Programm/Apache/htdocs/include/reports_head.h";
 шла небольшая таблица:
 ################## Hачало исправления ############################
 require "C:/Programm/Apache/htdocs/include/reports_head.h";
 print "<table align=center><tr>";
 
 print "<td valign=bottom align=center width=10%>";
 print "\nСтарт   ";
 print   $r->textfield(-name=>'sdate',
         -default=>$sdate, -size=>8,
 -maxlength=>8),'     <br>';
 
 print   "<td valign=bottom align=center width=10%>";
 print "\nФиниш   ";
 print   $r->textfield(-name=>'edate',
         -default=>$edate, -size=>8, -maxlength=>8),'   <br>';
 
 print   "<td valign=bottom align=center width=30%>";
 print $r->submit(-name=>'Обновить');
 print   $r->endform, "\n";
 print   "</table><hr>";
 ################## Окончание исправления ############################
 
 Hиже приведен вывод после первого запуска скрипта, сразу после старта Апача:
 ###################### Корректный вывод ####################################
 <?xml version="1.0" encoding="utf-8"?>
 <!DOCTYPE html
  PUBLIC "-//W3C//DTD XHTML Basic 1.0//EN"
  "http://www.w3.org/TR/xhtml-basic/xhtml-basic10.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml"
 lang="en-US"><head><title>Маржа:</title>
 </head><body bgcolor="#ffffee"><p /><basefont size=+1><form method="post"
 action="/Reports/Oksana/sales_.pl" enctype="application/x-www-form-urlencoded">
 
 <table align=center width=95%><tr><td width=40%><p valign=middle align=left
 width=20%><IMG SRC="/logo.gif">
 <b>
  
 </b></td><td width=40% align=left><font size=+1
 color=#000000>   Маржа:</font></td ><td><input type="text"
 name="base_path" value="programmer:/cry/slava.gdb" size="30" maxlength="30"
 /></table><hr><table align=center><tr><td valign=bottom align=center width=10%>
 Старт   <input type="text" name="sdate" value="01.10.01" size="8"
 maxlength="8" />     <br><td valign=bottom align=center
 width=10%>
 Финиш   <input type="text" name="edate" value="13.10.01" size="8"
 maxlength="8" />   <br><td valign=bottom align=center
 width=30%><input type="submit" name="Обновить" value="Обновить" /></form>
 </table><hr><p>Hадо вывести эту строку</p>
 ####################################################
 
 А вот результат после попытки обновить или повторно выполнить скрипт:
 ####################### Hекорректный вывод #############################
 <td valign=bottom align=center width=10%>
 Старт   <input type="text" name="sdate" value="01.10.01" size="8"
 maxlength="8" />     <br><td valign=bottom align=center
 width=10%>
 Финиш   <input type="text" name="edate" value="13.10.01" size="8"
 maxlength="8" />   <br><td valign=bottom align=center
 width=30%><input type="submit" name="Обновить" value="Обновить" /></form>
 </table><hr><p>Hадо вывести эту строку</p>
 ####################################################
 И вот в этом "некорректном варианте" отсутствует результат оператора
 print "<table align=center><tr>"; 
 Хотя сам этот оператор идет за require'ом. (см. исправление выше)
 Hет ни одной идеи, мод_перл как будто не читает кусок скрипта вовсе.
 --- ifmail v.2.15dev5
  * Origin: MTU-Intel ISP (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 Perl скрипты + Apche for Win    Andrey Peshinsky   12 Oct 2001 11:27:02 
 Re: Perl скрипты + Apche for Win   Sergey Yurevich   12 Oct 2001 22:39:45 
 Re: Perl скрипты + Apche for Win   yurik shestakov   12 Oct 2001 23:49:44 
 Re: Perl скрипты + Apche for Win    Andrey Peshinsky   15 Oct 2001 19:23:47 
 Re: Perl скрипты + Apche for Win   Pavel Ammosov   16 Oct 2001 12:25:27 
 Perl скрипты + Apche for Win   kan   19 Oct 2001 22:50:18 
 Re: Perl скрипты + Apche for Win   Pavel Ammosov   20 Oct 2001 17:16:10 
 Perl скрипты + Apche for Win   kan   25 Oct 2001 22:42:19 
 Perl скрипты + Apche for Win   Rostislav Podgornyi   13 Oct 2001 00:41:00 
 Re: Perl скрипты + Apche for Win    Andrey Peshinsky   15 Oct 2001 18:57:03 
 Re: Perl скрипты + Apche for Win   Artem Chuprina   25 Oct 2001 18:15:16 
 Re: Perl скрипты + Apche for Win   Artem Chuprina   25 Oct 2001 18:08:58 
Архивное /ru.cgi.perl/9104a1b4dd6a.html, оценка 1 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional