PERL中数据提取

Question

目前面临以下数据结构(txt格式）
文件名：1.txt
1995 1994 1993
item1 100 200 300
item2 300 400 450
文件名：2.txt
1995 1994
item1 500 600
item2 700 900
item3 1000 3000
第一行是年度，但是没有对应的说明。
字段、数据之间是用空格隔开。
相关文件共有1000多个。
要求：用perl提取相应的年度/项目/数据信息，保存到CSV文件中。
文件名 项目名 1995 1994 1993

1 item1 100 200 300
1 item2 300 400 450
2 item1 500 600
2 item2 700 900
3 item3 1000 3000

谢谢！

Answer 1

#!perl
use Win32::OLE qw(in with);
my $file1 = "C:/Users/Administrator/Desktop/1.txt";
my $file2 = "C:/Users/Administrator/Desktop/2.txt";
my $fileOut = "C:/Users/Administrator/Desktop/output.xls";
my $cellnamef = "文件名";
my $cellnamep = "项目名";
my $fileline = 1;
my $sheet = 1;#第几个页
my $row =1;
my $Excel = Win32::OLE->GetActiveObject('Excel.Application') || Win32::OLE->new('Excel.Application', 'Quit');
my $BookOut = $Excel->Workbooks->Open($fileOut);
my $WorkSheetOut = $BookOut->Worksheets($sheet);
sub exportData{
my $file = @_[0];
my $col =1;

open HANDLE, $file;

$WorkSheetOut->Cells($row,1)->{Value} = $cellnamef;
$WorkSheetOut->Cells($row,2)->{Value} = $cellnamep;
$col =1+2;

while(<HANDLE>){
my $line = $_;
my $filename = (split /\//,$file1)[-1];

if($col == 1){
$WorkSheetOut->Cells($row,$col)->{Value} = $filename;
print "$row, $col, $filename\n";
$col = $col +1;
}
while($line =~ m/(\w+)/g){
$WorkSheetOut->Cells($row,$col)->{Value} = $1;
print "$row, $col, $1\n";
$col = $col +1;
}

$row = $row +1;
$col = 1;
}
close(HANDLE);
}

exportData $file1;
exportData $file2;
$BookOut->Save();
$BookOut->Close();
$Excel->Quit();
print "over!";

结果还要手动改下。代码写的不是太好

追问

运行了上述程序，出现以下结果：
can't call method "Worksheets" on an undefined value at table_extract.pl line 13.
看了Win32-OLE的帮助说明，上面的程序没有问题的。
请教该如何解决？
再次感谢！

追答

哦，你在my $fileOut = "C:/Users/Administrator/Desktop/output.xls";在桌面建一个output.xls先。或者你把数据给我，我帮你合了，哈哈

追问

谢谢！已经基本搞定了。
可否请你帮忙，写成一个循环语句，每个文件输出一张表格，然后我再用其他程序读入每张表格。这样可能比在PERL中做成一张表格更为方便。
另，可否将年度变量1995、1994之前加上字符，转换成YEAR1995/YEAR1994？
多谢！

追答

你的意思是1.txt，2.txt都生成一个对应的excel文件么？

追问

是的。因为我后面的数据中，年度会发生变化，比如3.txt中，年度就是1996 1995 1994。所以我想还是用每个txt生成一个excel表，然后再合并，比较方便。谢谢！

追答

好的，明天看看，下班了