Re^4: problem using perl module Spreadsheet::WriteExcel cannot get data into rows when using for loop on a list to populate rows

Hi i sent all the code just to present a picture i what i was trying to achieve i dont know if i can send excel spreadsheet that indicate the problem i have but simply the code is not writing to the spreadsheet here is the problem code.. only the first row and the last row nothing in between sub populateExcelRows {
my $workbook = Spreadsheet::WriteExcel->new("test.xls");
my $worksheet = $workbook->add_worksheet();
my $j = 1;
#Declare Headings for row 0 and the 6 Columns
$worksheet->write(0,0 , 'Equipment Model');
$worksheet->write(0,1, 'Devices Per Model');
$worksheet->write(0,2, 'Devices Per Variant');
$worksheet->write(0,3, 'Model Variant Processor');
$worksheet->write(0,4 , 'Device Memory');
$worksheet->write(0,5 , 'Device Software');
#Loop through Global Array called Models to determine the number of rows to place data
for ($j = 1; $j <= $#model; $j++) {
print "row is $rowCounter, $model[$j], $devicesPerVariant[$j], $processor[$j], $memory[$j], <code>$softwareVersion[$j]\n";
$worksheet->write($rowCounter,0, $model[$j]);
if ($j == 0) {
$worksheet->write($rowCounter,1, $devicePerModel);
}
$worksheet->write($rowCounter,2, $devicesPerVariant[$j]);
$worksheet->write($rowCounter,3, $processor[$j]);
$worksheet->write($rowCounter,4, $memory[$j]);
$worksheet->write($rowCounter,5, $softwareVersion[$j]);
$rowCounter++;
}
$workbook->close();
here is some rows iam trying to put in the spreadsheet row is 1, GSR, 2, GRP, 256Mb, 12.0(26)S3
row is 1, 6503, 13, WS-X6K-SUP2-2GE, 128Mb, 7.6(8)
row is 1, 2651, 68, MPC860P, 128Mb, 12.3(6)
row is 1, ERX1400, 11, SRP-10Ge, 512Mb, 5.1.3 S-2.0
row is 3, ERX1400, 36, SRP-10Ge, 512Mb, 5.1.3 S-2.2

Comment on Re^4: problem using perl module Spreadsheet::WriteExcel cannot get data into rows when using for loop on a list to populate rows Select or Download Code

Replies are listed 'Best First'.
Re^5: problem using perl module Spreadsheet::WriteExcel cannot get data into rows when using for loop on a list to populate rows by GrandFather (Saint) on Sep 14, 2005 at 07:55 UTC
One thing that you should try is replacing all the `$worksheet->write` lines with equivelent `print` lines so that you can see if the problem is in writing the data or in generating it. The smaller and simpler you can make your test code, the easier it will be to isolate the problem. Copy the code to a different file, then cut lines out and simplify the code until the problem goes away. This is a generally useful debugging technique for otherwise intractable problems and makes it much easier to generate a simple test case for reporting the problem. Perl is Huffman encoded by design.	[reply] [d/l] [select]
Re^6: problem using perl module Spreadsheet::WriteExcel cannot get data into rows when using for loop on a list to populate rows by adamlee14 (Initiate) on Sep 15, 2005 at 03:50 UTC
Hi I have done this by using the following ... `for ($j = 1; $j <= $#model; $j++) {` `print "row is $rowCounter, $model[$j], $devicesPerVariant[$j], $processor[$j], $memory[$j], <code>$softwareVersion[$j]\n";` within the for loop and i know its reading the global variable and prints to the screen seen .. `row is 1, GSR, 2, GRP, 256Mb, 12.0(26)S3` `row is 2, 6503, 13, WS-X6K-SUP2-2GE, 128Mb, 7.6(8)` `row is 3, 6503, 10, WS-X6K-SUP2-2GE, 256Mb, 7.6(8)` `row is 4, 2651, 68, MPC860P, 128Mb, 12.3(6)` `row is 5, ERX1400, 11, SRP-10Ge, 512Mb, 5.1.3 S-2.0` `row is 6, ERX1400, 1, SRP-10Ge, 384Mb, 5.1.3 S-2.2` `row is 7, ERX1400, 36, SRP-10Ge, 512Mb, 5.1.3 S-2.2` `row is 8, 6509, 16, WS-X6K-SUP1A-2GE, 128Mb, 7.6(8)` `row is 9, 6509, 12, WS-X6K-SUP2-2GE, 128Mb, 7.6(8)` `row is 10, 6509, 12, WS-SUP720-3BXL, 1Gb, 8.4(1)` `row is 11, 10K, 54, PRE1-RP, 512Mb, 12.0(20050225:232036)` `row is 12, 3550, 56, PowerPC, 64Mb, 12.1(11)EA1` `row is 13, 3550, 26, PowerPC, 64Mb, 12.1(13)EA1c` `row is 14, 6506, 14, WS-X6K-SUP1A-2GE, 128Mb, 7.6(8)` `row is 15, 7206, 2, NPE-G1, 256Mb, 12.3(6b)` `row is 16, 7206, 6, NPE400, 128Mb, 12.3(6b)` `row is 17, 7606, 1, R7000, 256Mb, 12.1(22)E1` `row is 18, 7606, 3, R7000, 512Mb, 12.1(22)E1` `row is 19, ERX705, 40, SRP-5GPlus, 512Mb, 5.1.3 S-2.2` `row is 20, ERX700, 4, SRP-10Ge, 512Mb, 5.1.3 S-2.2` `row is 21, 3524, 2, PowerPC403, 8Mb, 12.0(5.2)XU` the spreadsheet still just prints the first row and how do you send a excel spread sheet to show what i mean	[reply] [d/l] [select]