use Win32::Clipboard;use Encode;my $clip = Win32::Clipboard->new();my $str = $clip->GetAs(CF_UNICODETEXT);;$str=encode("gbk",decode("UTF16-LE", $str));网页通过剪贴板复制下来的汉字字符默认为Unicode字符,需编解码后才能正常使用。
my $ua = LWP::UserAgent->new(ssl_opts => { verify_hostname => 0 });
Copyright © 2005-2024 51CTO.COM 版权所有 京ICP证060544号