Add ARM files

[dh-make-perl] / dev / arm / libhtml-parser-perl / libhtml-parser-perl-3.56 / eg / htitle

diff --git a/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/htitle b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/htitle
new file mode 100755 (executable)
index 0000000..38da5d6
--- /dev/null
+++ b/dev/arm/libhtml-parser-perl/libhtml-parser-perl-3.56/eg/htitle
@@ -0,0 +1,21 @@
+#!/usr/bin/perl
+
+# This program will print out the title of an HTML document.
+
+use strict;
+use HTML::Parser ();
+
+sub title_handler
+{
+    my $self = shift;
+    $self->handler(text => sub { print @_ }, "dtext");
+    $self->handler(end  => "eof", "self");
+}
+
+my $p = HTML::Parser->new(api_version => 3,
+                         start_h => [\&title_handler, "self"],
+                         report_tags => ['title'],
+                        );
+$p->parse_file(shift || die) || die $!;
+print "\n";
+