#!C:Perlbin
#excel::writer attempt
#allows IR-Serial-Parts tracking
use strict;
use warnings;
use POSIX qw(strftime);
use Excel::Writer::XLSX;
use Spreadsheet::WriteExcel;
my $ref = strftime '%Y-%m-%d', localtime(); #create the datestamp
my $workbook;
my $worksheet;
my $i = 1;
my $ir = "IR Number: ";
my $sr = "UUT Serial: ";
my $pur = "How many parts used: ";
my $part = "Scan Part: ";
my @parts = "";
if(-e 'tracking.xlsx'){
my $workbook = Spreadsheet::WriteExcel->open('tracking.xlsx'); #open existing excel file
}
else{
my $workbook = Excel::Writer::XLSX->new('tracking.xlsx'); #open new Excel if the date on comp has changed
}
$worksheet = $workbook->add_worksheet($ref);
print $ir; #ask user for IR #
my $irs = <>; #get user IR
print $sr; #ask user for serial
my $isr = <>; #get serial from user
print $pur; #get the number of parts used that way we can run the while loop below
my $count = <>;
While ($i < $count){
print $part;
my $scan = <>;
push @parts, $scan;
$i++;
}
$worksheet->write( 'A1', '$irs');
$worksheet->write( 'A2', '$isr');
$worksheet->write( 'A3', '@parts');
这个脚本处于开发的第一阶段,我不是perl神,事实上我是全新的,但它非常棒!!当我第一次运行时,我有一些错误,可以很容易地从错误消息中找出来,但我似乎无法理解这一点,我觉得它应该比我以前的错误更容易修复任何帮助解释为什么会发生这种情况会很棒!
syntax error at writexcel.pl line 39, near "){"
syntax error at writexcel.pl line 45, near "}"
Execution of writexcel.pl aborted due to compilation errors.
Press any key to continue . . .
正如
@ThisSuitIsBlackNot指出的那样,我的while循环中的while
是有能力的,需要小写。感谢您的快速回复!