Hab hier mal was kleines geschrieben also die Seite gibt einfach nur aus nem File geschrieben Links aus und man kann halt neue hinzufügen. Problem hab das in 2 Proga gemacht also das Haupt "test3.pl" und das welches die links hinzufügen steuert "comments.pl"Quellcode: test3.pl
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw( :all );
use CGI::Carp qw(fatalsToBrowser);
my$cgi = new CGI;
#File einlesen und in ein Array speichern.
my $pfad = '/SAN/content/cgi-bin/links';
open(DATEI, '<', $pfad);
my @inhalt=<DATEI>;
close(DATEI);
#Ausgabe Header usw.
my $Autor = "Andre Hornig";
$cgi->default_dtd('-//W3C//DTD HTML 4.01 Transitional//EN');
print $cgi->header(),
$cgi->start_html('Linkit'),
$cgi->h1('Linkit'),
$cgi->p('Eine kleine Favoritenliste'),
$cgi->p({-style => 'color:red'}, "Verfasst von: ", $cgi->i($Autor)),
$cgi->hr({-noshade => undef, -size => '1'}),
$cgi->end_html();
#Verarbeitung des Files mit Ausgabe
my $link;
my $i = 0;
foreach my $zeile (@inhalt) {
if ($i == 0 ) {
$link = $zeile;
$i = $i + 1
}
else {
print $cgi->p('',$cgi->a({-href => $link},$zeile));
$i = 0;
}
}
#Ausgabe der Seite
print <<"EOF";
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kommentarseite</title>
</head>
<body bgcolor="#99ccff">
<h1>Neuen Link eintragen</h1>
<form action="http://192.168.220.128/cgi-bin/comments.pl" method="post">
<p>Link:<br><input type="text" name="links" size="40" maxlength="40"></p>
<p>Beschreibung:<br><textarea rows="5" cols="50" name="beschreibung"></textarea></p>
<p><input type="submit" value="Absenden"></p>
</form>
</body>
</html>
EOF
Quellcode: comments.pl
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $cgi = CGI->new();
print $cgi->header();
my $pfad = '/SAN/content/cgi-bin/links';
my $url = $cgi->param('links');
my $text = $cgi->param('beschreibung');
$text =~ s/\r?\n/<br>/sg;
open(DATEI,'>>',$pfad) or die $!;
print DATEI "$url\n";
print DATEI "$text\n";
close (DATEI) or die $!;
print $cgi->b('Link wurde eingetragen');
Frage wie vereine ich die beiden am besten. Schlecht wäre nicht wenn die Seite vorerst nur mit 2 Abfragen angeziegt werden würde. Link eintragen und Links anzeigen. Frage wie? Kenn perl/cgi und html erst seit hmmm 4 Tagen ^^
Datum: 28.04.2006-16:10
2 in 1
