2007/5/14, Chas Owens <[EMAIL PROTECTED]>:
#!/usr/bin/perl use strict; use warnings;use strict; use Encode; use URI::Escape; my $str = 'Perl%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%EF%BF%BD%28%EF%BF%BD%EF%BF%BD%EF%BF%BD%C4%B0%EF%BF%BD%29.pdf'; my $tr = encode("utf8",decode("gb2312",uri_unescape($str))); print "$tr\n";
Sorry Chas this would work still. Anyway thanks.I'll try other ways. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] http://learn.perl.org/
