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)
(Dieser Beitrag wurde von oesi50 am 2. Jun 2004, 10:37 geändert)
