Perl小白求助，如何將如下文本搬到excel里

junweitao

1. Total power consumption
==========================

                                                              Power(Watts)
Power contribution                                      Static  Dynamic    Total
----- ------------                                      ------  -------    -----
Internal power
   Internal register power      240uW    275nW    240uW
   Internal latch power        2.46uW   50.8nW   2.51uW
   Internal memory power           0W       0W       0W
   Other internal power         188uW    451nW    189uW
   Total internal power                                  431uW    776nW    431uW
Pad power                                                   0W       0W       0W
Clock power                                             13.3uW   35.2uW   48.5uW
Inferred Buffer power                                   23.5uW    480pW   23.5uW


Total power                                              467uW     36uW    503uW

2. Total power per supply
=========================

將標(biāo)綠的部分搬到表格中

yuxi1988

while (<>){
        s/(.*?)([\w|\.]+)\s+([\w|\.]+)\s+([\w|\.]+)$/$1\t$2\t$3\t$4/g;
        print "$_\n";
}

junweitao

回復(fù) 2# yuxi1988

現(xiàn)在變量進(jìn)入了$1,$2,$3,$4,怎樣一行一行搬到excel里呢

sunzhiguolu

你這個(gè)文本直接用 Excel 打開，應(yīng)該就能識(shí)別成 csv 格式文件, 另存下不就行了。

yuxi1988

回復(fù) 3# junweitao


腳本貼到to_excel.pl，你的report貼到比如說power.rpt

命令行執(zhí)行
##$> to_excel.pl power.rpt

然后復(fù)制屏幕的輸出，貼到excel就可以啦，我試了一下沒問題

#to_excel.pl

while (<>){
        s/(.*?)([\w|\.]+)\s+([\w|\.]+)\s+([\w|\.]+)$/$1\t$2\t$3\t$4/g;
        print "$_\n";
}
#power.rpt
Power contribution                                      Static  Dynamic    Total
----- ------------                                      ------  -------    -----
Internal power
   Internal register power      240uW    275nW    240uW
   Internal latch power        2.46uW   50.8nW   2.51uW
   Internal memory power           0W       0W       0W
   Other internal power         188uW    451nW    189uW
   Total internal power                                  431uW    776nW    431uW
Pad power                                                   0W       0W       0W
Clock power                                             13.3uW   35.2uW   48.5uW
Inferred Buffer power                                   23.5uW    480pW   23.5uW


Total power                                              467uW     36uW    503uW

thanatos0

#!/usr/bin/perl
use strict;
use warnings;
use Spreadsheet::WriteExcel;
my $filename='1.xls';
my $workbook=Spreadsheet::WriteExcel->new($filename);
my $worksheet=$workbook->add_worksheet();
my @a;
while(<DATA>){
if(/^[a-zA-Z]/){
my @b=split /\s{2,}/;
push @a,[@b];
}
}
$worksheet->write_col('A1',\@a);
__DATA__
1. Total power consumption
==========================
                               Power(Watts)
Power     contribution      Static  Dynamic    Total
-----     ------------      ------  -------    -----
Internal  power
Internal  register power     240uW    275nW    240uW
Internal  latch power        2.46uW   50.8nW   2.51uW
Internal  memory power       0W       0W       0W
Other     internal power     188uW    451nW    189uW
Total     internal power     431uW    776nW    431uW
Pad       power              0W       0W       0W
Clock     power              13.3uW   35.2uW   48.5uW
Inferred  Buffer power       23.5uW    480pW   23.5uW
Total     power              467uW     36uW    503uW
2. Total power per supply
=========================