GitHub - MadcapJake/p6-MyHTML: Perl 6 MyHTML wrapper (original) (raw)

use HTML::MyHTML;

my $html = "

init

my HTML::MyHTML $parser .= new;

parse parser.parse(parser.parse(parser.parse(html);

print tree parser.tree.print(parser.tree.print(parser.tree.print(parser.tree.document):i;

print span text

$parser.tree.nodes('span')[0].child.text.say;

dispose

$parser.dispose;

use HTML::MyHTML::Raw; use HTML::MyHTML::Encoding;

my $html = "

basic init

my $myhtml = myhtml_create(); myhtml_init($myhtml, 0, 1, 0);

first tree init

my $tree = myhtml_tree_create(); myhtml_tree_init($tree, $myhtml);

parse html

myhtml_parse($tree, Enc, html,html, html,html.bytes);

release resources

myhtml_tree_destroy($tree); myhtml_destroy($myhtml);