How do I visualise/pretty-print a HTML DOM tree?
Now that I can navigate a Web page via WWW::Mechanize and get information via HTML::TreeBuilder::XPath by accessing an id, I am left using Firebug to read the DOM in order to discover the layout of the HTML tree. The content that Mechanize captures is unstructured HTML, not good for human eyes.
Is using Firebug to ascertain the id I am after a typical approach? Once I get the id then I'm good to go, it's just that I've got several ids and pages with more ids to chase down and I was hoping to get (dump, print, etc.) a formatted layout of the DOM in order to make that discovery easier. Though granted, Firebug makes it pretty easy, too. I'm just wondering if I am missing an easier method.
If you need text, xmllint --html --format (comes with libxml2) does a decent job.
If you want a tree and mess with it and test out various expressions in a GUI, then Xacobeo is your new best friend.
Note: since both those tools rely on libxml, replace HTML::TreeBuilder::XPath with HTML::TreeBuilder::LibXML for compatibility. Evaluating XPath will be faster that way, too.
If you know Javascript/JQuery, then also install FireQuery. You can then test out CSS expressions in FireBug, and use them with modules that select HTML through CSS expressions, e.g. Web::Query.
- How to stop array sort in Perl
- I'm not able to execute a Perl script inside Ajax
- specifying the right perl version for git
- Two versions of Perl in Mac OS X?
- Perl DBI with Mariadb Maxscale
- Can't figure out multi-dimensional Perl hash references: Not a HASH reference
- Why is "kill" is not exiting a thread immediately?
- Net::OpenSSH with Expect to connect to router
- Can't locate new.pm in @INC
- Parsing broken multipart/mixed email
- How can I print a table with multi-line strings using the Text::Table module?
- How do I output a text table in Perl?
- Replace spaces differently depending on outside or inside single quotes
- Is there a bash-perl shortcut to count the number of matches in each line?
- Calculate date of birth from age at specific date [MySQL or Perl]
- bash perl run argument as command
- Match all files in directory and index files from first level children
- Print HTML Table from an array with condition with Perl CGI
- Why do I get ARRAY(0x9c90818) instead of the items in the array in Perl?
- Perl regex for street number street name, at least, one digit, one upper case letter, least two lowercase and one whitespace
- File::Copy vs. rename
- Using Perl's 'rename' to pad filenames with leading zeros
- Swap filenames backwards
- Expect module: end of string is correctly matched, but characters remain in 'after' part, causing next expect to continue prematurely
- Is there a Perl equivalent to Python's `if __name__ == '__main__'`?
- How can I add variables into my Perl one-liner?
- Parsing a file by summing up different columns of each row separated by blank line
- How to prevent automatic handling of newlines killing performance in Perl text output?
- How to pass both mandatory and optional command line arguments to perl script?
- How can I find the newest created file in a directory?