请问从log中用perl提取power和evm有效数据，然后根据筛选的生成excel格式数据

huafeng273

各位大侠：
    小弟刚开始学习perl语言，有个项目比较紧急，通过perl语言从附件log中l提取power和evm数据；然后生成excel表格数据，请问怎么实现？

谢谢！

提取有效数据如下：
5GHz Power Accuracy

frequency      rate   txchain    target      temp  meas pwr     delta   2.0dB   1.5dB   1.0dB
     5785         6         1      20.0       127      18.8      -1.2      ok      ok     nok
      5785        54         1      20.0       127      19.1      -0.9      ok      ok      ok
     5785        t7         1      20.0       127      19.1      -0.9      ok      ok      ok
       5785        f7         1      18.0       127      17.2      -0.8      ok      ok      ok
      5785         6         2      20.0       128      19.2      -0.8      ok      ok      ok
       5785        54         2      20.0       128      19.4      -0.6      ok      ok      ok
       5785        t7         2      20.0       128      19.4      -0.6      ok      ok      ok
      5785        f7         2      18.0       127      16.9      -1.1      ok      ok     nok


5GHz EVM Accuracy with chain power

freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB
5180        t7         1      20.0       126      19.3     -29.7     -22.7     ok      -0.7      ok
5180        f7         1      18.0       127      18.0     -32.3     -22.7     ok       0.0      ok
  5500        t7         1      20.0       127      19.6     -33.5     -22.7     ok      -0.4      ok
  5500        f7         1      18.0       127      17.8     -35.4     -22.7     ok      -0.2      ok
  5785        t7         1      20.0       127      18.9     -33.8     -22.7     ok      -1.1      ok
  5785        f7         1      18.0       126      17.3     -34.6     -22.7     ok      -0.7      ok

rubyish

不明白

huafeng273

谢谢您的关注，我的意思从附件中提取上面列出的有效数据，然后生成excel文档形式保存在linux系统中。回复 2# rubyish


   

rubyish

从附件log中l提取power和evm数据:

1. #!/usr/bin/perl
   
2. use 5.016;
   
3. my ( $ok, $now, @wanted );
   
4. my $key = join( '\s', qw{5GHz Power Accuracy} ) . '|'
   
5.   . join( '\s', qw{5GHz EVM Accuracy with chain power} );
   
6. 
   
7. open my $data, 'Power_EVM_PASS.txt';
   
8. 
   
9. while (<$data>) {
   
10.     if ($ok) {
    
11.         s/^(?:\S+\s+){2}//;
    
12.         /-{10}/ ? $ok = 0 : push @{ $wanted[$now] }, $_;
    
13.     }
    
14.     elsif (/^(?:\S+\s+){2}($key)\r?\n/) {
    
15.         $ok = 1;
    
16.         $now = $1 =~ /EVM/ ? 1 : 0;
    
17.         last if $wanted[$now];
    
18.     }
    
19. }
    
20. 
    
21. say @$_ for @wanted;

复制代码

1. frequency      rate   txchain    target      temp  meas pwr     delta   2.0dB   1.5dB   1.0dB
   
2. 5785         6         1      20.0       127      18.8      -1.2      ok      ok     nok
   
3. 5785        54         1      20.0       127      19.1      -0.9      ok      ok      ok
   
4. 5785        t7         1      20.0       127      19.1      -0.9      ok      ok      ok
   
5. 5785        f7         1      18.0       127      17.2      -0.8      ok      ok      ok
   
6. 5785         6         2      20.0       128      19.2      -0.8      ok      ok      ok
   
7. 5785        54         2      20.0       128      19.4      -0.6      ok      ok      ok
   
8. 5785        t7         2      20.0       128      19.4      -0.6      ok      ok      ok
   
9. 5785        f7         2      18.0       127      16.9      -1.1      ok      ok     nok
   
10. 
    
11. freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP/F     delta   1.2dB
    
12. 5180        t7         1      20.0       126      19.3     -29.7     -22.7     ok      -0.7      ok
    
13. 5180        f7         1      18.0       127      18.0     -32.3     -22.7     ok       0.0      ok
    
14. 5500        t7         1      20.0       127      19.6     -33.5     -22.7     ok      -0.4      ok
    
15. 5500        f7         1      18.0       127      17.8     -35.4     -22.7     ok      -0.2      ok
    
16. 5785        t7         1      20.0       127      18.9     -33.8     -22.7     ok      -1.1      ok
    
17. 5785        f7         1      18.0       126      17.3     -34.6     -22.7     ok      -0.7      ok
    

复制代码

生成excel表格数据，请问各位大侠怎么实现？

huafeng273

谢谢高手的指教！回复 4# rubyish


   

picbhan

为何不直接使用shell的cut提取某一列呢？ excel数据是不是指表格数据？Tab隔开？

luj914

use Spreadsheet::WriteExcel

huafeng273

由于在特殊应用场景下，不能调用这种接口回复 7# luj914


   

ghoull

回复 1# huafeng273

1. #!/usr/bin/perl
   
2. 
   
3. open(XLS,">test.xls");
   
4. open(TXT,"<Power_EVM_PASS.txt");
   
5. while(<TXT>){
   
6.   print XLS if s/^(:?\d+\s+INFO\s+)(5GHz Power Accuracy)$/$2/;
   
7.   print XLS if s/^(:?\d+\s+INFO\s+)(5GHz EVM Accuracy with chain power)/$2/;
   
8.   if( s/^(:?\d+\s+INFO\s+)(freq      rate   txchain    target      temp  meas pwr  meas_EVM  EVMLimit evmP\/F     delta   1.2dB)/$2/){
   
9.   s/(\s+)/\t/g;
   
10.   print XLS $_."\n";
    
11.   };
    
12. 
    
13. if (s/^(:?\d+\s+INFO\s+)(frequency      rate   txchain    target      temp  meas pwr     delta   2.0dB   1.5dB   1.0dB)/$2/){
    
14.   s/(\s+)/\t/g;
    
15.   print XLS $_."\n";
    
16.   };
    
17. if (s/^(:?\d+\s+INFO\s+)((:?\S+\s+){8,}.*ok$)/$2/){
    
18.   s/(\s+)/\t/g;
    
19.   print XLS $_."\n";
    
20.   }
    
21. }
    
22. close XLS;
    
23. close TXT;
    

复制代码

看我这个行不！ 我试了下 已经可以了！！！！！！！1
   

ghoull

1. #!/usr/bin/perl
   
2. 
   
3. my @wanted;
   
4. 
   
5. push @{ $wanted[0] },"5GHz Power Accuracy\n","frequency\trate\ttxchain\ttarget\ttemp\tmeas pwr\tdelta\t2.0dB\t1.5dB\t1.0dB\n";
   
6. push @{ $wanted[1] },"5GHz EVM Accuracy with chain power\n","freq\trate\ttxchain\ttarget\ttemp\tmeas pwr\tmeas_EVM\tEVMLimit\tevmP/F\tdelta\t1.2dB\n";
   
7. 
   
8. open my $data, 'Power_EVM_PASS.txt';
   
9. open (XLS,">test.xls");
   
10. 
    
11. while (<$data>) {
    
12.         s/^(?:\S+\s+){2}//;
    
13.         push @{ $wanted[0] },$_."\n" if /^(:?\S+\s+){9}\w*ok$/&&s/\s+/\t/g;
    
14.         push @{ $wanted[1] },$_."\n" if /^(:?\S+\s+){10}\w*ok$/&&s/\s+/\t/g;
    
15.    }
    
16. say XLS "@{ $wanted[0] }@{ $wanted[1] }";
    
17. close $data;
    
18. close XLS;

复制代码