Използвам Spreadsheet::ParseExcel за изброяване на съдържанието на електронната таблица. Виждал съм няколко примера как да изхвърлите цялата електронна таблица. Наистина бих искал да видя как да използвам този скрипт по-селективно.
Примерът по-долу от IBM основно изхвърля съдържанието на всички клетки, които имат данни.
#!/usr/bin/perl -w
use strict;
use Spreadsheet::ParseExcel;
my $oExcel = new Spreadsheet::ParseExcel;
die "You must provide a filename to $0 to be parsed as an Excel file" unless @ARGV;
my $oBook = $oExcel->Parse($ARGV[0]);
my($iR, $iC, $oWkS, $oWkC);
print "FILE :", $oBook->{File} , "\n";
print "COUNT :", $oBook->{SheetCount} , "\n";
print "AUTHOR:", $oBook->{Author} , "\n"
if defined $oBook->{Author};
for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
{
$oWkS = $oBook->{Worksheet}[$iSheet];
print "--------- SHEET:", $oWkS->{Name}, "\n";
for(my $iR = $oWkS->{MinRow} ;
defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow} ;
$iR++)
{
for(my $iC = $oWkS->{MinCol} ;
defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ;
$iC++)
{
$oWkC = $oWkS->{Cells}[$iR][$iC];
print "( $iR , $iC ) =>", $oWkC->Value, "\n" if($oWkC);
}
}
}
Може ли някой да ми даде пример за това как мога да посоча някакво действие, което да предприема за определена колона за всеки ред?
Например, имам електронна таблица със 7 колони и n реда. Искам да преформатирам данните във всяка от колоните по определен начин. Може би искам да взема колона 6 за всеки ред и да добавя някакъв текст в края на низа, съхранен в клетката. Как ще бъде настроено това?