Script NNTP

À (at) Tue, 11 May 2004 23:57:24 +0200,
fld <ledu@altern.org> écrivait (wrote):

Je recherche un script du meme style que celui
la. http://sebsauvage.net/python/newsarchiver.py

(Il telecharge les messages de Usenet dans un group choisi).

Apres une recherche et quelque exemple ici et la , je n'ai trouvé rien de
complet.

Le module Net::NNTP permet de faire cela en quelques lignes... Où est le
problème ?

--
Paul Gaborit - <http://www.enstimac.fr/~gaborit/>
Perl en français - <http://www.enstimac.fr/Perl/>

Oui ... mais encore ... ?
Pas evident de trouver un bout de script valable :(

Le module Net::NNTP permet de faire cela en quelques lignes... Où est le
problème ?

Bonjour,

le 12/05/2004 à 20:02, "@(none)" <""pierre"@(none)"> a écrit
dans le message <40a266c3$0$8635$626a14ce@news.free.fr> :

Le module Net::NNTP permet de faire cela en quelques lignes... Où est
le problème ?

Oui ... mais encore ... ?
Pas evident de trouver un bout de script valable :(

#!/usr/bin/perl -w
use strict;
use Net::NNTP;

my $server = "ton_serveur_de_news";
my $group = "le_groupe_que_tu_veux";

my $nntp = Net::NNTP->new($server);
my ($nba, $nfa, $nla) = $nntp->group($group);
print "number of articles : $nban";
print "number of the first article: $nfan";
print "number of the last article: $nlan";
for ($nfa .. $nla) {
open(F, ">${group}_$_");
$nntp->article($_ , *F);
close(F);
}
__END__

--
Benoit Izac

Merci beaucoup c'est effectivement le meme en perl.

#!/usr/bin/perl -w
use strict;
use Net::NNTP;

my $server = "ton_serveur_de_news";
my $group = "le_groupe_que_tu_veux";

my $nntp = Net::NNTP->new($server);
my ($nba, $nfa, $nla) = $nntp->group($group);
print "number of articles : $nban";
print "number of the first article: $nfan";
print "number of the last article: $nlan";
for ($nfa .. $nla) {
open(F, ">${group}_$_");
$nntp->article($_ , *F);
close(F);
}
__END__