iam at a loss what to do? here is the lists as seen by a for loop "row is 1 ..." is the only one that is seen in the spreadsheet row is 1, GSR, 2, GRP, 256Mb, 12.0(26)S3 the rest do not appear 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) ..there is more of the above lines there should be up to 35 rows that should be populated in the spreadsheetsub 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], $devicesPerVari +ant[$j], $processor[$j], $memory[$j], $softwareVersion[$j]\n"; $worksheet->write($rowCounter,0, $model[$j]); if ($j == 0) { $worksheet->write($rowCounter,1, $devicePerMod +el); } $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();
Edited by Chady -- fixed code tags.
In reply to Spreadsheet::WriteExcel Loop problem by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |