parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

Ответ

yz 27.05.2003 14:18

Давайте. Такой пример подойдёт?
http://yz.kiev.ua/content-length.cgi
#!/usr/local/bin/perl
use CGI;
local $query=new CGI;

print $query->header('text/html; charset=koi8-r');
print $query->start_html();

$myself=$query->url;
print $query->startform('POST',$myself,'KOI8-R');
print $query->textfield(-name=>'test',
                        -size=>40,
                        -maxlength=>40,
                        -override=>0,
                        -value=>""
                        );
print $query->submit(-value=>"Ok");
print $query->endform;

local $string = $query->param('test');
print "$string\n";

print $query->end_html;
К сожалению, с С я не сильно дружу, поэтому буду благодарен, если Вы дадите пример С'шного кода.