Skip to content

Instantly share code, notes, and snippets.

@vti
Created July 15, 2010 15:39
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save vti/477125 to your computer and use it in GitHub Desktop.
#!/usr/bin/env perl
use strict;
use warnings;
use Mojo::DOM;
use Data::Dumper;
my $file;
{
local $/;
$file = <>;
}
my $dom = Mojo::DOM->new;
$dom->parse($file);
print Dumper $dom->search('a');
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment