|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Dmitry A. Nikitin 2:5020/400 27 Mar 2005 20:19:04
To : All
Subject : Кривая кодировка в perl-5.8.3-18
--------------------------------------------------------------------------------
Скрипт создаёт html страницу
#!/usr/bin/perl
use CGI qw/:standard/;
print
header,
start_html(-title=>'Test HTML',
-meta=>{'http-equiv="Content-Type"'=>'content="text/html;
charset=koi8-r"'},
-BGCOLOR=>'#F4F3EC',
-link=>'#0000ff',
-vlink=>'#0000ff',
-lang=>'RU',
-style=>''),"\n",
font({-size=>'+1'},
span({-style=>'color: #808080'},
"Результат обработки формы заказа")),"\n",
br,"\n",
hr,"\n",
font({-style=>'color: green'},
h1({-align=>center},
'Ваш заказ поставлен в очередь')),"\n",
p('Уведомление о его выполнении будет послано по адресу'),"\n",
br,"\n",
hr,"\n",
print h3({-align=>center},
a({href=>'/order/'},'Повторить заполение формы'));
print end_html;
Hо! Текст в ней отображается зюками.
<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="RU"
xml:lang="RU"><head><title>Test HTML</title>
<meta name="http-equiv="Content-Type content="content="text/html;
charset=koi8-r"" />
<link rel="stylesheet" type="text/css" href="" />
</head><body link="#0000ff" vlink="#0000ff" bgcolor="#F4F3EC">
<font size="+1"><span style="color: #808080">здесь зюки</span></font>
<br />
<hr />
<font style="color: green"><h1 align="center">здесь зюки</h1></font>
<p>здесь зюки</p>
<br />
<hr />
<h3 align="center"><a href="/order/">здесь зюки</a></h3></body></html>
Подозреваю, что всё дело в <?xml version="1.0" encoding="iso-8859-1"?>
Как убрать эту пакость?
--
mailto:dmitry@sbor.spb.su
--- ifmail v.2.15dev5.3
* Origin: Home Inc. (2:5020/400)
Вернуться к списку тем, сортированных по:
|
