Add the original source packages to maemo, source lenny

[dh-make-perl] / dev / i386 / libhtml-parser-perl / libhtml-parser-perl-3.56 / eg / hdump

diff --git a/dev/i386/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/hdump b/dev/i386/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/hdump
new file mode 100755 (executable)
index 0000000..2174584
--- /dev/null
+++ b/dev/i386/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/hdump
@@ -0,0 +1,23 @@
+#!/usr/bin/perl -w
+
+use HTML::Parser ();
+use Data::Dump ();
+
+sub h {
+    my($event, $line, $column, $text, $tagname, $attr) = @_;
+
+    my @d = (uc(substr($event,0,1)) . " L$line C$column");
+    substr($text, 40) = "..." if length($text) > 40;
+    push(@d, $text);
+    push(@d, $tagname) if defined $tagname;
+    push(@d, $attr) if $attr;
+
+    print Data::Dump::dump(@d), "\n";
+}
+
+my $p = HTML::Parser->new(api_version => 3);
+$p->handler(default => \&h, "event, line, column, text, tagname, attr");
+
+$p->parse_file(@ARGV ? shift : *STDIN);
+
+