参考fangqiang一帖子写的日历程序，但显示乱码，如何解决呢？

gaochong

http://gaochong.netbank.cn/rl.pl

代码方面没错，因为查看HTML“源文件”是对的。但却显示乱码，请问各位什么原因，如何解决？
谢谢！

gaochong

源码如下：
#!/usr/bin/perl

use strict;

my ($sec,$min,$hou,$mday,$mon,$year,$wday,$yday)=localtime(time);
$year+=1900;
$mon+=1;
my @wantday=("星期日","星期一","星期二","星期三","星期四","星期五","星期六");
my $date=sprintf("%04d年%02d月",$year,$mon);
my $Fontcolor="#FFCC99";
if (($wday==6) || ($wday==0)) {
        $Fontcolor="#FF6633";}
print "Content-type:text/html","\n\n";
print <<EOF;
        <table width="67" border="1" cellspacing="0" cellpadding="0"><tr>
        <td bgcolor="#00FF00" style="font-size: 9pt" width="65" height="70"><div align="center">$date<br>
        <font color="red" size="5"><b>$mday</b></font><br>$wantday[$wday]</div></td></tr></table>
<br>
Today is the $yday day .
EOF

gaochong

1. 
   
2. print "Content-type:text/html","\n\n";
   

复制代码

修改为

print "Content-type:text/html;charset=gbk","\n\n";


还是显示乱码。

[ 本帖最后由 gaochong 于 2007-11-14 22:55 编辑 ]

gaochong

已经解决！

浏览器->编码->Unicode(UTF- 就正常显示了。

gaochong

同时代码中，修改
print "Content-type:text/html","\n\n";
为print "Content-type:text/html;charset=utf-8","\n\n";
这样所有用户就都可以正常访问了。

perljoker

呵呵，自己找到问题，自己解决，赞一个

gaochong

也是有大家的指导和帮助，才解决的。