hilfdirselbst.ch
Facebook Twitter gamper-media

"Geht nicht" ist keine gültige Fehlermeldung!

Anonym
Beiträge: 22827
2. Jun 2004, 09:52
Beitrag #1 von 3
Bewertung:
(614 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

perl und html


Code:

==>linkspeicher.html

<html>
<head>
<title>Link Speicher</title>
</head>

<body>

<center>
<H1>Link-Speicher</h1>

<form name="linkspeicher" action="linkspeicher.pl" method="post">

URL: <input type="text" name="url"> <br><br>

Seite :<input type="text" name="seite"> <br><br>

Anmerkung :<input type="text" name="anmerkung"> <br><br>

<input type="submit" name="button" value="Abschicken">

</form>
</center>
</body>
</html>



möchte ein script machen das die user eingaben online speichert , oben habe ich es als html gemacht ,nur weiss ich es nicht wie ich die eingaben dann an perl übergeben kann???.


Code:


#!/usr/bin/perl -w
#script link speicher
#Progg das User-Eingaben speichert und anzeigt
#für gefundenen links mit beschreibung
#speichert alles noch zusätzlich in einer textdatei
#>> wird immer angehängt nicht ueberschrieben
#
#

$url = <STDIN>;


$seite = <STDIN>;

$anmerkung = <STDIN>;

open(DATEI, '>>'.$dateiname) or die "Kann $dateiname nicht öffnen";

print DATEI $url;
print DATEI $seite ;
print DATEI $anmerkung;

close(DATEI);






das script ist halt nur local auf dem pc wie muss ich das umbauen damit es auch online geht ??? Top
 
X
oesi50  A  S
Beiträge: 2315
2. Jun 2004, 10:31
Beitrag #2 von 3
Beitrag ID: #88523
Bewertung:
(610 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

perl und html


hallo Anonym,

dazu wird die CGI-Schnittstelle vom Webserver verwendet.
Das geht am einfachsten mit dem CGI-Modul.

#!/usr/bin/perl

use strict;
use warnings;
use CGI qw(param);

my $dateiname = 'links.csv';

my $q = new CGI;

my $url = $q->param('url');
my $seite = $q->param('seite');
my $anmerkung = $q->param('anmerkung');

open(DATEI, ">>$dateiname") or die "Kann $dateiname nicht öffnen";
flock(DATEI,2);
print DATEI "$url;$seite;$anmerkung;\n";
close(DATEI);

print "Content-Type:text/html\n\n";
print qq|<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="de">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Link Speicher</title>
</head>
<body>
<center>
<H1>Link-Speicher</h1>
Daten gespeichert.
</body>
</HTML>
|;

Grüße Oesi
Ich weiß, dass ich nichts weiß... (Sokrates)
als Antwort auf: [#88510]
(Dieser Beitrag wurde von oesi50 am 2. Jun 2004, 10:37 geändert)
Top
 
Anonym
Beiträge: 22827
4. Jun 2004, 12:53
Beitrag #3 von 3
Beitrag ID: #89044
Bewertung:
(610 mal gelesen)
URL zum Beitrag
Beitrag als Lesezeichen

perl und html


danke dir oesi50 super
als Antwort auf: [#88510] Top