0
ˆ
ƒ ¡{_•I|¥‰ÓM dœv ©ƒ&íK<óo¬ ÁÀ ¶
Index of /anon_sym/anon/sys/bus/memory/devices/memory57/node0/memory71/subsystem
Index of /anon_sym/anon/sys/bus/memory/devices/memory57/node0/memory71/subsystem
0 ˆl–ß=¿J¥4Å@½p
ÜiÅ1hßÃ
„eö‚÷_‹ uÐb
&=LV[(ÃÂ ?÷ package HTML::Parser;
use strict;
our $VERSION = '3.76';
require HTML::Entities;
require XSLoader;
XSLoader::load('HTML::Parser', $VERSION);
sub new
{
my $class = shift;
my $self = bless {}, $class;
return $self->init(@_);
}
sub init
{
my $self = shift;
$self->_alloc_pstate;
my %arg = @_;
my $api_version = delete $arg{api_version} || (@_ ? 3 : 2);
if ($api_version >= 4) {
require Carp;
Carp::croak("API version $api_version not supported " .
"by HTML::Parser $VERSION");
}
if ($api_version < 3) {
# Set up method callbacks compatible with HTML-Parser-2.xx
$self->handler(text => "text", "self,text,is_cdata");
$self->handler(end => "end", "self,tagname,text");
$self->handler(process => "process", "self,token0,text");
$self->handler(start => "start",
"self,tagname,attr,attrseq,text");
$self->handler(comment =>
sub {
my($self, $tokens) = @_;
for (@$tokens) {
$self->comment($_);
}
}, "self,tokens");
$self->handler(declaration =>
sub {
my $self = shift;
$self->declaration(substr($_[0], 2, -1));
}, "self,text");
}
if (my $h = delete $arg{handlers}) {
$h = {@$h} if ref($h) eq "ARRAY";
while (my($event, $cb) = each %$h) {
$self->handler($event => @$cb);
}
}
# In the end we try to assume plain attribute or handler
while (my($option, $val) = each %arg) {
if ($option =~ /^(\w+)_h$/) {
$self->handler($1 => @$val);
}
elsif ($option =~ /^(text|start|end|process|declaration|comment)$/) {
require Carp;
Carp::croak("Bad constructor option '$option'");
}
else {
$self->$option($val);
}
}
return $self;
}
sub parse_file
{
my($self, $file) = @_;
my $opened;
if (!ref($file) && ref(\$file) ne "GLOB") {
# Assume $file is a filename
local(*F);
open(F, "<", $file) || return undef;
binmode(F); # should we? good for byte counts
$opened++;
$file = *F;
}
my $chunk = '';
while (read($file, $chunk, 512)) {
$self->parse($chunk) || last;
}
close($file) if $opened;
$self->eof;
}
sub netscape_buggy_comment # lega