4:65
7 ˆl–ß=¿Jå2ÛR‚ œP Ü ®21hß¿
0a–ß=¿Jå2ÛR‚ œP Ü ®21hß " ˆl–ß=¿Jå2ÛR‚ œP ¸\iµ1hßÁ
ƒh¹¿Ã disabled
" ˆl–äY>” ªe¶¥8 ™¸ \h
bÑ¿Â
ƒh¹ÀÄ 4:59
/
ˆl–äY>”Êh ¥ ² …p/Üeµ1hßÃ
ƒy±9_‹ uÐb
&=LV[(ÂÆ !N
package HTML::HeadParser;
=head1 NAME
HTML::HeadParser - Parse section of a HTML document
=head1 SYNOPSIS
require HTML::HeadParser;
$p = HTML::HeadParser->new;
$p->parse($text) and print "not finished";
$p->header('Title') # to access ....
$p->header('Content-Base') # to access
$p->header('Foo') # to access
$p->header('X-Meta-Author') # to access
$p->header('X-Meta-Charset') # to access
=head1 DESCRIPTION
The C is a specialized (and lightweight)
C that will only parse the EHEAD>...E/HEAD>
section of an HTML document. The parse() method
will return a FALSE value as soon as some EBODY> element or body
text are found, and should not be called again after this.
Note that the C might get confused if raw undecoded
UTF-8 is passed to the parse() method. Make sure the strings are
properly decoded before passing them on.
The C keeps a reference to a header object, and the
parser will update this header object as the various elements of the
EHEAD> section of the HTML document are recognized. The following
header fields are affected:
=over 4
=item Content-Base:
The I header is initialized from the Ebase
href="..."> element.
=item Title:
The I header is initialized from the E<lt>title>...E<lt>/title>
element.
=item Isindex:
The I<Isindex> header will be added if there is a E<lt>isindex>
element in the E<lt>head>. The header value is initialized from the
I<prompt> attribute if it is present. If no I<prompt> attribute is
given it will have '?' as the value.
=item X-Meta-Foo:
All E<lt>meta> elements containing a C<name> attribute will result in
headers using the prefix C<X-Meta-> appended with the value of the
C<name> attribute as the name of the header, and the value of the
C<content> attribute as the pushed header value.
E<lt>meta> elements containing a C<http-equiv> attribute will result
in headers as in above, but without the C<X-Meta-> prefix in the
header name.
E<lt>meta> elements containing a C<charset> attribute will result in
an C<X-Meta-Charset> header, using the value of the C<charset>
attribute as the pushed header value.
The ':' character can't be represented in header field names, so
if the meta element contains this char it's substituted with '-'
before forming the field name.
=back
=head1 METHODS
The following methods (in addition to those provided by the
superclass) are available:
=over 4
=cut
require HTML::Parser;
@ISA = qw(HTML::Parser);
use HTML::Entities ();
use strict;
use vars qw($VERSION $DEBUG);
#$DEBUG = 1;
$VERSION = "3.71";
=item $hp = HTML::HeadParser->new
=item $hp = HTML::HeadParser->new( $header )
The object constructor. The optional $header argument should be a
reference to an object that implement the header() and push_header()
methods as defined by the C<HTTP::Headers> class. Normally it will be
of some class that is a or delegates to the C<HTTP::Headers> class.
If no $header is given C<HTML::HeadParser> will create an
C<HTTP::Headers> object by itself (initially empty).
=cut
sub new
{
my($class, $header) = @_;
unless ($header) {
require HTTP::Headers;
$header = HTTP::Headers->new;
}
my $self = $class->SUPER::new(api_version => 3,
start_h => ["start", "self,tagname,attr"],
end_h => ["end", "self,tagname"],
text_h => ["text", "self,text"],
ignore_elements => [qw(script style)],
);
$self->{'header'} = $header;
$self->{'tag'} = ''; # name of active element that takes textual content
$self->{'text'} = ''; # the accumulated text associated with the element
$self;
}
=i