Das suchende CGI-Skript VI

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]

email.pl
if (@names > 1) {
   print_header("Gefundene E-Mail-Adressen");
   print "Folgende E-Mail-Adressen wurden gefunden:\n<P>\n";
   print "<TABLE BORDER=3>\n";
   foreach my $name (sort byLastName @names) {
      my $address = $fullname{$name} . $domain;
      print "<TR><TD>$name</TD><TD>";
      print qq(<A HREF="mailto:$address">$address</A>);
      print "</TD></TR>\n";
   }
   print "</TABLE>\n<HR>\n";
} elsif (@names > 0) {
   print_header("Gefundene E-Mail-Adresse");
   print "Folgende E-Mail-Adresse wurde gefunden:\n<P>\n";
   my $name = $names[0];
   my $address = $fullname{$name} . $domain;
   print "<TABLE>\n";
   print "<TR><TD>Name:</TD><TD>$name</TD></TR>\n";
   print "<TR><TD>Adresse:</TD>";
   print qq(<TD><A HREF="mailto:$address">$address</A></TD>);
   print "</TR></TABLE><HR>\n";
} else {
   print_header("Leider nichts gefunden");
   print "Bitte probieren Sie es erneut:\n<P>\n";
}

*In @names hinterließ das suchende Programmteil die Liste der gefundenen vollständigen Namen, die unter Verwendung von %fullname in E-Mail-Adressen abgebildet werden können.
 

 [Vorheriges Kapitel]  [Vorherige Seite]  [Inhaltsverzeichnis]  [Nächste Seite]  [Nächstes Kapitel]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003