#  (gH)   --  anapw.pl  ;  TimeStamp (unix) : 11 Février 2005 vers 18:24

while (<>) { $src .= $_ } ;
$_ = $src ;
# question pour les étudiants :
# pour le troisième .* a -t-il un ? mais pas de ()
while (m|<a href="(.*?)".*?>(.*?)</a>|gs) {
  $nom{$2}++ ;
  if ($nom{$2}==1) { print "  ".sprintf("%-30s %-30s",$2, $1)."\n" ; } ;
} ; # fin tant que
