|
11
|
1 #!/usr/bin/perl -w
|
|
|
2 #use strict;
|
|
|
3
|
|
|
4 use HTML::Element;
|
|
|
5 $a = HTML::Element->new('a', href => 'http://www.perl.com/');
|
|
|
6 $a->push_content("The Perl Homepage");
|
|
|
7
|
|
|
8 $tag = $a->tag;
|
|
|
9 print "$tag starts out as:", $a->starttag, "\n";
|
|
|
10 print "$tag ends as:", $a->endtag, "\n";
|
|
|
11 print "$tag\'s href attribute is: ", $a->attr('href'), "\n";
|
|
|
12
|
|
|
13 $links_r = $a->extract_links();
|
|
|
14 print "Hey, I found ", scalar(@$links_r), " links.\n";
|
|
|
15
|
|
|
16 print "And that, as HTML, is: ", $a->as_HTML, "\n";
|
|
|
17 $a = $a->delete;
|
|
|
18
|
|
|
19
|
