awk高手请进，看看怎么处理这个问题

chinaboywg

有如下文本a.txt
1803201F20602321180425邓良才           6029696000246632             313100000013  易路通    10200101104401040000012         323584000888      
1803201F20602321180423哞哞              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180425邓鸿德           6013820100015049442          104100000004  易路通    10200101104401040000012         323584000888      
1803201F20602321180425乔丹              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180426威圣炫           6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888   

替换成：
1803201F20602321180425aaaaaa           6029696000246632             313100000013  易路通    10200101104401040000012         323584000888      
1803201F20602321180423aaaa              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180425aaaaaa           6013820100015049442          104100000004  易路通    10200101104401040000012         323584000888      
1803201F20602321180425aaaa              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180426aaaaaa           6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888




将第1列的 邓良才 哞哞等替换成aaaa.. ，替换后保持格式不变；汉字有可能是2个，3个，4个，5个，6个....;3个汉字就替换成6个英文，4个汉字就替换成8个英文，6个汉字就替换成12个 。。。依次类推；
求用awk 处理，谢谢；

moperyblue

4个汉字替换成哪8个英文?

sunzhiguolu

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use utf8;
   
4. 
   
5. binmode (STDOUT, ':encoding(utf8)');
   
6. my $tail = 'ceshi';
   
7. 
   
8. while (<DATA>){
   
9.     s/([^\d\s]+)/$tail/;
   
10.     my $leng = length ($1) > 2 ? length ($1) * 2 : 0;
    
11.     if ($leng){
    
12.         $append = 'a' x ($leng - length ($tail));
    
13.         s/(?<=\w)\b/$append/;
    
14.     }
    
15.     print;
    
16. }
    
17. __DATA__
    
18. 602321180425邓良才           602969646632                313100000013  易路通    1020014010412         323584000888
    
19. 602321180423哞哞                621626028016732          313584099990  易路通    1020044010012         323584000888
    
20. 602321180425邓鸿德           601382015049442          104100000004  易路通    1020014010412         323584000888
    
21. 602321180425乔丹                621626028016732          313584099990  易路通    1020044010012         323584000888
    
22. 602321180426威圣炫           621626028016732          313584099990  易路通    1020014010412         323584000888

复制代码

chinaboywg

sunzhiguolu 发表于 2016-12-05 14:01

不能改变原有的列对齐格式
另外，要用awk 啊

chinaboywg

moperyblue 发表于 2016-12-05 12:43
4个汉字替换成哪8个英文?

随便 ceshices  

elu_ligao

汉字前面字符串长度都一定的情况下

1. awk -vstr="aaaaaaaaaaaa" '{t=length($1)-22;$1=substr($1,0,22)substr(str,0,2*t)}1' a.txt|column -t

复制代码

chinaboywg

回复 7# elu_ligao

不行啊，原有的中间的空格不能丢掉啊要改成这样的：

1803201F20602321180425邓良才           6029696000246632             313100000013  易路通    10200101104401040000012         323584000888      
1803201F20602321180423哞哞              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180425邓鸿德           6013820100015049442          104100000004  易路通    10200101104401040000012         323584000888      
1803201F20602321180425乔丹              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180426威圣炫           6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888  
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------   
1803201F20602321180425aaaaaa           6029696000246632             313100000013  易路通    10200101104401040000012         323584000888      
1803201F20602321180423aaaa              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180425aaaaaa           6013820100015049442          104100000004  易路通    10200101104401040000012         323584000888      
1803201F20602321180425aaaa              6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888      
1803201F20602321180426aaaaaa           6216260000028016732          313584099990  易路通    10200101104401040000012         323584000888

sunzhiguolu

回复 4# chinaboywg
并没有改变原始的文件格式, 只是 awk 不熟悉. 直接替换就行了.

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use utf8;
   
4. 
   
5. binmode (STDOUT, ':encoding(utf8)');
   
6. 
   
7. while (<DATA>){
   
8.     s/([^\s\d]+)/'a' x length ($1) x 2/e;
   
9.     print;
   
10. }
    
11. __DATA__
    
12. 602321180425邓良才           602969646632                313100000013  易路通    1020014010412         323584000888
    
13. 602321180423哞哞                621626028016732          313584099990  易路通    1020044010012         323584000888
    
14. 602321180425邓鸿德           601382015049442          104100000004  易路通    1020014010412         323584000888
    
15. 602321180425乔丹                621626028016732          313584099990  易路通    1020044010012         323584000888
    
16. 602321180426威圣炫           621626028016732          313584099990  易路通    1020014010412         323584000888
    

复制代码

perl abc.pl
---------------------------------------------------------
602321180425aaaaaa           602969646632                313100000013  易路通    1020014010412         323584000888
602321180423aaaa                621626028016732          313584099990  易路通    1020044010012         323584000888
602321180425aaaaaa           601382015049442          104100000004  易路通    1020014010412         323584000888
602321180425aaaa                621626028016732          313584099990  易路通    1020044010012         323584000888
602321180426aaaaaa           621626028016732          313584099990  易路通    1020014010412         323584000888

sunzhiguolu

回复 4# chinaboywg
并没有改变原始的文件格式, 只是 awk 不熟悉. 直接替换就行了.

1. #!/usr/bin/perl
   
2. use warnings;
   
3. use utf8;
   
4. 
   
5. binmode (STDOUT, ':encoding(utf8)');
   
6. 
   
7. while (<DATA>){
   
8.     s/([^\s\d]+)/'a' x length ($1) x 2/e;
   
9.     print;
   
10. }
    
11. __DATA__
    
12. 602321180425邓良才           602969646632                313100000013  易路通    1020014010412         323584000888
    
13. 602321180423哞哞                621626028016732          313584099990  易路通    1020044010012         323584000888
    
14. 602321180425邓鸿德           601382015049442          104100000004  易路通    1020014010412         323584000888
    
15. 602321180425乔丹                621626028016732          313584099990  易路通    1020044010012         323584000888
    
16. 602321180426威圣炫           621626028016732          313584099990  易路通    1020014010412         323584000888
    

复制代码

perl abc.pl
---------------------------------------------------------
602321180425aaaaaa           602969646632                313100000013  易路通    1020014010412         323584000888
602321180423aaaa                621626028016732          313584099990  易路通    1020044010012         323584000888
602321180425aaaaaa           601382015049442          104100000004  易路通    1020014010412         323584000888
602321180425aaaa                621626028016732          313584099990  易路通    1020044010012         323584000888
602321180426aaaaaa           621626028016732          313584099990  易路通    1020014010412         323584000888