StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>A very nice interface for this type of work is provided by some tools of the <a href="http://mojolicio.us" rel="nofollow"><strong>Mojolicious</strong></a> distribution.</p> <h1>Long version</h1> <p>The combination of its <a href="http://mojolicio.us/perldoc/Mojo/UserAgent" rel="nofollow">UserAgent</a>, <a href="http://mojolicio.us/perldoc/Mojo/DOM" rel="nofollow">DOM</a> and <a href="http://mojolicio.us/perldoc/Mojo/URL" rel="nofollow">URL</a> classes can work in a very robust way:</p> <pre><code>#!/usr/bin/env perl use strict; use warnings; use feature 'say'; use Mojo::UserAgent; use Mojo::URL; # preparations my $ua = Mojo::UserAgent->new; my $url = "http://www.imdb.com/search/title?title=Casino%20Royale"; # try to load the page my $tx = $ua->get($url); # error handling die join ', ' => $tx->error unless $tx->success; # extract the url my $movie_link = $tx->res->dom('a[href^=/title]')->first; my $movie_url = Mojo::URL->new($movie_link->attrs('href')); say $movie_url->path->parts->[-1]; </code></pre> <p>Output:</p> <pre><code>tt0381061 </code></pre> <h1>Short version</h1> <p>The funny one liner helper module <a href="http://mojolicio.us/perldoc/ojo" rel="nofollow">ojo</a> helps to build a very short version:</p> <pre><code>$ perl -Mojo -E 'say g("imdb.com/search/title?title=Casino%20Royale")->dom("a[href^=/title]")->first->attrs("href") =~ m|([^/]+)/?$|' </code></pre> <p>Output:</p> <pre><code>tt0381061 </code></pre>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload