Opened by Advanced-Rookie at 2005-10-12 13:16
User since
2005-10-12
2 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-10-12
2 Artikel
BenutzerIn
Ich lade ein xls-file hoch, speichere es dann in einem tmp-file und lese es dann aus. Leider scheint es beim upload des files Probleme zu geben, da das File nicht ausgelesen werden kann. Ein von Hand hochgeladenes xls-file auf dem Server wird einwandfrei ausgelesen. Sicher könnt ihr mir sagen wo in dem Script hier der Fehler ist.
Das erzeugte file hat auch einen Inhalt, hat also nicht die Länge 0. mit binmode hab ichs auch schon versucht.
Perlcode:
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1129206532-->
Das erzeugte file hat auch einen Inhalt, hat also nicht die Länge 0. mit binmode hab ichs auch schon versucht.
Perlcode:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
my $buffer;
my $file = $q->param('xls_file');
my $filename = $file;
$filename =~ s/^.*(\\|\/)//;
my ($tmpfh, $tmpfile) = File::Temp::tempfile("tmpXXXXXX", SUFFIX => ".xls", DIR => "tmp");
while(my $read = read($file,$buffer,1024))
{
print $tmpfh $buffer;
print $tmpfh "\n";
}
close($tmpfh);
$result1 .= "tmpfile: ".$tmpfile;
# my $xls = Spreadsheet:arseExcel::Simple->read('bsp.xls'); funktioniert, aber wenn ich die selbe Datei hochlade # bleibt das Skript hier hängen
my $xls = Spreadsheet::ParseExcel::Simple->read($tmpfile);
edit pq: code-tags hinzugefügt\n\n
<!--EDIT|pq|1129206532-->