I have been doing some programming with the News::NNTPClient module.
The documentation includes the example...
for (; $first <= $last; $first++) {
print $c->article($first);
}
I would prefer to use the foreach loop like this...
($first, $last) = ($newserver->group($newsgroup));
my @messages = ($first..$last);
foreach (@messages) {
print $c->article($_);
}
My problem is that some message IDs don't exist and have no array pointer causing problems in my program. I thought I could get rid of the errors this way...
($first, $last) = ($newserver->group($newsgroup));
my @messages = ($first..$last);
my $count = 0;
foreach (@messages) {
if ($_ = undef || "") {
splice(@testlist, $count, 1);
}
$count++;
}
foreach (@messages) {
print $c->article($_);
}
Unfortunately, it doesn't capture the errors. It looks like $c->article($_) points to an array reference. How can I find the message IDs that are causing the problems?