使用Perl代码
#!/usr/bin/perl
use strict;
use warnings;
use CGI ":all";
use Encode;
my $cgi = new CGI;
$cgi->charset('utf-8');
print $cgi->header(-type => 'text/html',-charset => 'utf-8');
print $cgi->start_html(-title => 'Test',-head => Meta({-http_equiv => 'Content-Type',-content => 'text/html; charset=utf-8'}));
my $text = 'test'; # for Now
Encode::from_to($text,'latin1','utf8');
print $cgi->p($text);
print $cgi->end_html;
我得到以下输出：
Content-Type: text/html; charset=utf-8
<!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="en-US" xml:lang="en-US">
<head>
<title>Test</title>
<Meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<Meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
</head>
<body>
<p>test</p>
</body>
我不知道为什么
< Meta http-equiv =“Content-Type”content =“text / html; charset = iso-8859-1”/>
在输出中,我不知道如何摆脱它.
所有建议将不胜感激.
解决方法
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
