- 论坛徽章:
- 307
|
测试环境 Win7 x64, IDE gvim 代码如下:
- #!/usr/bin/perl
- use strict;
- use warnings;
- use Encode qw /encode decode/;
- use utf8;
- while (<DATA>){
- s/\s*\z//;
- local $_ = decode ('utf8', $_);
- next if (/[^\x{4E00}-\x{9FA5}]/ or length !=6);
- print encode ('gb2312', $_);
- }
- __DATA__
- www某h某公司
- www某4某某某公司.
- ww某某r5[\';某*某公司/
- www某某'某公司
- www某-5r4645'\[;]某某某公司
- www某某某;'\';[56某公司某某
- www某某某rtr'\某公司某某*
- www某某.'\';\][\'某\某公司某某
- www某^某24'.某某公司某某
- www某某@某;/][[/]][=][/;;==[].某公司某某
- www某,某,某,某+*'/gf6公ytu'司某某
- www某,某某;某公/'[/ytr4.>司某某
- .,.\.\..fdwww某某某/.5.f某公司某某
- www某某某某公[],.\4/][][\\..,\'wre司某某
- www某某某某公司某某'
- 某某某某公司某某
- 某某某某公司
- 公司某某某某
- 公司某某某
- 公司某某
- 公司某
- 某某某公司
- 某某某某某公司
- 某某某某某某公司
- 某公司
复制代码
|
|