Mega Code Archive

 

Categories / Perl / Network

 

Using news group

use News::NNTPClient; $nntp = new News::NNTPClient('news.yourserver.com'); ($first, $last) = $nntp->group("comp.lang.perl.moderated"); open FILEHANDLE, ">file.txt"; for ($loop_index = $first; $loop_index <= $last; $loop_index++) {     print FILEHANDLE $nntp->article($loop_index); } close FILEHANDLE;