Opened by Ronnie at 2005-01-09 16:45
User since
2003-08-14
2022 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-14
2022 Artikel
BenutzerIn
Sollte eigentlich kein Problem sein - siehe:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl -t
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use Data::Dumper;
my $q = new CGI;
print $q->header();
if ($q->param('action') && $q->param('area')) {
die Dumper $q->param('area');
} else {
print q#
<HTML><BODY><FORM>
<TEXTAREA name="area"></TEXTAREA>
<INPUT type="submit" name="action" value="Absenden" />
</FORM></BODY></HTML>
#;
}