moin moin,
ich hänge am nächsten Perl Problem
Mit dem Module Spreadsheet::WriteExcel schaffe ich es, eine Exceldatei anzulegen und was reinzuschreiben.
Mit Spreadsheet:
arseExcel::SaveParser kann ich dat ding dann wieder öffnen und was neues reinschreiben.
Mein problem ist aktuell, dass ich die letzte geschriebenen Zeilen der existierenden excel Datei nicht herausbekomme.
Da ich aber so eine Art Log Datei schreiben will, muss ich halt immer hinter der letzte Zeile einen Eintrag machen.
Mit diesem Skript hier öffne ich die Datei:
use strict;
use Spreadsheet::stuck\_out\_tongue:arseExcel;
use Spreadsheet::stuck\_out\_tongue:arseExcel::SaveParser;
# Open the template with SaveParser
my $parser = new Spreadsheet::stuck\_out\_tongue:arseExcel::SaveParser;
my $template = $parser->:stuck\_out\_tongue\_winking\_eye:arse('Log.xls');
my $sheet = 0;
my $row = 0;
my $col = 0;
# Get the format from the cell
my $format = $template-\>{Worksheet}[$sheet]
-\>{Cells}[$row][$col]
-\>{FormatNo};
# Write data to some cells
$template-\>AddCell(0, $row, $col, 1, $format);
$template-\>AddCell(0, $row+1, $col, "Hello", $format);
# Add a new worksheet
# $template-\>AddWorksheet('New Data');
# The SaveParser SaveAs() method returns a reference to a
# Spreadsheet::WriteExcel object. If you wish you can then
# use this to access any of the methods that aren't
# available from the SaveParser object. If you don't need
# to do this just use SaveAs().
#
my $workbook;
{
# SaveAs generates a lot of harmless warnings about unset
# Worksheet properties. You can ignore them if you wish.
local $^W = 0;
# Rewrite the file or save as a new file
$workbook = $template-\>SaveAs('Log.xls');
}
# Use Spreadsheet::WriteExcel methods
my $worksheet = $workbook-\>sheets(0);
$worksheet-\>write($row+2, $col, "World2");
$workbook-\>close();
_[MOD]:
-Tags hinzugefügt, bitte in Zukunft selbst machen_
Mein Problem ist, dass ich quasi vor 2 werktagen das erste mal Perlcode gesehen habe und darum mir nicht jeder codeschnipsel sofort vollkommen klar ist.