ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Serge Cherpatyuk                     2:4625/44.39   03 Apr 2000  17:47:17
 To : All
 Subject : sorry, cgi q
 -------------------------------------------------------------------------------- 
 

 Доброе время суток!
 
 У меня два фидо-босса и ни у одного ru.cgi.perl ;(
 Поэтому пробую тут поспрашать, сорри.
 Пример приведённый в perldoc CGI на моём сервере
 отрабатывает, а вот набранный собственноручно cgi:
 ============
 #/usr/bin/perl
 use strict;
 use CGI qw/:standart/;
     print header,
         start_html('Ice Cream Stand'),
         h1('Ice Cream Stand'),
         hr,
         start_form,
         "What's is your name? ",textfield('name'),p,
         "What's is your flavor: ",
         popup_menu(-name=>'flavor',
                    -values=>['mint','cherry','mocha']),p,
         "How many scoops? ",
         popup_menu(-name=>'scoops',
                    -values=>[1..3],p,
         submit("order"), reset("clear"),
         end_form,
         hr;
         print end_html;
 if (param()) {
 my $who = param("name");
 my $flavor = param("flavor");
 my $scoops = param("scoops");
 my $taxrate = 1.0743;
 my $cost = sprintf("%.2f", $taxrate * (1.00 + $scoops * 0.25));
 print "Ok, $who, have $scoops of $flavor for \$$cost.",p;
 }
 ==================================
 
 выдаёт в /var/log/httpd/error.log:
 ============
 [Mon Apr  3 17:30:06 2000] [error] No comma allowed after filehandle at
 /home/httpd/cgi-bin/ic4.PL
  line 4.
 ==========
 
 И где я не прав?
 
 Gray.
 --- ifmail v.2.14.KSI2
  * Origin: RSTA of Vinnytsia (2:4625/44.39@fidonet)
 
 

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

Тема:    Автор:    Дата:    sorry, cgi q   Serge Cherpatyuk   03 Apr 2000 17:47:17   sorry, cgi q   Andrey Pankratov   04 Apr 2000 09:22:08   sorry, cgi q   Leonid Nikolaev   06 Apr 2000 11:47:58