use URI qw( );
use URI::QueryParam qw( );
foreach (
'http://www.perlmonks.org/index.pl?node_id=629153',
'http://www.perlmonks.org/index.pl?node=Recently%20Active%20Threads
+',
) {
my $uri = URI->new($_);
my @node_ids = $uri->query_param('node_id');
my @node_titles = $uri->query_param('node');
if ( (@node_ids && @node_titles)
|| @node_ids > 2
|| @node_titles > 2
) {
warn("$uri: Error: Bad uri\n");
}
if (!@node_ids && !@node_titles) {
warn("$uri: Warning: Unrecognized uri\n");
next;
}
if (@node_ids) {
print("$uri: By Id ($node_ids[0])\n");
}
if (@node_titles) {
print("$uri: By Title ($node_titles[0])\n");
}
}
|