会python真的可以为所欲为0(回)
444天前
这里还有人吗1(回)
629天前这里还有人吗0(回)
629天前
每天面对着电脑屏幕，敲打键盘。我所面对的并不只是代码，而是一种生活方式。0(回)
854天前到处都是羊，不想上班0(回)
934天前
鸽子
0(回)
938天前#----------------------------- |
use Net::NNTP; |
$server = Net::NNTP->new ( "news.host.dom" ) |
or die "Can't connect to news server: $@\n"; |
( $narticles, $first, $last, $name ) = $server->group ( "misc.test" ) |
or die "Can't select misc.test\n"; |
$headers = $server->head ( $first ) |
or die "Can't get headers from article $first in $name\n"; |
$bodytext = $server->body ( $first ) |
or die "Can't get body from article $first in $name\n"; |
$article = $server->article ( $first ) |
or die "Can't get article $first from $name\n"; |
$server-> |
postok() |
or warn "Server didn't tell me I could post.\n"; |
$server->post ( [ @lines ] ) |
or die "Can't post: $!\n"; |
#----------------------------- |
<0401@jpl-devvax.JPL.NASA.GOV> |
#----------------------------- |
$server = Net::NNTP->new ( "news.mycompany.com" ) |
or die "Couldn't connect to news.mycompany.com: $@\n"; |
#----------------------------- |
$grouplist = $server-> |
list() |
or die "Couldn't fetch group list\n"; |
foreach $group ( keys %$grouplist ) |
{ |
if ( $grouplist-> {$group}->[2] eq 'y' ) |
{ |
# I can post to $group |
} |
} |
#----------------------------- |
( $narticles, $first, $last, $name ) = $server->group ( "comp.lang.perl.misc" ) |
or die "Can't select comp.lang.perl.misc\n"; |
#----------------------------- |
@lines = $server->article ( $message_id ) |
or die "Can't fetch article $message_id: $!\n"; |
#----------------------------- |
@group = $server->group ( "comp.lang.perl.misc" ) |
or die "Can't select group comp.lang.perl.misc\n"; |
@lines = $server->head ( $group[1] ) |
or die "Can't get headers from first article in comp.lang.perl.misc\n"; |
#----------------------------- |
$server->post ( @message ) |
or die "Can't post\n"; |
#----------------------------- |
unless ( $server-> |
postok() |
) |
{ |
warn "You may not post.\n"; |
} |
#----------------------------- |
by: 发表于：2017-09-15 16:56:40 顶(0) | 踩(0) 回复
？？
回复评论