|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : ‚®бваЁЄ®ў …ўЈҐЁ© 2:5020/400 03 Apr 2000 22:36:03 To : All Subject : Re: sorry, cgi q -------------------------------------------------------------------------------- Serge Cherpatyuk <Serge.Cherpatyuk@p39.f44.n4625.z2.fidonet.org> пишет в сообщении:8caatl$k8u$1@mail.vinnica.taxu.ua... > Доброе время суток! > > У меня два фидо-босса и ни у одного 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.15dev4 * Origin: Информсвязь-Черноземье (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/5475dcd231d1.html, оценка из 5, голосов 10
|