用perl批量轉(zhuǎn)換txt為xls

zhuzhujd

目前面臨以下數(shù)據(jù)結(jié)構(gòu)(txt格式）
文件名：1.txt
                                       1                       2                   3
item1                             100                   200                300
item2                             300                   400                450
文件名：2.txt
                                      1                       2            
item1                             500                   600               
item2                             700                   900      
item3                             1000                 3000      
第一行是年度，但是沒(méi)有對(duì)應(yīng)的說(shuō)明。
字段、數(shù)據(jù)之間是用空格(或者制表符tab)隔開(kāi)。
相關(guān)文件共有1000多個(gè)。
要求：用perl提取相應(yīng)的年度/項(xiàng)目/數(shù)據(jù)信息，并將每個(gè)文件生成對(duì)應(yīng)的xls文件如下。
1.xls
FileName          Item                     year1                 year2              year3
    1                 item1                     100                   200                300
    1                 item2                     300                   400                450
2.xls
Filename            Item                            year1                  year2            
   2                   item1                             500                   600               
   2                   item2                             700                   900      
   2                    item3                            1000                 3000     

我是Perl的初學(xué)者，參考論壇各位的程序建議，編寫(xiě)程序如下：

#!/usr/bin/perl

use Spreadsheet::WriteExcel;
       
#Specify the directory containing the files that you want to read
my $direct="e:\\test";
#Specify the directory containing the files that you want to save
my $dirOut="e:\\test1";
#If Windows "\\", if Mac "/";
my $slash='\\';
#The following two steps open the directory containing the files you plan to read
#and then stores the name of each file in an array called @data.
opendir(DIR1,"$direct")||die "Can't open directory";
my @New1=readdir(DIR1);

foreach $file(@New1)
{
# this step removes the default end of line character (\n)
# so the the entire file can be read in at once.
local $/;
open (SLURP, "$direct$slash"."$file") or die "can't open $file: $!";
#read the contents into file
$file = <SLURP>;
}
#close the filehandle called SLURP
close SLURP or die "cannot close $file: $!";

if ($file){
my @data = map [split], <$file>;
splice $data[0], 5, 2, join '_', @{$data[0]}[5,6];

my $xls    = Spreadsheet::WriteExcel->new('"$dirOut$slash"."$file".xls');
my $ws     = $xls->add_worksheet();
my $format = $xls->add_format();
$format->set_align('right');

my $i = 0;
for my $e (@data) {
    my $j = 0;
    map $ws->write( $i, $j++, $_, $format ), @$e;
    $i++;
                   }
             }
運(yùn)行結(jié)果顯示 can't open .: Permission denied at table_test2.pl line 21
請(qǐng)各位高手指教!
多謝！

104359176

把 excel 文件關(guān)閉后，運(yùn)行腳本

zhuzhujd

我運(yùn)行一個(gè)文件，成功。
但是用循環(huán)語(yǔ)句，做不了。
請(qǐng)教如何編寫(xiě)循環(huán)語(yǔ)句？或者我的程序哪里有問(wèn)題，望各位大俠不吝指教。

snriyt

打印下dir內(nèi)容，估計(jì)是..和.的問(wèn)題

pitonas

用循環(huán)語(yǔ)句

1. for $file (@New1){
   
2.   Do_Everything_HERE;
   
3. }

復(fù)制代碼