请问如何将以下的空格替换成tab

huafeng273

各位大侠：
    请问如何将以下的空格替换成tab.

freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB   1.2dB   1.0dB
2412       11S         1      27.0       142      27.3     -31.0     -10.0      .       0.3       .       .       .
2412         6         1      27.0       142      27.1     -30.9      -5.0      .       0.1       .       .       .
2412        54         1      26.0       143      26.4     -32.8     -26.0      .       0.4       .       .       .
2412        t0         1      27.0       141      27.4     -29.7      -7.0      .       0.4       .       .       .
2412        t7         1      24.0       141      24.7     -35.3     -28.7      .       0.7       .       .       .
2437       11S         1      27.0       141      27.2     -29.3     -10.0      .       0.2       .       .       .
2437         6         1      27.0       141      27.3     -31.0      -5.0      .       0.3       .       .       .
2437        54         1      26.0       141      26.5     -31.6     -26.0      .       0.5       .       .       .
2437        t0         1      27.0       140      27.0     -30.2      -7.0      .       0.0       .       .       .
2437        t7         1      24.0       140      24.5     -35.9     -28.7      .       0.5       .       .       .
2462       11S         1      27.0       140      26.9     -29.7     -10.0      .      -0.1       .       .       .
2462         6         1      27.0       141      26.7     -30.4      -5.0      .      -0.3       .       .       .
2462        54         1      26.0       140      25.9     -31.9     -26.0      .      -0.1       .       .       .
2462        t0         1      27.0       140      26.8     -30.0      -7.0      .      -0.2       .       .       .
2462        t7         1      24.0       140      24.1     -34.8     -28.7      .       0.1       .       .       .

shijiang1130

1. use strict;
   
2. use v5.10;
   
3. while(<DATA>){
   
4. s/\s+/\t/g;
   
5. say $_;
   
6. }
   
7. 
   
8. 
   
9. __DATA__
   
10. freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB   1.2dB   1.0dB
    
11. 2412       11S         1      27.0       142      27.3     -31.0     -10.0      .       0.3       .       .       .
    
12. 2412         6         1      27.0       142      27.1     -30.9      -5.0      .       0.1       .       .       .
    
13. 2412        54         1      26.0       143      26.4     -32.8     -26.0      .       0.4       .       .       .
    
14. 2412        t0         1      27.0       141      27.4     -29.7      -7.0      .       0.4       .       .       .
    
15. 2412        t7         1      24.0       141      24.7     -35.3     -28.7      .       0.7       .       .       .
    
16. 2437       11S         1      27.0       141      27.2     -29.3     -10.0      .       0.2       .       .       .
    
17. 2437         6         1      27.0       141      27.3     -31.0      -5.0      .       0.3       .       .       .
    
18. 2437        54         1      26.0       141      26.5     -31.6     -26.0      .       0.5       .       .       .
    
19. 2437        t0         1      27.0       140      27.0     -30.2      -7.0      .       0.0       .       .       .
    
20. 2437        t7         1      24.0       140      24.5     -35.9     -28.7      .       0.5       .       .       .
    
21. 2462       11S         1      27.0       140      26.9     -29.7     -10.0      .      -0.1       .       .       .
    
22. 2462         6         1      27.0       141      26.7     -30.4      -5.0      .      -0.3       .       .       .
    
23. 2462        54         1      26.0       140      25.9     -31.9     -26.0      .      -0.1       .       .       .
    
24. 2462        t0         1      27.0       140      26.8     -30.0      -7.0      .      -0.2       .       .       .
    
25. 2462        t7         1      24.0       140      24.1     -34.8     -28.7      .       0.1       .       .       .

复制代码

dqw233

perl -ne "print s/\s/\t/gr.qq(\n)" filename

huafeng273

回复 4# sinian126


   

huafeng273

海量文件，生产测试的日志文件回复 6# sinian126


   

rubyish

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. use Spreadsheet::WriteExcel;
   
4. my @data = map [split], <DATA>;
   
5. splice $data[0], 5, 2, join '_', @{$data[0]}[5,6];
   
6. 
   
7. my $xls    = Spreadsheet::WriteExcel->new('/tmp/a.xls');
   
8. my $ws     = $xls->add_worksheet();
   
9. my $format = $xls->add_format();
   
10. $format->set_align('right');
    
11. 
    
12. my $i = 0;
    
13. for my $e (@data) {
    
14.     my $j = 0;
    
15.     map $ws->write( $i, $j++, $_, $format ), @$e;
    
16.     $i++;
    
17. }
    
18. 
    
19. __DATA__
    
20. freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB   1.2dB   1.0dB
    
21. 2412       11S         1      27.0       142      27.3     -31.0     -10.0      .       0.3       .       .       .
    
22. 2412         6         1      27.0       142      27.1     -30.9      -5.0      .       0.1       .       .       .
    
23. 2412        54         1      26.0       143      26.4     -32.8     -26.0      .       0.4       .       .       .
    
24. 2412        t0         1      27.0       141      27.4     -29.7      -7.0      .       0.4       .       .       .
    
25. 2412        t7         1      24.0       141      24.7     -35.3     -28.7      .       0.7       .       .       .
    
26. 2437       11S         1      27.0       141      27.2     -29.3     -10.0      .       0.2       .       .       .
    
27. 2437         6         1      27.0       141      27.3     -31.0      -5.0      .       0.3       .       .       .
    
28. 2437        54         1      26.0       141      26.5     -31.6     -26.0      .       0.5       .       .       .
    
29. 2437        t0         1      27.0       140      27.0     -30.2      -7.0      .       0.0       .       .       .
    
30. 2437        t7         1      24.0       140      24.5     -35.9     -28.7      .       0.5       .       .       .
    
31. 2462       11S         1      27.0       140      26.9     -29.7     -10.0      .      -0.1       .       .       .
    
32. 2462         6         1      27.0       141      26.7     -30.4      -5.0      .      -0.3       .       .       .
    
33. 2462        54         1      26.0       140      25.9     -31.9     -26.0      .      -0.1       .       .       .
    
34. 2462        t0         1      27.0       140      26.8     -30.0      -7.0      .      -0.2       .       .       .
    
35. 2462        t7         1      24.0       140      24.1     -34.8     -28.7      .       0.1       .       .       .
    

复制代码

rubyish

txt:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. open my $p, '>', 'power1.txt';
   
4. my @data = map [split], <DATA>;
   
5. splice $data[0], 5, 2, join '_', @{ $data[0] }[ 5, 6 ];
   
6. say $p join "\t", @$_ for @data;
   
7. __DATA__
   
8. freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB   1.2dB   1.0dB
   
9. 2412       11S         1      27.0       142      27.3     -31.0     -10.0      .       0.3       .       .       .
   
10. 2412         6         1      27.0       142      27.1     -30.9      -5.0      .       0.1       .       .       .
    
11. 2412        54         1      26.0       143      26.4     -32.8     -26.0      .       0.4       .       .       .
    
12. 2412        t0         1      27.0       141      27.4     -29.7      -7.0      .       0.4       .       .       .
    
13. 2412        t7         1      24.0       141      24.7     -35.3     -28.7      .       0.7       .       .       .
    
14. 2437       11S         1      27.0       141      27.2     -29.3     -10.0      .       0.2       .       .       .
    
15. 2437         6         1      27.0       141      27.3     -31.0      -5.0      .       0.3       .       .       .
    
16. 2437        54         1      26.0       141      26.5     -31.6     -26.0      .       0.5       .       .       .
    
17. 2437        t0         1      27.0       140      27.0     -30.2      -7.0      .       0.0       .       .       .
    
18. 2437        t7         1      24.0       140      24.5     -35.9     -28.7      .       0.5       .       .       .
    
19. 2462       11S         1      27.0       140      26.9     -29.7     -10.0      .      -0.1       .       .       .
    
20. 2462         6         1      27.0       141      26.7     -30.4      -5.0      .      -0.3       .       .       .
    
21. 2462        54         1      26.0       140      25.9     -31.9     -26.0      .      -0.1       .       .       .
    
22. 2462        t0         1      27.0       140      26.8     -30.0      -7.0      .      -0.2       .       .       .
    
23. 2462        t7         1      24.0       140      24.1     -34.8     -28.7      .       0.1       .       .       .
    

复制代码

huafeng273

谢谢楼上的仁兄！回复 9# rubyish