Perl实现将将.txt中内容写入到excel中

在处理存于txt中的大数据时，查看非常不方便，可以考虑写入到excel中。以下是一个简单的用perl实现的写入excel的程序。

#写文件到excel
#输入：待写入到excel表中的.txt文件
#输出：excel文件，注意要用绝对路径

#####################################################
use strict;
use Win32;
use Cwd;
use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
$Win32::OLE::Warn = 3;                                # die on errors...

# get already active Excel application or open new
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    || Win32::OLE->new('Excel.Application', 'Quit');
use Encode;

my $infile1="a.txt";
my $outexcel1="E:/PerlCode/cyliu/a.xlsx";
open IN1,"$infile1"
or die "could not open the input file!";

my $Book = $Excel->Workbooks->Open("$outexcel1") or die "Could not open the $outexcel1