icer213 发表于 2020-08-20 09:22

請教perl 匹配target 後截取換行中資料問題

本文資料如下
想要截取Test ID 中並輸出不同行array[ ]
例如輸出excel file       3101             3121
                      mean 16.48668nA23.15744nA
請問peral如何實現 ,
感謝。

Item No: 1

      Test ID: 3101

      Title: GMA1~7 VDA Leak Test



      Total Test Count: 2303               Minimum Data    :-2.000000uA   

      Pass Count      : 2287             Maximum Data    : 2.000000uA   

      Fail Count      : 7                  Minimum Scale   :-2.000000uA   

      Error Count   : 0               Maximum Scale   : 2.000000uA   

      Over Flow Count : 9                  Lower Limit   :-800.0000nA   

      Effec Data Count: 2289                Upper Limit   : 800.0000nA   

      Mean            : 16.48668nA            Minimum Value   :-1.070000uA   

      Variance      : 1.442316fA$       Maximum Value   : 42.00000nA   

      Sigma         : 37.97784nA   1.96-Sigma      : 74.43656nA   

      2-Sigma         : 75.95568nA      3-Sigma         : 113.9335nA   

      Cp            : 7.021639       Cpk             : 6.876934      

Item No: 3

      Test ID: 3121

      Title: GMA8~14 VDA*0.6 Leak Test



      Total Test Count: 2303               Minimum Data    :-2.000000uA   

      Pass Count      : 2293             Maximum Data    : 2.000000uA   

      Fail Count      : 2                  Minimum Scale   :-2.000000uA   

      Error Count   : 0               Maximum Scale   : 2.000000uA   

      Over Flow Count : 8                  Lower Limit   :-800.0000nA   

      Effec Data Count: 2293                Upper Limit   : 800.0000nA   

      Mean            : 23.15744nA            Minimum Value   : 10.00000nA   

      Variance      : 165.2875E-18A$    Maximum Value   : 430.0000nA   

      Sigma         : 12.85642nA   1.96-Sigma      : 25.19858nA   

      2-Sigma         : 25.71283nA   3-Sigma         : 38.56925nA   

      Cp            : 20.74191       Cpk             : 20.14150      

legs 发表于 2020-08-24 10:38

perl -0nE'print"excel file ";$,=" ";say/Test ID: \K\d+/g;say/Mean\s+: \K\S+/g' file
页: [1]
查看完整版本: 請教perl 匹配target 後截取換行中資料問題