|
Menu główne
use PerlMongers::Warszawa;
use PerlMongers::Krakow;
NG_gRadio
|
| Odczyt zawartości arkusza kalkulacyjnego |
|
przez szycha
(726 odsłon)
|
Odczyt zawartości arkusza kalkulacyjnego czy to z Excela czy OpenOffice jest trywialna. W tym celu należy zainstalować moduł Spreadsheet::Read z CPAN.
Używając managera modułów firmy ActiveState instalujemy ten sam moduł dla systemu Windows jeśli istnieje taka potrzeba. Poniższy przykład pokazuje jak można odczytać informacje z arkusza, dokonać obliczeń oraz wyświetlić wyniki
#!/usr/bin/perl
use warnings;
use strict;
use Spreadsheet::Read;
#--------- Deklaracja Zmiennych -----------------
my ($plik, $arkusz, $komorka) = ();
my $chorobowe;
my $ogolem;
my ($liczba_arkuszy, $ktory_arkusz) = 0;
#--------- Skojarzenie zmiennej z rzeczywistym plikiem excela ------------------
$plik = ReadData ('czerwiec.xls');
#---------- Okreslenie poczštkowego arkusza -----------------------
$liczba_arkuszy = $plik->[0]{sheets};
#-------- Przeglšd wszystkich arkuszy poczšwszy od pierwszego
for (my $i = 1; $i <= $liczba_arkuszy; $i++) {
#--------- Grupa operacji matematycznych zawartych w pętli -------------
$ogolem = $ogolem + $plik->[$i]{AH27};
$chorobowe = $chorobowe + $plik->[$i]{AH21};
}
#----------- Uzydkanie końcowych wyników ---------------------------
print "$ogolem => $chorobowe\n";
|
|
|
Szukaj w PerlGtk.pl
The Perl Job site
Szukaj kodu :
|
