| Новости | FAQ | Авторы | Документация | В действии | Библиотека | 
| Инструменты | Полезные ссылки | Хостинги | Скачать | Примеры | Форум | 
yz 27.05.2003 14:18
Давайте. Такой пример подойдёт?#!/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;К сожалению, с С я не сильно дружу, поэтому буду благодарен, если Вы дадите пример С'шного кода.