Select Code to Download

Select or download this

Q:\repos\WWW-Mechanize-FireFox>perl -Ilib -MWWW::Mechanize::Firefox::D
+SL -wle "update_html(q{<html><head></head><body><a href="http://examp
+le.com">Test</a><a href="http://foobar.example.com">no Test</a></body
+></html>}); print content; print $_->{innerHTML} for selector q{*[hre
+f*='/example.co']}"

<html><head></head><body><a href="http://example.com">Test</a><a href=
+"http://foobar.example.com">no Test</a></body></html>
Test

Select or download this

#!perl -w
use WWW::Mechanize::Firefox::DSL;
...
update_html(q{<html><head></head><body><a href="http://example.com">Te
+st</a><a href="http://foobar.example.com">no Test</a></body></html>})
+;

highlight_node( selector(q{*[href*='/example.com']}));