Re: [Shellweb-main] utf8/gb2312 support

[Easun S. <eas...@21...>]

fayland,=C4=FA=BA=C3=A3=A1

=09=CE=CA=CC=E2=CA=C7=CF=D6=D4=DA=BA=C3=B6=E0=CD=F8=D2=B3=B6=BC=B2=BB=B1=EA=D7=BC=A3=AC content=3D"text/html; charset=3Dgb2312"=
  =
 =B2=BF=B7=D6=CD=F8=D2=B3=B8=F9=B1=BE=C3=BB=D3=D0=A1=A3=D2=B2=D0=ED=A3=AC=B8=F8=CF=D6=D4=DA=B5=C4=B3=CC=D0=F2=B8=F8=B6=A8=D2=BB=B8=F6=C4=AC=C8=CF=B1=E0=C2=EB=A3=AC=B5=AB=CA=C7=D4=CA=D0=ED=CA=B9=
=D3=C3=D5=DF=CA=D6=B6=AF=B8=C4=B1=E4=B1=E0=C2=EB=A1=A3=C4=AC=C8=CF=CE=AA utf8 =B0=C9=A1=A3=BE=BF=BE=B9=CA=C7=CD=F2=B9=FA=C2=EB=A1=A3

=3D=3D=3D=3D=3D=3D=3D 2005-12-23 22:59:00 =C4=FA=D4=DA=C0=B4=D0=C5=D6=D0=D0=B4=B5=C0=A3=BA=3D=3D=3D=3D=3D=3D=3D

>=CE=D2=D3=C3=C1=CB
>  my $enc =3D Encode::Guess->guess($content);
>  my $encoding;
>  unless (ref($enc)) {
>   $encoding =3D 'euc-cn'; # use 'enc-cn' by default
>  } else {
>   $encoding =3D $enc->name;
>  }
>  $content =3D decode($encoding, $content);
>=C0=B4=B4=A6=C0=ED=BB=F1=B5=C3=CD=F8=D2=B3=A1=A3=D5=E2=D1=F9=B2=BB=B9=DC=C4=E3=D2=AA=BB=F1=C8=A1=B5=C4=CD=F8=D2=B3=CA=C7 gb2312 =BB=B9=CA=C7 utf8,=
 =B6=BC=C4=DC=B4=A6=C0=ED=B5=C4=A1=A3
>
>=B2=BB=B9=FD=CE=D2=C8=CF=CE=AA=D5=E2=BB=B9=B2=BB=CA=C7=CD=EA=C3=C0=B5=C4=BD=E2=BE=F6=B7=BD=B0=B8=A1=A3=D3=A6=B8=C3=C5=D0=B6=CF <meta=
 http-equiv=3D"Content-Type" content=3D"text/html; charset=3Dgb2312">=
 =C0=B4 decode.
>
>=C4=BF=C7=B0=BE=CD=D5=E2=D1=F9=C1=CB=A1=A3=CF=EE=C4=BF=C4=BF=C7=B0=BF=B4=C6=F0=C0=B4=CC=AB=C3=BB=D3=D0=CD=B7=D0=F7=C1=CB=A1=A3=BB=F2=D0=ED=D3=A6=B8=C3=CF=C8=CC=D6=C2=DB=CC=D6=C2=DB=A1=A3
>
>Regards,
>--
>Fayland Lam // <http://www.fayland.org/>

=3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D =3D
=09=09=09

=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=D6=C2
=C0=F1=A3=A1
 
=09=09=09=09 
=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1Easun Studio
=A1=...@21...
=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A1=A12005-12-23