如果用awk命令对一行超长文本进行格式化

max5

如果用awk命令对一行超长文本进行格式化（文本文件 只有一行，没有换行）

AAAAAAAAAA1111222233334444...


如何才能格式化成
AAAAAAAAAA
1111,2222
3333,4444
.....

前面用sed写了下 文本小时候处理还可以，当文件到了1M后就慢了 20M时候基本就没戏了。

redspider

1. open(FILE, '<', 't.log') or die $!;
   
2. my $longlongstring = do { local $/; <FILE> };
   
3. close FILE;
   
4. 
   
5. 
   
6. my $begin_position = 10;
   
7. my $step = 4;
   
8. 
   
9. print substr($longlongstring,0, $begin_position), "\n";
   
10. 
    
11. my $len_of_longstring = length($longlongstring);
    
12. while ($begin_position+$step < $len_of_longstring) {
    
13.         print substr($longlongstring, $begin_position, $step), ',';
    
14.         $begin_position += $step;
    
15.         print substr($longlongstring, $begin_position, $step), "\n";
    
16.         $begin_position += $step;
    
17. }

复制代码

20MB长字符串，10s够不够快？
字符串超过100MB要考虑一下内存...

Shell_HAT

学习一下2楼的Perl脚本

where27

回复 1# max5

1. 
   
2. 
   
3. [code]sed 's/./&\n/10' file |sed '1!{s/\(.\{4\}\)\(.\{4\}\)/\1,\2\n/g}'

复制代码

用全局替换不知道会不会好一点，这样应该不用循环吧，碰到4个字符先用逗号分隔，然后换行。

ywlscpl

1. awk -F '' '{for (i=1;i<=NF;i++) {if (i==10||(i-10)%8==0&&i>10) {print $i;continue}if ((i-10)%4==0&&i>10) $i=$i",";printf $i}}' file

复制代码

where27

回复 5# ywlscpl


    厉害，你这样会快很多啊，为什么awk的效率会这么高，比我用sed的效率要高几百倍，请教！

ywlscpl

回复 6# where27


    两个管应该比一个管慢一些吧

where27

回复 7# ywlscpl


    好像不是管道的问题，一个管的sed也比不过1个管的awk，差得很远还

blackold

测试结果如何？

iori809

这题考的是算法~