dump_html

   1 #!/usr/bin/perl -w
   2 ###APPNAME:     dump_html
   3 ###APPAUTHOR:   duel
   4 ###APPDATE:     2009-01-16 15:13:38
   5 ###APPVER:      0.1
   6 ###APPDESC:     dump_html
   7 ###APPUSAGE:
   8 ###APPEXAMPLE:  dump_html
   9 ###APPOPTION:
  10 use strict;
  11
  12 #ENV variable MUST be defined somewhere,
  13 #FOR perl to search modules from,
  14 #OR nothing will work
  15 use lib $ENV{XR_PERL_MODULE_DIR};
  16
  17 use MyPlace::Script::Usage qw/help_required help_even_empty/;
  18 exit 0 if(help_required($0,@ARGV));
  19 #exit 0 if(help_even_empty($0,@ARGV));
  20 use HTML::TreeBuilder;
  21 my $tree = HTML::TreeBuilder->new();
  22 foreach(<>) {
  23     $tree->parse($_);
  24 }
  25 $tree->eof;
  26 print $tree->dump;
  27 $tree->delete();
  28 exit 0;