cpan

鐃緒申鐃緒申XML::Liberal鐃緒申 test 鐃叔わ申鐃緒申鐃殉わ申鐃獣てわ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃緒申旅鐃緒申鐃熟まっわ申鐃緒申

鐃醇ー鐃緒申鐃緒申鐃駿￥申鐃緒申鐃緒申: 鐃緒申鐃曙た Premiere (鐃緒申鐃緒申鐃峻緒申鐃緒申鐃春ワ申) 鐃塾プワ申鐃緒申鐃緒申鐃緒申鐃夙フワ申鐃緒申鐃暑が XML::Liberal (Perl鐃盾ジ鐃遵ー鐃緒申) 鐃緒申直鐃獣わ申
鐃夙わ申鐃緒申鐃緒申鐃夙は￥申鐃淑わ申箸鐃緒申鐃緒申堂鐃緒申譴随申廛鐃緒申鐃緒申鐃緒申鐃緒申肇侫鐃緒申鐃緒申鐃緒申鐃�well formed鐃竣わ申 XML 鐃祝わ申鐃緒申个鐃緒申鐃緒申鐃緒申鐃淑わ申鐃塾わ申鐃緒申鐃夙思っわ申鐃緒け鐃緒申鐃緒申鐃緒申鐃叔鰹申鐃緒申鐃緒申鐃緒申鐃塾わ申鐃緒申XML::Liberal鐃竣とわ申鐃緒申 miyagawa 鐃竣ワ申鐃緒申鐃緒申鐃夙わ申 Perl 鐃盾ジ鐃遵ー鐃暑。

鐃緒申蠅随申鐃緒申辰鐃緒申里蓮鐃�XHTML鐃叔なわ申HTML鐃緒申XML::*鐃淑モジ鐃遵ー鐃緒申念鐃緒申鐃緒申鐃緒申函鐃緒申磴�鐃緒申XML::LibXML鐃緒申箸鐃緒申弌鐃�JavaScript鐃淳わ申鐃緒申鐃淑器申鐃出わ申DOM鐃緒申鐃緒申鐃叔わ申鐃暑し鐃緒申XML::Simple鐃緒申my $title = XMLin($xhtml)->{head}{title}鐃淳わ申鐃緒申鐃淑わ申鐃夙わ申鐃獣縁申暴鐃緒申鐃暑。鐃緒申鐃緒申鐃緒申鐃緒申XML::Liberal鐃緒申鐃緒申鐃緒申弌鐃�XML::*鐃淑モジ鐃遵ー鐃緒申鐃�X抜鐃緒申鐃緒申HTML鐃薯食ってわ申鐃緒申覆鐃�....

鐃淑ら、XHTML鐃祝わ申鐃銃わ申鐃殉わ申鐃出わ申鐃緒申鐃叔はなわ申鐃緒申鐃緒申

鐃緒申鐃緒申鐃淑わ申鐃夙に￥申HTML::Tidy鐃夙わ申鐃緒申鐃盾ジ鐃遵ー鐃暑が鐃緒申鐃叔にわ申鐃暑。鐃緒申鐃緒申鐃�HTML-XHTML鐃術器申鐃緒申鐃緒申鐃緒申个鐃緒申鐃緒申鐃緒申鐃淑わ申鐃緒申鐃緒申

鐃叔￥申鐃緒申鐃獣わ申鐃緒申鐃緒申茲随申里鐃緒申鐃緒申鐃緒申鐃淑の￥申

/lang/perl/XML-FromHTML/trunk/lib/XML/FromHTML.pm ? CodeRepos::Share ? Trac 
package XML::FromHTML;
use warnings;
use strict;
our $VERSION = sprintf "%d.%02d", q$Revision: 0.2 $ =~ /(\d+)/g;

use base 'Exporter';
our @EXPORT = qw/html2xml/;

use base 'HTML::Tidy';

sub new {
    my $class = shift;
    bless HTML::Tidy->new(
        {
            @_,
            doctype          => 'omit', # important for speed!
            indent           => 0,
            numeric_entities => 1,
            output_xhtml     => 1,
            tidy_mark        => 0,
            wrap             => 0,
        }
    ), $class;
}

sub html2xml { __PACKAGE__->new->clean(shift) }
1;

% perl -MXML::Simple -MLWP::Simple -MData::Dumper \
    -le 'print Dumper(XMLin(get(shift)))' 
http://example.com/Entity: line 12: parser error : 
  Opening and ending tag mismatch: body line 5 and BODY
% perl -Ilib -MXML::FromHTML -MXML::Simple -MLWP::Simple -MData::Dumper \
    -le 'print Dumper(XMLin(html2xml get(shift)))' http://example.com/
$VAR1 = {
          'body' => {
                    'p' => [
                           'You have reached this web page by typing "example.com", "example.net", or "example.org" into your web browser.',
                           {
                             'a' => {
                                    'href' => 'http://www.rfc-editor.org/rfc/rfc2606.txt',
                                    'content' => 'RFC 2606'
                                  },
                             'content' => [
                                            'These domain names are reserved for use in documentation and are not available for registration. See ',
                                            ', Section 3.'
                                          ]
                           }
                         ]
                  },
          'xmlns' => 'http://www.w3.org/1999/xhtml',
          'head' => {
                    'title' => 'Example Web Page'
                  }
        };

鐃緒申鐃緒申鐃獣わ申鐃緒申鐃緒申鐃宿わ申鐃所。

鐃緒申鐃緒申砲呂鐃緒申鐃祝わ申鐃殉わ申鐃緒申鐃緒申鐃暑。HTML鐃緒申直鐃緒申鐃緒申遒刻申鐃緒申鐃緒申速鐃淑のわ申鐃緒申HTML::DOM鐃夙わ申鐃緒申鐃盾ジ鐃遵ー鐃暑が鐃緒申鐃緒申里鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃所、XHTML鐃祝わ申鐃銃わ申鐃緒申XML::LibXML鐃緒申箸辰鐃緒申鐃緒申鐃渋�鐃緒申鐃塾わ申鐃緒申

鐃淑駕申鐃緒申<title>鐃緒申鐃緒申鐃緒申鐃緒申箸鐃夙器申鐃緒申个鐃緒申戰鐃緒申鐃殉￥申鐃緒申鐃塾件申漫鐃緒申鐃緒申鐃緒申鐃緒申鐃�signature鐃塾醐申鐃緒申法鐃緒申鐃緒申鐃緒申鐃緒申砲鐃緒申両鐃緒申 regexp 鐃叔わ申辰鐃緒申未鐃緒申里鐃緒申鐃緒申鐃緒申瓩わ申鐃緒申鐃�XML::LibXML鐃緒申鐃緒申鐃緒申的鐃緒申DOM鐃緒申鐃叔わ申鐃緒申鐃緒申優鐃緒申討鐃緒申襪�鐃緒申任鐃緒申襦�

http://example.com/ 
               Rate   HTML::DOM XML::LibXML      Regexp
HTML::DOM     287/s          --        -88%       -100%
XML::LibXML  2462/s        758%          --        -96%
Regexp      69585/s      24158%       2726%          --
http://blog.livedoor.jp/dankogai/ 
              Rate   HTML::DOM XML::LibXML      Regexp
HTML::DOM   1.07/s          --        -90%       -100%
XML::LibXML 11.2/s        946%          --       -100%
Regexp      2276/s     212139%      20189%          --

鐃処く鐃粛わ申鐃銃みわ申弌鐃�Liberal鐃緒申XML鐃夙わ申鐃銃逸申鐃緒申鐃緒申鐃緒申筆頭鐃緒申HTML鐃叔はなわ申鐃緒申鐃緒申鐃緒申鐃緒申粉鐃獣縁申砲任鐃緒申鐃夙は￥申

Dan the (HTML|XML|Perl) Monger

use strict;
use warnings;
use Benchmark qw/cmpthese timethese/;
# use Data::Dumper;
use HTML::DOM;
use HTML::Entities;
use HTML::Tidy;
use HTTP::Response::Encoding;
use LWP::UserAgent;
use XML::FromHTML;
use XML::LibXML;

my $uri     = shift     || die;
my $res = LWP::UserAgent->new->get($uri);
die $res->status_line unless $res->is_success;

my $content = $res->decoded_content;

my $xml = XML::LibXML->new;
my $dom = HTML::DOM->new();

sub title_regexp{
    my $str = shift;
    $str =~ m{<title>((?>[^<]+))}msi;
    decode_entities($1);
}

sub title_xml {
    my $xhtml = html2xml(shift);
    my $node = $xml->parse_string($xhtml);
    $node->getElementsByTagName('title')->shift->firstChild->toString;
}
my $title = title_regexp($content);
warn qq("$title");

sub title_html {
    $dom->open();
    $dom->write(shift);
    $dom->close();
    $dom->getElementsByTagName('title')->[0]->innerHTML;
}

cmpthese(timethese(0,
        {
            'XML::LibXML' => sub { $title eq title_xml($content)    or die },
            'HTML::DOM'   => sub { $title eq title_html($content)   or die },
            Regexp        => sub { $title eq title_regexp($content) or die },
        }
    ));