|< 1 2 >| | 18 Einträge, 2 Seiten |
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
# use CGI::Carp qw(fatalsToBrowser);
open DAT, ">>D:/website/blabla/blabla/blabla/index.txt";
select DAT;
my @Feldnamen = $cgi->param();
foreach my $Feld (@Feldnamen) {
print $cgi->param($Feld);
print ";";
};
select STDOUT;
print $cgi->redirect($cgi->url_param('goto'));
|< 1 2 >| | 18 Einträge, 2 Seiten |