Mercurial > pub > Impl
view _test/any.pl @ 17:7f88e01b58f8
dom
author | Sergey |
---|---|
date | Wed, 09 Sep 2009 17:43:31 +0400 |
parents | 75980091813b |
children | 818c74b038ae |
line wrap: on
line source
#!/usr/bin/perl -w #use strict; use HTML::Element; $a = HTML::Element->new('a', href => 'http://www.perl.com/'); $a->push_content("The Perl Homepage"); $tag = $a->tag; print "$tag starts out as:", $a->starttag, "\n"; print "$tag ends as:", $a->endtag, "\n"; print "$tag\'s href attribute is: ", $a->attr('href'), "\n"; $links_r = $a->extract_links(); print "Hey, I found ", scalar(@$links_r), " links.\n"; print "And that, as HTML, is: ", $a->as_HTML, "\n"; $a = $a->delete;