Formulare über Perl

[Struppi]

Ich selbst habe, wie bereits erwähnt, meine Zweifel, dass dies mit dem "open()" Befehl realisierbar ist.

Nein, dazu bedarf es natürlich mehr.

Ich wäre dankbar wenn mir an einem kurzen Script veranschaulicht werden würde, wie dies realisierbar ist, gerne auch über den "open()" Befehl

#!/usr/bin/perl -w  
use strict;  
use CGI;  
use CGI::Carp qw(fatalsToBrowser);  
print CGI::header(), CGI::start_html();  
if(CGI::param('aktion'))  
{  
 # Hier dein open Befehl  
 open FH, '>', 'test.txt' or die "Kann test.txt nicht öffnen, weil $!";  
 CGI::save(*FH);  
 close FH;  
}  
  
print formular();  
print CGI::end_html();;  
  
sub formular{  
    print CGI::start_form(),  
          CGI::table(  
          CGI::Tr( [  
          CGI::td( [  
                CGI::strong('Name :'),  
                CGI::textfield(-name =>'name', -size => 40)  
          ]),  
          CGI::td( [  
                'E-Mail :',  
                CGI::textfield(-name =>'mail', -size => 40, -override => 1, -value => '')  
          ]),  
          CGI::td( [  
                CGI::strong('Text :'),  
                CGI::textarea({-name =>'text', -columns =>50, -rows =>5})  
          ]),  
          CGI::td( [  
                CGI::submit(-name => 'aktion', -value =>'absenden'),  
                CGI::reset(-value =>'verwerfen')  
          ])  
    ] ) # Tr  
    ), # table  
    CGI::end_form();  
}  

Struppi.