external/ibm-public/postfix/dist/mantools/get_anchors.pl

   1 #! /usr/bin/perl -w
   2 #
   3 # Copyright (c) 2004 Liviu Daia <Liviu.Daia@imar.ro>
   4 # All rights reserved.
   5 #
   6 # $Revision: 1.1.1.1 $
   7 # $Id: get_anchors.pl,v 1.1.1.1 2009/06/23 10:08:36 tron Exp $
   8 # $Source: /pub/NetBSD/misc/repositories/cvsroot/src/external/ibm-public/postfix/dist/mantools/get_anchors.pl,v $
   9 #
  10
  11 use HTML::Parser;
  12
  13 use strict;
  14 use Carp ();
  15 local $SIG{__WARN__} = \&Carp::cluck;
  16
  17 my ($p, $fn, %a);
  18
  19
  20 sub
  21 html_parse_start ($$)
  22 {
  23   my ($t, $attr) = @_;
  24
  25   push @{$a{$attr->{name}}}, $fn
  26     if ($t eq 'a' and defined $attr->{name});
  27 }
  28
  29
  30 $p = HTML::Parser->new(api_version => 3);
  31 $p->strict_comment (0);
  32 $p->report_tags (qw(a));
  33 $p->ignore_elements (qw(script style));
  34
  35 $p->handler (start => \&html_parse_start, 'tagname, attr');
  36
  37 while ($fn = shift)
  38 {
  39   $p->parse_file ($fn);
  40   $p->eof;
  41 }
  42
  43 for (keys %a)
  44 {
  45   print "$_\t\tdefined in ", (join ', ', @{$a{$_}}), "\n"
  46     if (@{$a{$_}} > 1);
  47   print "$_\t\tnumerical in ", (join ', ', @{$a{$_}}), "\n"
  48     if (m/^[\d.]+$/o);
  49 }
  50