If some portion of your job requires periodic postings to Usenet—an FAQ listing, for example—the following Perl program can automate the process for you. In the code example, the posted text is read in from a text file, but your input can come from anywhere.
The program shown in Listing 37.8 uses the
Net::NNTP module, which is a standard part of the Perl distribution. You can find more documentation on the
Net::NNTP module by entering
'perldoc Net::NNTP' at the command line.
#!/usr/bin/perl# load the post data into @postopen (POST, "post.file");@post = <POST>;close POST;# import the NNTP moduleuse Net::NNTP;$NNTPhost = 'news';# attempt to connect to the remote host;# print an error ...