打印 汉字 特别需求

Windows19

需要把6个汉字的行打印出来  有出现其它任何字符的行一概不要   弱弱的问下  汉字应该是设GBK编码吧
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某某某某公司某某'
某某某某公司某某
某某某某公司
公司某某某某
公司某某某
公司某某
公司某
某某某公司
某某某某某公司
某某某某某某公司
某公司

应打印出结果: 出来后用空格分开的
某 某 某 某 公 司
公 司 某 某 某 某
谢谢帮忙了

最好能设打印汉字个数行

moperyblue

1. awk '/^[^ -~]{6}$/'

复制代码

?

jason680

try ...

$ file FILE
FILE: UTF-8 Unicode text

$ export n=6; perl -CSDL -lane '($s)=m/(\p{Han}+)/;if(length($s)==$ENV{n}){print join" ",split("",$s)}' FILE
某 某 某 某 公 司
公 司 某 某 某 某

jason680

回复 1# Windows19

try ...

$ file FILE
FILE: UTF-8 Unicode text

$ export n=6; perl -CSDL -lane '($s)=m/(\p{Han}+)/;if(length($s)==$ENV{n}){print join" ",split("",$s)}' FILE
某 某 某 某 公 司
公 司 某 某 某 某

Windows19

学习了...
谢谢楼上2位老师

sunzhiguolu

是论坛抽风还是我的 Firefox 抽风???

export n=6; perl -CSDL -lane '($s)=m/(\p{Han}+)/;if(length($s)==$ENV{n}){print join" ",split("",$s)}' FILE

大神, 这几个参数能否解释下。 谢谢。。。

Windows19

$ cat file
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某某某某公司某某'
某某某某公司某某
某某某某公司
公司某某某某
公司某某某
公司某某
公司某
某某某公司
某某某某某公司
某某某某某某公司
某公司

$ export n=6; perl -CSDL -lane '($s)=m/(\p{Han}+)/;if(length($s)==$ENV{n}){print join" ",split("",$s)}' file
某 某 某 某 公 司
公 司 某 某 某 某
$

Windows19

可以的      

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use Encode qw /encode/;
   
6. 
   
7. local $" = "\t";
   
8. while (<DATA>){
   
9.         s/\s+\z//;
   
10.         next if (/[^\x{4E00}-\x{9FA5}]/ or length != 6);
    
11.         print encode ('cp936', "@{[split]}"), "\n";
    
12. }
    
13. 
    
14. __DATA__
    
15. www某h某公司
    
16. www某4某某某公司.
    
17. ww某某r5[\';某*某公司/
    
18. www某某'某公司
    
19. www某-5r4645'\[;]某某某公司
    
20. www某某某;'\';[56某公司某某
    
21. www某某某rtr'\某公司某某*
    
22. www某某.'\';\][\'某\某公司某某
    
23. www某^某24'.某某公司某某
    
24. www某某@某;/][[/]][=][/;;==[].某公司某某
    
25. www某,某,某,某+*'/gf6公ytu'司某某
    
26. www某,某某;某公/'[/ytr4.>司某某
    
27. .,.\.\..fdwww某某某/.5.f某公司某某
    
28. www某某某某公[],.\4/][][\\..,\'wre司某某
    
29. www某某某某公司某某'
    
30. 某某某某公司某某
    
31. 某某某某公司
    
32. 公司某某某某
    
33. 公司某某某
    
34. 公司某某
    
35. 公司某
    
36. 某某某公司
    
37. 某某某某某公司
    
38. 某某某某某某公司
    
39. 某公司

复制代码

perl abc.pl
----------------------
某某某某公司
公司某某某某