| Новости | 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;К сожалению, с С я не сильно дружу, поэтому буду благодарен, если Вы дадите пример С'шного кода.