Scraping the NME's top 100 albums of 2018

nme-scraper

#!/usr/bin/perl -CS

use strict;
use warnings;
use utf8;
use feature 'say';

use Web::Query;

my $page = 'https://www.nme.com/blogs/nme-blogs/' .
           'best-greatest-albums-of-the-year-2018-2419656';

wq($page)
  ->find('h2')
  ->each(sub {
  my $line = $_->text;
  return unless $line =~ /^\d+\./;
  my ($num, $artist, $title) = $line =~ /^(\d+)\.\s(.+) – ‘(.+)’/;
  say join "\t", $num, $artist, $title;
});