Re^2: Mojo::DOM find tag after another tag

 $ perl -Mojo -le " my $dom = x(b(q{2.html})->slurp); for my $img ( $d
+om->find(q{h1 ~ img})->each ){ print $img->attr(q{src});  } "
333
444
[download]

Comment on Re^2: Mojo::DOM find tag after another tag Download Code

Replies are listed 'Best First'.
Re^3: Mojo::DOM find tag after another tag by luxs (Beadle) on May 29, 2016 at 19:30 UTC
Nice script, but it fails if between H1 and IMG occur other tags. `my $data = 'yada...yada...yada.. <img src="111"> yada...yada...yada.. <img src="222"> yada...yada...yada.. <h1>Some title</h1> yada...yada...yada.. <a href="444444"> <img src="333"> yada...yada...yada.. <img src="444">'; my $dom = Mojo::DOM->new($data); for my $img ( $dom->find(q{h1 ~ img})->each ) { print $img->attr(q{src}); }` [download]	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: Mojo::DOM find tag after another tag
by luxs (Beadle) on May 29, 2016 at 19:30 UTC

my $data = 'yada...yada...yada..
<img src="111">
yada...yada...yada..
<img src="222">
yada...yada...yada..
<h1>Some title</h1>
yada...yada...yada..
<a href="444444">
<img src="333">
yada...yada...yada..
<img src="444">';

my $dom = Mojo::DOM->new($data);
for my $img ( $dom->find(q{h1 ~ img})->each )
        {
         print $img->attr(q{src});
        }
[download]

[reply]
[d/l]