Schrift
Start · Board · Weitere Sprachen · HTML, CSS und Javascript
[thread]2275[/thread]

input type="file" vorbelegen: geht nicht (Seite 2)

Leser: 1


<< |< 1 2 >| >> 12 Einträge, 2 Seiten
esskar
 2005-10-20 00:01
#24612 #24612
User since
2003-08-04
7321 Artikel
ModeratorIn

user image
poste mal den code
pktm
 2005-10-20 00:16
#24613 #24613
User since
2003-08-07
2921 Artikel
BenutzerIn
[Homepage]
user image
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 :) )
<< |< 1 2 >| >> 12 Einträge, 2 Seiten



View all threads created 2005-10-18 23:17.