|
|
ru.cgi.perl- RU.CGI.PERL ------------------------------------------------------------------ From : Artem Bednarchuk 2:5031/50.29 16 Jul 2001 18:41:20 To : All Subject : use CGI --------------------------------------------------------------------------------
_НН Приветствую тебя, All! НН_
Возникла следующая проблема как сделать через модуль CGI следующие:
необходимо создать html c автоматической перекодировкой, т.е.
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
----
#!/usr/local/bin/perl -w
use CGI qw/:standard/;
print header(-head=>meta({-http_equiv =>'Content-Type',-content=>'text/html'}))
----
такой код выдает:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type></HEAD>
<BODY></BODY></HTML>
вставка типа
___
print header(-head=>meta({-http_equiv=>'Content-Type',
-charset=>'winwods-1251',-content=>'text/html'}))
___
не дает нужного результата
можно конечно с помощью стандартными средств,типа
print "Content-Type: text/html\n\n";
print "<html>\n";
print "<body>\n";
print <<EOD;
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
EOD
но хочется с помощью данного модуля,а вообще что лучше- использовать готовые
модули(типа CGI) или обходиться стандартными средствами,как в моем случае?
_/*Adios, amigo All!*/_
--- GoldED/W32 3.0.0-dam9
* Origin: Любовь, это Вам не простак так - ею надо заниматься. (2:5031/50.29)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.cgi.perl/160673b53498d.html, оценка из 5, голосов 10
|