1 2 3 4
use Mojo::DOM; use LWP::Simple; my $dom=Mojo::DOM->new(get("http://www.perl-community.de/bat/poard/thread/19260")); $dom->find("div.author_info small")->each(sub { say $_->text });
1
2
3
#URL Regex
http://test.example.org/ \d+TEST
http://test.example.org/oxbow.html Ochsentour
1
2
3
4
5
6
URL_ID | URL
-------+---------------------------
1 | http://test.example.org/
2 | http://test.example.org/oxbow.html
3 | http://test.example.org/foobar
4 | http://test.example.org/mooh.html
1
2
3
4
5
REGEX_ID | REGEX
---------+---------------------------
1 | \d+TEST
2 | Ochsentour
3 | Maximum