Forum Webscript.Ru

Программирование => Perl => Тема начата: Fishkiller от 14 Октября 2004, 23:29:15

Название: Как передать русский текст в CGI ?
Отправлено: Fishkiller от 14 Октября 2004, 23:29:15

Вот столкнулся с проблемой,как передать русский текст из и .Помогите пожалуйста! </dd> <dt class="postheader"> Название: <strong>Как передать русский текст в CGI ?</strong><br /> Отправлено: <strong>Меняздесьдавнонет</strong> от <strong>14 Октября 2004, 23:31:40</strong> </dt> <dd class="postbody"> а что - какие-то проблемы? </dd> <dt class="postheader"> Название: <strong>Как передать русский текст в CGI ?</strong><br /> Отправлено: <strong>Fishkiller</strong> от <strong>15 Октября 2004, 10:46:15</strong> </dt> <dd class="postbody"> Да, я не могу добиться чтобы CGI принимал русский текст. Английский передается в скрипт без проблем,а русский нет </dd> <dt class="postheader"> Название: <strong>Как передать русский текст в CGI ?</strong><br /> Отправлено: <strong>Phoinix</strong> от <strong>15 Октября 2004, 10:51:54</strong> </dt> <dd class="postbody"> <strong>Fishkiller</strong> <br />Может не будем ходить вокруг да около и конкретно опишем проблему??? у большинства пользователей здесь, проблем с этим нет... </dd> <dt class="postheader"> Название: <strong>Как передать русский текст в CGI ?</strong><br /> Отправлено: <strong>NeoNox</strong> от <strong>15 Октября 2004, 11:45:23</strong> </dt> <dd class="postbody"> <strong>Fishkiller</strong> <br />Включаем модуль телепатирования...<br /><br /># perl -de0<br /><br />  DB<1> use CGI qw(escape unescape)<br />  DB<2> print escape(\'Кирилика здесь\')<br />%EB%C9%D2%C9%CC%C9%CB%C1%20%DA%C4%C5%D3%D8<br />  DB<3> print unescape(\'%EB%C9%D2%C9%CC%C9%CB%C1%20%DA%C4%C5%D3%D8\')<br />Кирилика здесь<br /><br />Оно? </dd> <dt class="postheader"> Название: <strong>Как передать русский текст в CGI ?</strong><br /> Отправлено: <strong>Phoinix</strong> от <strong>15 Октября 2004, 12:53:50</strong> </dt> <dd class="postbody"> <strong>NeoNox</strong> <br />[OFF]А где его можно скачать? а то на CPAN не нашел... :)[/OFF]<br />А я так думаю, что гораздо банальнее:<br /><br />#!/usr/bin/perl -w<br />use stirct;<br />use CGI qw(param);<br /><br />my $text = param(\'text\');<br /><br />if ($text) {<br />print "Content-type: text/html; charset=windows-1251\\n\\n";<br />print "$text";<br />} else {<br />print "Content-type: text/html; charset=windows-1251\\n\\n";<br />print "<form action="" method=post><br /><input type=text name=text><br /><input type=submit><br /></form><br />";<br />}<br /><br />Надо будет этот код где-нибудь сохранить, я смотрю он на все случаи жизни... ;) </dd> </dl> <div id="footer" class="smalltext"> <span class="smalltext" style="display: inline; visibility: visible; font-family: Verdana, Arial, sans-serif;"><a href="http://forums.webscript.ru/index.php?PHPSESSID=qr2vildma3c5fcj4sv5uof0lu5&action=credits" title="Simple Machines Forum" target="_blank" class="new_win">SMF 2.0.19</a> | <a href="http://www.simplemachines.org/about/smf/license.php" title="License" target="_blank" class="new_win">SMF © 2016</a>, <a href="http://www.simplemachines.org" title="Simple Machines" target="_blank" class="new_win">Simple Machines</a> </span> </div> </body> </html>