$ scraper apod.html
scraper> d
$VAR1 = {};
scraper> process '/html/body/center/p[2]' => 'Date' => 'TEXT';
scraper> d
$VAR1 = {
'Date' => ' 2012 June 25 '
};
scraper> process '//b' => 'b[]' => 'TEXT';
scraper> y
---
Date: ' 2012 June 25 '
b:
- " Milky Way Over Piton de l'Eau "
- ' Image Credit & Copyright: '
- ' Explanation: '
- ' Help Evaluate APOD: '
- " Tomorrow's picture: "
- ' Authors & editors: '
- 'NASA Official: '
- 'A service of:'
- '&'
scraper> c all
#!c:\perl\5.14.1\bin\MSWin32-x86-multi-thread\perl.exe
use strict;
use Web::Scraper;
use URI;
my $file = \do { my $file = "apod.html"; open my $fh, $file or die "$file: $!"; join '', <$fh> };
my $scraper = scraper {
process '/html/body/center/p[2]' => 'Date' => 'TEXT';
process '//b' => 'b[]' => 'TEXT';
};
my $result = $scraper->scrape($file);
scraper> q