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
=========================

将标绿的部分搬到表格中

yuxi1988

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

junweitao

回复 2# yuxi1988

现在变量进入了$1,$2,$3,$4,怎样一行一行搬到excel里呢

sunzhiguolu

你这个文本直接用 Excel 打开，应该就能识别成 csv 格式文件, 另存下不就行了。

yuxi1988

回复 3# junweitao


脚本贴到to_excel.pl，你的report贴到比如说power.rpt

命令行执行
##$> to_excel.pl power.rpt

然后复制屏幕的输出，贴到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
=========================