|< 1 2 >| | 17 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
my $ori_datei = "";
my $datei_typ = "";
my $typ = "";
my $kop_datei = "";
my @dateiinfo =();
my $web = new CGI;
print $web->header;
print $web->start_html(-title => 'Datei hochladen');
print $web->h1('Datei hochladen');
my $ori_dateiname = $web->param("userfile");
my $kop_dateiname = "/pfad/zur/Bild/".$ori_dateiname;
$datei_typ = $web->uploadInfo($ori_dateiname);
print %{$datei_typ};
foreach $typ (%{$datei_typ}) {
print "<br>$typ";
}
$ori_datei = $web->upload("userfile");
@dateiinfo = stat($ori_datei);
open (KOPDATEI,">$kop_dateiname");
binmode (KOPDATEI);
binmode ($ori_datei);
while (<$ori_datei> {
print (KOPDATEI $buffer);
#print "<br> Grössenangabe : ".$dateiinfo[7];
}
close (KOPDATEI);
print "<br> Datei wurde raufgeladen";
1
2
3
4
5
#!/usr/bin/perl
use strict;
use CGI::Carp qw/fatalsToBrowser/;
die "Datei zu lang\n" if $ENV{CONTENT_LENGTH} > 5000000;
|< 1 2 >| | 17 Einträge, 2 Seiten |