Hallo Welt!

von raredesign | Dez 3, 2019 | Allgemein | 0 Kommentare

Cokiee Shell

Current Path : /usr/share/doc/libhtml-parser-perl/examples/

Upload File :

Current File : //usr/share/doc/libhtml-parser-perl/examples/htitle

#!/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";

Cokiee Shell Web 1.0, Coded By Razor

Kommentar absenden Antworten abbrechen

Du musst angemeldet sein, um einen Kommentar abzugeben.