#!/usr/bin/perl -- use strict; use warnings; use HTML::TreeBuilder::XPath; use HTML::Selector::XPath 'selector_to_xpath'; Main( @ARGV ); sub Main { my $tree = HTML::TreeBuilder::XPath->new; # $tree->parse_file('foo.html'); $tree->parse_content( DemoHtml() ); for my $node ( $tree->findnodes( selector_to_xpath( 'div.comic__container' ) ) ) { MeImagins( $node ); } } sub MeImagins { my( $node ) = @_; for my $img( $node->findnodes('//img') ){ print "\n###", "\n", $img->address(), "\n", $img->attr( 'src' ), "\n", $img->attr( 'alt' ), "\n", ; } } sub DemoHtml { return <<'__HTML__';
__HTML__ }