Opened by pktm at 2005-10-18 23:17
User since
2003-08-07
2921 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-07
2921 Artikel
BenutzerIn
Uhm, die 1415 Zeilen poste ich jetzt mal nicht, aber hier ist ein Beispielskript welches das selbe Verhalten zeigt (optimal mit Open Perl IDE zu testen, da man da den STOUT als Tab neben dem STDERR hat).
Code: (dl
)
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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
#!/Perl/bin/perl
use strict;
use warnings;
use Data::Dumper;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
my %sw = (
'start' => \&start,
'zeige' => \&zeige,
);
my $q = CGI->new();
my $rm = $q->param('rm') || 'start';
print $q->header();
$sw{$rm}->();
sub start {
print $q->start_html();
print qq~
<HTML>
<HEAD></HEAD>
<BODY>
<FORM METHOD="POST" ACTION="sometest.pl" ENCTYPE="multipart/form-data">
<INPUT TYPE="hidden" NAME="rm" VALUE="zeige">
Datei auswaehlen:<BR>
<INPUT TYPE="file" NAME="datei" SIZE=30 MAXLENGTH=80>
<INPUT TYPE="submit" NAME="button" VALUE="upload">
</FORM>
</BODY>
</HTML>
~;
print $q->end_html();
} # /start
sub zeige {
my $datei = $q->param('datei');
print STDERR $datei;
print $q->start_html();
print "Datei: $datei";
print $q->end_html();
} # /zeige
http://www.intergastro-service.de (mein erstes CMS :) )