Font
[thread]776[/thread]

Forumulardaten abfragen und speichern: Perl/CGI Programmierung



<< >> 2 entries, 1 page
guest Gast
 2006-07-14 13:02
#8318 #8318
Hi!
Erst ein mal schönen grüß an alle Users. mein name ist jahan und ich bin hier und sogar neu in Perlprogrammerierung:(
ich habe ein Formular mit HTML (DM) erzeugt und möchte die daten anstatt Mail in ein File, das einem bestimmten server gehört sepeichern und bei bedarf es wieder löschen oder modifizieren.
Inhalt des Formulars:
ServerName:
User_ID:
Description: datum, uhrzeit
Comments:

diese Daten sollen auch in einem file namens $servreName.html gespeichert werden (anhängen weitere daten)

Kann mir jemand helfen?

Danke für die kompetente Hilfe

Grüß
Jahan

/Modedit Gwendragon: Titel geändert\n\n

<!--EDIT|GwenDragon|1152870670-->
GwenDragon
 2006-07-14 13:32
#8319 #8319
User since
2005-01-17
14198 articles
Admin1
[Homepage]
user image
Du musst die Daten des Formulars (HTML) mit dem Modul CGI auslesen und dann auch als HTML ausgeben.
Wenn ich dich richtig verstand.
So ungefähr als Ansatz:
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
#!/usr/bin/perl

use strict;
use warnings;

$| = 1;

use CGI::Carp qw(fatalsToBrowser); # zeigt Fehler im Browser an
use CGI;

my $cgih = new CGI;
my %vars = $cgih->Vars();

my $filename = "$ENV{HTTP_HOST}.txt";
my ($datum) = localtime;

open (FILE, ">> $filename") or die ("cant open: $!");
flock(FILE, 2 );
print FILE <<_TXT;
ServerName: $ENV{HTTP_HOST}
User_ID: $vars{User_ID}
Description: $datum
Comments: $vars{Comments}
_TXT
close (FILE) or die ("cant close: $!");

open(FILE, "< $filename") or die ("cant open: $!");
my @daten = <FILE>;
close( FILE ) or die ("cant close: $!");
chomp( @daten );

print $cgih->header(),
$cgih->start_html(),
$cgih->p( join $cgih->br(), @daten ),
$cgih->end_html();

1;
\n\n

<!--EDIT|GwenDragon|1152870553-->
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

<< >> 2 entries, 1 page



View all threads created 2006-07-14 13:02.