ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : vitus@ice.ru                         2:5020/400     04 Apr 2000  11:18:21
 To : Serge Cherpatyuk
 Subject : Re: sorry, cgi q
 -------------------------------------------------------------------------------- 
 

 Serge Cherpatyuk <Serge.Cherpatyuk@p39.f44.n4625.z2.fidonet.org> wrote:
 
 SC>Доброе время суток!
 
 SC>У меня два фидо-босса и ни у одного ru.cgi.perl ;(
 SC>Поэтому пробую тут поспрашать, сорри.
 SC>Пример приведённый в perldoc CGI на моём сервере
 SC>отрабатывает, а вот набранный собственноручно cgi:
 SC>============
 SC>#/usr/bin/perl
 SC>use strict;
 SC>use CGI qw/:standart/;
 
                      ^^^
         Hе так оно пишется, не так.
 
 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,
 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.
 
 -- 
 --------------------------------------------------
 Victor Wagner      vitus@ice.ru
 Programmer     Office:7-(095)-203-50-60
 Institute for Commerce     Home: 7-(095)-135-46-61
 Engineering                     http://www.ice.ru/~vitus
 --- ifmail v.2.15dev4
  * Origin: Demos online service (2:5020/400)
 
 

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