ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Pankratov                     2:5002/63.45   04 Apr 2000  09:22:08
 To : Serge Cherpatyuk
 Subject : sorry, cgi q
 -------------------------------------------------------------------------------- 
 

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

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

Тема:    Автор:    Дата:    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