Net::NNTP, retrieving articles help please

[jbl]

What am I overlooking?

use Net::NNTP;

# create a new Net::NNTP object:
$server = Net::NNTP->new("news-server.com")
or die "Can't connect to news server: $@\n";

($narticles, $first, $last, $name) =
$server->group("comp.lang.perl.misc")
or die "comp.lang.perl.misc\n";
print "$narticles $first $last $name\n";

for ($n=$first; $n<=$last; $n++)
{
@lines = $server->article($n);
print map { "$_ \n" } @lines;
}


I want to read the article, all I am getting is a reference to the
array

the print map { "$_ \n" } @lines;

this gets me

ARRAY(0x198e0d4)

not any text

Thanks
jbl

 

[Sherm Pendley]

@lines = $server->article($n);
print map { "$_ \n" } @lines;

I want to read the article, all I am getting is a reference to the
array

So, what's the problem? That's what the docs say you should get from
article(), a reference to an array.

Instead of storing that reference as the first element in @lines, you
probably want something more like this instead:

my $lines = $server->article($n);
print map { "$_ \n" } @$lines;

(I haven't tested this, but I have a hunch that the above will produce
double-spaced articles, because I think the lines you get back will
already have \ns.)

sherm--

 

[jbl]

So, what's the problem? That's what the docs say you should get from
article(), a reference to an array.

Instead of storing that reference as the first element in @lines, you
probably want something more like this instead:

my $lines = $server->article($n);
print map { "$_ \n" } @$lines;

(I haven't tested this, but I have a hunch that the above will produce
double-spaced articles, because I think the lines you get back will
already have \ns.)

sherm--