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  

本友会机友会摄友会

我先谈谈行怎么切割出第一列的问题。这里有个约束，我们对第一列后面的数据并不关心，不改变。
1如果是powershell，可以先把txt导入，转成csv，或excel保存。经过这一步的预处理，好处是以后，我们可以直接读写第一列。
2而如果是【脚本语言不支持csv，excel】或者【要求只能输出文本】，就麻烦了一点点。
需要找到【第一个空格】的位置，切割处理，然后还要加上尾部。

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