How to print an entire nntp article

mpj196884 has asked for the wisdom of the Perl Monks concerning the following question:

I'm looking for some pointers on how to print the entire nntp article. I've only been studying perl for coming up on two years now.

#!/usr/bin/perl 
# perl qq2.pl

##minimal nntp client


use strict;
use warnings;
use Net::NNTP ();

use constant NUMBER_OF_ARTICLES    => 2;
use constant GROUP_NAME        => 'comp.lang.perl.misc';
use constant SERVER_NAME    => 'news.individual.net';
use constant NNTP_DEBUG        => 0;

my $nntp = Net::NNTP->new(SERVER_NAME, 'Debug' => NNTP_DEBUG) or die;
my $USER = 'merrilljensen';
my $PASS = 'quoatohngipu';

$nntp->authinfo($USER,$PASS) or die $!;


my($article_count, $first_article, $last_article) = $nntp->group(GROUP
+_NAME) or die;


# Which XOVER fields contain Subject: and From:?
my $count = 0;
my %xover_fmt = map( ($_, $count++), @{ $nntp->overview_fmt or die} );
die unless exists $xover_fmt{'Subject:'};
my $subject_offset = $xover_fmt{'Subject:'};
my $from_offset = $xover_fmt{'From:'};

my(@xover, $start_article);
RETRIEVE: while ($#xover+1 < NUMBER_OF_ARTICLES and $last_article >= $
+first_article) {

    # How many articles do we need?  Stop retrieving if we have enough
    my $articles_required = NUMBER_OF_ARTICLES - ($#xover+1) or last R
+ETRIEVE;


    # Fetch overview information for the articles
    $start_article = $last_article - ($articles_required-1);
    $start_article = $start_article > $first_article ? $start_article 
+: $first_article;

    my $xover_query = $start_article == $last_article ?
    $start_article :
    [$start_article, $last_article];
    my $xover_ref = $nntp->xover($xover_query) or die;

    # Store headers for the articles we've retrieved
    foreach (sort {$b <=> $a} keys %$xover_ref) {
        push @xover, $xover_ref->{$_};
    }
} continue {
    # Move the pointer forward to fetch previous articles
    $last_article = $start_article - 1;
}

print $nntp->body;

__END__
[download]

output:

C:\MinGW\source>perl qq2.pl
ARRAY(0x1a16d80)ARRAY(0x1a16c3c)
C:\MinGW\source>perl qq2.pl
ARRAY(0x1a16b1c)
C:\MinGW\source>
[download]

Thanks for your comment and cheers,

Comment on How to print an entire nntp article Select or Download Code

Replies are listed 'Best First'.
Re: How to print an entire nntp article by Anonymous Monk on May 23, 2009 at 07:13 UTC
`use Data::Dumper; print Dumper( $nntp, $nntp->body ); __END__` [download]	[reply] [d/l]
Re^2: How to print an entire nntp article by mpj196884 (Novice) on May 24, 2009 at 22:39 UTC
C:\MinGW\source>perl qq2.pl $VAR1 = bless( \*Symbol::GEN0, 'Net::NNTP' ); $VAR2 = 3.205 Line ', '\| ', '\| A sequence of zero or more non- <newline>s plus a terminating ', '\| <newline>. ', ' ', 'And "text file" as: ', ' ', '\| 3.392 Text File ', '\| ', '\| A file that contains characters organized into one or more lines. T he ', '\| lines do not contain NUL characters and none can exceed {LINE_MAX} ', '\| bytes in length, including the <newline>. Although IEEE Std ', '\| 1003.1-2001 does not distinguish between text files and binary file s ', '\| (see the ISO C standard), many utilities only produce predictable o r ', '\| meaningful output when operating on text files. The standard utilit ies ', '\| that have such restrictions always specify "text files" in their ST DIN ', '\| or INPUT FILES sections. ', ' ', 'Sinan already mentioned the C standard, but that doesn\'t specify how ', 'files are represented on disk - a text file could be a series of fixe d ', 'or variable length records without any "newline characters" at all, a s ', 'long as the stdio library performs the necessary conversions. ', ' ', ' hp ' ; C:\MinGW\source> #end output Thanks for your reply. I've used Data::Dumper before with some success but was dismayed to see the above output, where I can't even begin to guess where it went wrong. Gosh, I'd continue with this except that this is already a mess, from a continuity point of view.	[reply]
Re: How to print an entire nntp article by mpj196884 (Novice) on May 23, 2009 at 03:04 UTC
sorry I forgot to redact my $pass $it's different now I like to think of the computers that work where i use to ride the sidewalk, as Berlin's large, jelly-filled donut.	[reply]
Re: How to print an entire nntp article by saberworks (Curate) on May 26, 2009 at 03:28 UTC
Documentation says... If FH is not specified then the return value, on success, will be a reference to an array containing the article requested, each entry in the array will contain one line of the article. I've used this module before and it seems like it returned a real array from the body() method, so I'm guessing you can do: `print "$_\n" for $article->body();` But if it's returning an arrayref, just dereference it: `print "$_\n" for @{$article->body()};`	[reply] [d/l] [select]


Don't ask to ask, just ask
	PerlMonks