简繁体中文转换

#!/usr/bin/perl -wT use strict; use Encode qw(encode decode from_to encode_utf8 decode_utf8); use Encode::HanConvert; use CGI; use HTML::Entities; my $q = CGI->new; my $result_langcode = 'zh-hant'; my $text_langcode = 'zh-hans'; my $text = $q->param('text'); if (!$text) { print_form(); } else { my $from = $q->param('from'); my $result = ''; if ($from eq 's') { $result = encode('utf8', simp_to_trad(decode('utf8', $text))); } elsif ($from eq 't') { $result = encode('utf8', trad_to_simp(decode('utf8', $text))); $result_langcode = 'zh-hans'; $text_langcode = 'zh-hant'; } if ($q->param('script')) { print "Content-type: text/plain\n\n$result"; } else { print_form('

'. encode_entities($result, '<>&\'"') . '

原文:

' . encode_entities($text, '<>&\'"') . '

'); } } sub print_form { my ($text) = @_; print < 简繁体中文转换 END if ($text) { print '

', $text, '

'; } print <

简体转正體正體轉简体

END }