5i365 (我心飞扬)当前离线
上尉
评分人数
for_flr 当前离线
五级士官
TOP
[regex]::matches($uni_s,'\\u(.{4})')|%{[char][int]($_.value.replace('\u','0x'))}复制代码
idwma 当前离线
少校
$Uni_s = '嗨!\u6211\u662f\u4e2d\u56fd\u4eba' [regex]::Replace($Uni_s, '\\u[0-9-a-f]{4}', { [char][int]($args[0] -replace '\\u', '0x') })复制代码
[regex]::Replace($Uni_s, '\\u.{4}', {$args[0];"`n"}) [regex]::Replace($Uni_s, '\\u.{4}', {[char][int]($args[0] -replace '\\u','0x')})复制代码
523066680 (消遣区)当前离线
版主
use utf8; use Encode; my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba'; $str=~s/\\u(.{4})/\\x\{$1\}/g; print encode('gbk', eval qq("$str"));复制代码
use utf8; use Encode; my $str='嗨!\u6211\u662f\u4e2d\u56fd\u4eba'; $str=~s/\\u(.{4})/chr(hex($1))/eg; print encode('gbk', $str);复制代码
嗨!我是中国人