#!/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=; 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"; Kommentarseite

Neuen Link eintragen

EOF