Opened by haijp at 2006-04-28 13:21
User since
2006-04-11
14 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2006-04-11
14 Artikel
BenutzerIn
hi leute hab hier mal ein kleines Porgram was eine Linksammlung ausgibt.
Ganz grob das Prog liest die Werte aus nem File ein gibt Sie aus und man soll jetzt noch die möglichkeit haben direkt neue Links also werte hinzuzufügen. Frage ist wie verarbeite ich die Eingabe und speicher Sie dann wieder in das File zu den vorhandenen?
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
#!/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="AnwenderName" size="40" maxlength="40"></p>
<p>Beschreibung:<br><textarea rows="5" cols="50" name="Kommentartext"></textarea></p>
<p><input type="submit" value="Absenden"></p>
</form>
</body>
</html>
EOF
Ganz grob das Prog liest die Werte aus nem File ein gibt Sie aus und man soll jetzt noch die möglichkeit haben direkt neue Links also werte hinzuzufügen. Frage ist wie verarbeite ich die Eingabe und speicher Sie dann wieder in das File zu den vorhandenen?