#!/usr/bin/perl
print "Content-type: text/html\n\n"; # En-tête de la réponse
print "PERL Search Results\n";
print "\n";.
print<<"TAG";
CGI en Perl - les liens
| Type |
Links |
Description |
TAG
# Liste des liens du fichier:
print "\n";
open (LINKDATA,"data/links.txt"); # Ouverture du fichier de données
while () { # Tant qu'il y a des données dans le fichier
# Si la ligne ne commence pas par # et n'est pas vide:
if ((!(/#.*/))&&(/.+/)){
@data = split (/\t/,$_); # On découpe la ligne par tabulation
$type = $data[0]; # Le type est dans la première colonne
if ($data[0] eq $type_before) { # Si le type n'a pas changé
$data[0]=""; # Le type ne sera pas affiché
}
$type_before = $type; # Le type d'avant
print "| $data[0] | "; # Affichage du type
# Affichage du lien:
print "";
print "$data[1] | ";
# Affichage de la description:
print "$data[2] |
\n";
}
}
print "
"; # Fin du tableau
close (LINKDATA); # Fermeture du fichier
print <<"TAG"; # Dernier affichage
TAG