diff options
| author | Jan Klemkow <j.klemkow@wemelug.de> | 2012-11-22 09:19:22 +0100 |
|---|---|---|
| committer | Benjamin Franzke <benjaminfranzke@googlemail.com> | 2013-01-24 12:30:09 +0100 |
| commit | 370168684765919be5da44851060e641fd502dfc (patch) | |
| tree | 71dd4aea9fb3679921d3f0f7a52615f871718982 /doc/niels-diplom/Dateistruktur/admin/LIST | |
| parent | bde079b899066bec3b89b3ac659bec00a73afe8c (diff) | |
| download | sqltutor-plugin-370168684765919be5da44851060e641fd502dfc.tar.gz sqltutor-plugin-370168684765919be5da44851060e641fd502dfc.tar.bz2 sqltutor-plugin-370168684765919be5da44851060e641fd502dfc.zip | |
Add documentation and perl/php code from niels diploma.
Diffstat (limited to 'doc/niels-diplom/Dateistruktur/admin/LIST')
| -rwxr-xr-x | doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl b/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl new file mode 100755 index 0000000..1574c0d --- /dev/null +++ b/doc/niels-diplom/Dateistruktur/admin/LIST/parse-exel.pl @@ -0,0 +1,38 @@ +#!/usr/bin/perl -w + +use strict; +use Spreadsheet::ParseExcel; + +my $oExcel = new Spreadsheet::ParseExcel; + +die "Bitte eine EXCEL-DATEI als $0 angeben!" 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++) + { + print ">>>"; + for(my $iC = $oWkS->{MinCol} ; + defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol} ; + $iC++) + { + $oWkC = $oWkS->{Cells}[$iR][$iC]; + print ">", $oWkC->Value if($oWkC); + } + } +} + + |