你的分享就是我们的动力 ---﹥

Perl 使用 News::NNTPClient 访问新闻组

时间:2013-05-30 00:09来源:www.chengxuyuans.com 点击:

代码简介

暂无

Perl代码片段

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;

转载注明地址:http://www.chengxuyuans.com/Perl/63110.html