[30511] in Perl-Users-Digest
Perl-Users Digest, Issue: 1754 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jul 30 00:10:10 2008
Date: Tue, 29 Jul 2008 21:09:33 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Tue, 29 Jul 2008 Volume: 11 Number: 1754
Today's topics:
Re: Adding a quantifier to substitution mohyeldin55@gmail.com
Re: Append newline to files <m@rtij.nl.invlalid>
Re: Append newline to files <jurgenex@hotmail.com>
Re: Can I upload Perl program in unicode? <news1234@free.fr>
Re: Can I upload Perl program in unicode? <bill@ts1000.us>
Re: Extracting bits out of huge numbers <nospam@somewhere.com>
Re: Extracting bits out of huge numbers <sisyphus359@gmail.com>
FCGI::Request petr999@gmail.com
Re: How come? RE matches, but does not set $^R <ced@blv-sam-01.ca.boeing.com>
Re: How come? RE matches, but does not set $^R <ced@blv-sam-01.ca.boeing.com>
Re: Is there any module to get the cdrom infomation? <owinsloe@gmail.com>
Re: Is there any module to get the cdrom infomation? <joost@zeekat.nl>
Re: Is there any module to get the cdrom infomation? (Jens Thoms Toerring)
Re: Parallel search in Perl and other languages <smallpond@juno.com>
Question about variable scope <no@spam.com>
Re: what is the expression mean? <whynot@pozharski.name>
Re: what is the expression mean? <user@serverrb.net>
Re: Which NNTP module to use? <no@spam.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 29 Jul 2008 12:07:47 -0700 (PDT)
From: mohyeldin55@gmail.com
Subject: Re: Adding a quantifier to substitution
Message-Id: <b538c268-e33e-45bd-9fab-4983628f254b@b1g2000hsg.googlegroups.com>
On Jul 29, 6:32=A0pm, Paul Lalli <mri...@gmail.com> wrote:
> On Jul 29, 10:31=A0am, mohyeldi...@gmail.com wrote:
>
> > I was wondering if there is a work around to add a quantifier if I
> > need to replace a certain pattern with X multiples of certain
> > character or string like:
>
> > $str=3D~s/<pattern>/R{15}/g; =A0-------> how to replace the pattern wit=
h
> > "R" repeated 15 times?
>
> The /e modifier of a s/// changes the replacement from a string to a
> piece of Perl code to evaluate. =A0 So use that modifier, and make your
> replacement be code that returns a string comprised of 15 R's:
>
> $str =3D~ s/<pattern>/'R' x 15/ge;
>
> Paul Lalli
Thanks, that really helped.
------------------------------
Date: Tue, 29 Jul 2008 21:51:40 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Append newline to files
Message-Id: <pan.2008.07.29.19.51.38@rtij.nl.invlalid>
On Mon, 28 Jul 2008 17:41:41 -0700, p19010101 wrote:
> I need to go through few hundred text files and append newline for files
> that don't end with newline. So I have the following code to read the
> file:
>
> local $/ = undef;
> open(handle, $filename) || die($!);
> $content = <handle>;
> close(handle);
>
> Then use the following to check:
>
> if($content =~ m/.*\n$/)
> {
> # file end with newline, do nothing
> }
> else
> {
> open(handle, ">>", $filename) || die($!); print handle "\n";
> close(handle);
> }
>
> The above code is working fine but I noticed some of the files have LF
> as newline (probably originated from Unix) while the others are CRLF
> (Windows). The perl script will run on a Windows machine with
> ActiveState Perl 5.6, and \n is always CRLF when written to file.
>
> Is there a way to tell Perl to append LF for Unix files and CRLF for
> Windows files?
>
> Or do I have to specifically look for \x0d\x0a and then append \x0d or
> \x0d\x0a accordingly?
The latter. And what are you going to with a file without any newlines?
1) Better s/0x0d//g, make all the files the same format.
2) Or investigate if it are only the Windows files missing a trailing
lineseparator, it's a typical Windows problem.
M4
------------------------------
Date: Tue, 29 Jul 2008 20:14:01 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Append newline to files
Message-Id: <9ptu841k79b0t4b454mvjtd24k59hv7he4@4ax.com>
Martijn Lievaart <m@rtij.nl.invlalid> wrote:
>2) Or investigate if it are only the Windows files missing a trailing
>lineseparator, it's a typical Windows problem.
And here you just fell into the trap.
If "\n" is a line _seperator_, then a trailing line separator would
simply indicate another emtpy line at the end of the file:
"foo\nbar\n"
would contains 3 lines, 'foo', 'bar' and an empty line.
If on the other hand "\n" is a line _terminator_ then the above string
would contain 2 lines. And
"foo\nbar\n\buzz"
would still be only two lines with some trailing junk.
jue
------------------------------
Date: Tue, 29 Jul 2008 23:54:39 +0200
From: nntpman68 <news1234@free.fr>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <488f91a0$0$1122$426a74cc@news.free.fr>
Just out of curiosity:
What was now the root cause?
bye
N
John wrote:
> "szr" <szrRE@szromanMO.comVE> wrote in message
> news:g6nfae0241m@news4.newsguy.com...
>> Ben Bullock wrote:
>>> On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
>>>
>>>> John schrieb:
>>>>> If a Perl script can be encoded in UTF8, the problem must lie with
>>>>> the upload. I use WS_FTP Pro on my Windows (sorry) machine
>>> A lot of people here use Perl on Windows. One of my main uses for Perl
>>> is manipulating Microsoft Word/Excel documents via Win32::OLE.
>>>
>>>>> and vsftpd on my
>>>>> linux server. I need to look at the setup on both.
>>> Did you know you can use Explorer as an ftp client on Windows? It's
>>> fairly handy.
>>>
>>>> Also have a look at line endings, windows-style line ends
>>>> (CRLF) generally don't mix well with Perl on *nix systems
>>> The only problem with these on Unix systems is "bad interpreter"
>>> messages if there is a ^M at the end of the #! line. But these
>>> messages come from the shell, not Perl itself. Perl is able to cope
>>> with any kind of line endings on Unix, so you can run your scripts
>>> as "perl myscript" it will be OK.
>> Another little trick I've used before in such situations is, after
>> uploading, go to your Linux shell and open the script in 'pico', then save
>> the file. When pico saves the file, it will have converted any \CR\LF
>> sequences to just LF. I am not sure who it handles UTF8, however. And I'm
>> sure there are other tools for converting as well.
>>
>> --
>> szr
>>
>
>
> Good news. It is all working fine now. I tested it with French, German,
> Persian, Chinese and Greek.
> I had some problems with DBI and MySQL with Perl and UTF8 but I managed to
> get that to work too.
> Many thanks for all the input.
> Regards
> John
>
>
>
>
------------------------------
Date: Tue, 29 Jul 2008 17:09:25 -0700 (PDT)
From: Bill H <bill@ts1000.us>
Subject: Re: Can I upload Perl program in unicode?
Message-Id: <fd3681e1-d79a-47bb-862d-7edd735feef0@l42g2000hsc.googlegroups.com>
On Jul 29, 5:54=A0pm, nntpman68 <news1...@free.fr> wrote:
> Just out of curiosity:
>
> What was now the root cause?
>
> bye
>
> N
>
>
>
> John wrote:
> > "szr" <sz...@szromanMO.comVE> wrote in message
> >news:g6nfae0241m@news4.newsguy.com...
> >> Ben Bullock wrote:
> >>> On Tue, 29 Jul 2008 09:57:57 +0200, Christian Winter wrote:
>
> >>>> John schrieb:
> >>>>> If a Perl script can be encoded in UTF8, the problem must lie with
> >>>>> the upload. =A0I use WS_FTP Pro on my Windows (sorry) machine
> >>> A lot of people here use Perl on Windows. One of my main uses for Per=
l
> >>> is manipulating Microsoft Word/Excel documents via Win32::OLE.
>
> >>>>> and vsftpd on my
> >>>>> linux server. =A0I need to look at the setup on both.
> >>> Did you know you can use Explorer as an ftp client on Windows? It's
> >>> fairly handy.
>
> >>>> Also have a look at line endings, windows-style line ends
> >>>> (CRLF) generally don't mix well with Perl on *nix systems
> >>> The only problem with these on Unix systems is "bad interpreter"
> >>> messages if there is a ^M at the end of the #! line. But these
> >>> messages come from the shell, not Perl itself. Perl is able to cope
> >>> with any kind of line endings on Unix, so you can run your scripts
> >>> as "perl myscript" it will =A0be OK.
> >> Another little trick I've used before in such situations is, after
> >> uploading, go to your Linux shell and open the script in 'pico', then =
save
> >> the file. When pico saves the file, it will have converted any \CR\LF
> >> sequences to just LF. I am not sure who it handles UTF8, however. And =
I'm
> >> sure there are other tools for converting as well.
>
> >> --
> >> szr
>
> > Good news. =A0It is all working fine now. =A0I tested it with French, G=
erman,
> > Persian, Chinese and Greek.
> > I had some problems with DBI and MySQL with Perl and UTF8 but I managed=
to
> > get that to work too.
> > Many thanks for all the input.
> > Regards
> > John- Hide quoted text -
>
> - Show quoted text -
Was wondering that myself
Bill H
------------------------------
Date: Tue, 29 Jul 2008 19:23:25 -0400
From: "Thrill5" <nospam@somewhere.com>
Subject: Re: Extracting bits out of huge numbers
Message-Id: <OM6dnZuuB8rwOxLVnZ2dnUVZ_jGdnZ2d@comcast.com>
"hofer" <blabla@dungeon.de> wrote in message
news:ce050ae4-9a3f-406d-b9f1-52a19754e37d@z66g2000hsc.googlegroups.com...
> Hi,
>
> I'd like to work with huge integers (> 64 bit precision)
>
> Thus I can't use ordinary perl integers.
>
> I thought Math::BigInt wouldn't be a too bad choice.
>
>
> It's easy enough go create BigInts.
> my $a = Math::BigInt->new("0x7777666655544443333222211110000");
> my $b = Math::BigInt->new("0x1111111111111111111111111111111");
>
> Calculating with them is also fine:
> $a->badd($b); # $a = $a + $b
>
>
> Now I would like to extract certain bits out of this huge number:
>
> Example Bits 16 bis 12 should result in 0b00001 == 0x1 == 1
> Bits 17 bis 12 should result in 0b100001 == 0x21 == 33
>
>
>
> So far I see two ways of doing this conversion.
>
> However I'm not really appealed by either solution.
>
> Do you know anything faster / better or even another CPAN module?
>
> # extract bits out of binary string
> sub extbits { #
> my ($val,$msb,$lsb) = @_; # $val must be Math::BigInt;
> my $asbinstr = $val->as_bin(); # nun als binaer string
> my $withoutprefix = substr($asbinstr,2); # fuehrendes '0b'
> entfernen
> my $substr = substr($withoutprefix,-$msb-1,$msb-$lsb+1); # den
> substring extrahieren
> $substr = 0 if $substr eq ""; # sollte mindestens einen character
> enthalten
> my $result = Mat::BigInt->new("0b".$substr); # zurueck in
> Math::BigInt verwandeln
> return $result;
> } #
>
> # extract bits via shifts operations follwed by a bit wise and
> sub extbits { #/*{{{*/
> my ($val,$msb,$lsb) = @_; # $val must be Math::BigInt;
> my $mask = Math::BigInt->new(1); # create a 1
> $mask->blsft($msb-$lsb+1); # 2 ^ (number of bits to extract)
> $mask->bsub(1); # now we have a mask
> my $tmp = $val->copy->brsft($lsb); # shift input value to the
> right
> return $tmp->band($mask);
> } #/*}}}*/
>
>
>
> Thanks in advance for any other suggestions
> like rewriting the function to accelerate it or using another module.
>
>
> bye
>
>
> H
>
How about using 'unpack'?
------------------------------
Date: Tue, 29 Jul 2008 19:12:18 -0700 (PDT)
From: sisyphus <sisyphus359@gmail.com>
Subject: Re: Extracting bits out of huge numbers
Message-Id: <9e4e0bc9-8066-48c0-a61d-bb1c5509a0ff@n33g2000pri.googlegroups.com>
On Jul 29, 10:28=A0pm, hofer <bla...@dungeon.de> wrote:
> Hi,
>
> I'd like to work with huge integers (> 64 bit precision)
>
> Thus I can't use ordinary perl integers.
>
> I thought Math::BigInt wouldn't be a too bad choice.
>
> It's easy enough go create BigInts.
> my $a =3D Math::BigInt->new("0x7777666655544443333222211110000");
> my $b =3D Math::BigInt->new("0x1111111111111111111111111111111");
>
> Calculating with them is also fine:
> $a->badd($b); # $a =3D $a + $b
>
> Now I would like to extract certain bits out of this huge number:
>
> Example Bits 16 bis 12 should result in =A00b00001 =3D=3D 0x1 =3D=3D 1
> =A0 =A0 =A0 =A0 =A0 =A0 Bits 17 bis 12 should result in 0b100001 =3D=3D 0=
x21 =3D=3D 33
>
> So far I see two ways of doing this conversion.
>
> However I'm not really appealed by either solution.
>
> Do you know anything faster / better or even another CPAN module?
>
Math::GMP will allow you to access individual bits. I would expect it
to be siginificantly faster than Math::BigInt, though I haven't done
any benchmarking.
use warnings;
use Math::GMP;
$x =3D Math::GMP->new('12344' x 7);
# print the 10 least siginificant bits:
print Math::GMP::gmp_tstbit($x, $_) for reverse(0..9);
print "\n";
Cheers,
Rob
------------------------------
Date: Tue, 29 Jul 2008 12:08:32 -0700 (PDT)
From: petr999@gmail.com
Subject: FCGI::Request
Message-Id: <a88ca555-c2f5-4a9f-b907-d8cc7f0513eb@59g2000hsb.googlegroups.com>
Hello,
I found that CGI.pm works incorrectly with FCGI::ProcManager.
I don;t use the CGI::Fast->new but use the FCGI::Request->Accept()
Shall i be able to get my POST variables with, say, FCGI::Request
object? by far its code is in C linked by XS...
------------------------------
Date: Tue, 29 Jul 2008 15:32:09 -0700 (PDT)
From: "comp.lang.c++" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: How come? RE matches, but does not set $^R
Message-Id: <9fa18b23-88b3-438f-ae2e-76074881d89a@h17g2000prg.googlegroups.com>
On Jul 26, 11:42 am, Hartmut Camphausen <Jus...@somewhere.de> wrote:
> Hi all,
>
> Assume the following REs:
>
> # this should match B, followed by e.g. '=cc', and set $^R to 'got B':
> /(B(?:=c*))(?{'got B'})/
>
> # so should this, but match '=c*' only once, if any, and set $^R:
> /(B(?:=c*)?)(?{'got B'})/
>
> Both expressions match as expected (and set $1), BUT: the second one
> does n o t set $^R as it should do.
>
> However, if I say
>
> /(?>(B(?:=c+)?)(?{...})/
>
> i.e. force Perl to eat up anything it matches, $^R is correctly set.
>
> How come?
>
I believe $^R only contains the last successful
match so, as a minimal example:
print "\$^R=$^R" if "xx" =~ /(x)x?/'
$^R=
<speculation>
The regex matches greedily and picks up the
second 'x' but then backtracks to try the
"0 times match" of the ? quantifier. That
doesn't match so $^R is undefined at that
point. Therefore $^R is tracking success/
failure internally which can be somewhat
counter-inintuitive since $1 still gets
set.
</speculation>
--
Ch<arles DeRykus
------------------------------
Date: Tue, 29 Jul 2008 16:26:24 -0700 (PDT)
From: "comp.lang.c++" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: How come? RE matches, but does not set $^R
Message-Id: <517fec11-8455-4df3-8bd3-ff281d605dd0@r15g2000prh.googlegroups.com>
On Jul 29, 3:32 pm, "comp.lang.c++" <c...@blv-sam-01.ca.boeing.com>
wrote:
> On Jul 26, 11:42 am, Hartmut Camphausen <Jus...@somewhere.de> wrote:
>
>
>
> > Hi all,
>
> > Assume the following REs:
>
> > # this should match B, followed by e.g. '=cc', and set $^R to 'got B':
> > /(B(?:=c*))(?{'got B'})/
>
> > # so should this, but match '=c*' only once, if any, and set $^R:
> > /(B(?:=c*)?)(?{'got B'})/
>
> > Both expressions match as expected (and set $1), BUT: the second one
> > does n o t set $^R as it should do.
>
> > However, if I say
>
> > /(?>(B(?:=c+)?)(?{...})/
>
> > i.e. force Perl to eat up anything it matches, $^R is correctly set.
>
> > How come?
>
> I believe $^R only contains the last successful
> match so, as a minimal example:
>
> print "\$^R=$^R" if "xx" =~ /(x)x?/'
> $^R=
>
> <speculation>
> The regex matches greedily and picks up the
> second 'x' but then backtracks to try the
> "0 times match" of the ? quantifier. That
> doesn't match so $^R is undefined at that
> point. Therefore $^R is tracking success/
> failure internally which can be somewhat
> counter-inintuitive since $1 still gets
> set.
> </speculation>
Probably not. Since the ? quantifier is
greedy and picks up the next "x" there should
be no backtracking at all.
So, the $^R result does look flaky.
--
Charles DeRykus
> --
> Ch<arles DeRykus
------------------------------
Date: Tue, 29 Jul 2008 14:11:47 -0700 (PDT)
From: O <owinsloe@gmail.com>
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <3c434b5e-8ded-4601-9114-c9b2ba77fb10@p31g2000prf.googlegroups.com>
On Jul 29, 2:35 pm, "lofenee" <lofe...@gmail.com> wrote:
> I want to check whether a cdrom node under /dev actually exists.
Win32::AdminMisc
GetDrives([$Type])
This will return an array of drive roots. If no parameters are passed
then the list will be all drives (cdroms, floppy, fixed, net, etc.).
If you specify $Type the list will only contain drive roots that are
of the specified type.
The types are:
DRIVE_FIXED
DRIVE_REMOVABLE
DRIVE_REMOTE
DRIVE_CDROM
DRIVE_RAMDISK
Example:
@Drives = Win32::AdminMisc::GetDrives();
@CDROMs = Win32::AdminMisc::GetDrives( DRIVE_CDROM );
------------------------------
Date: Tue, 29 Jul 2008 23:16:40 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <8763qopf0n.fsf@zeekat.nl>
"lofenee" <lofenee@gmail.com> writes:
> I want to check whether a cdrom node under /dev actually exists.
Well, the *node* exists if "-e $path_to_node" returns true. Do you
also care if there is an actual drive there or if there's a readable
drive in the disc?
I'm assuming linux behaviour, here.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: 29 Jul 2008 22:45:07 GMT
From: jt@toerring.de (Jens Thoms Toerring)
Subject: Re: Is there any module to get the cdrom infomation?
Message-Id: <6f9krjFagcsfU2@mid.uni-berlin.de>
O <owinsloe@gmail.com> wrote:
> On Jul 29, 2:35 pm, "lofenee" <lofe...@gmail.com> wrote:
> > I want to check whether a cdrom node under /dev actually exists.
> Win32::AdminMisc
> GetDrives([$Type])
Do you guys on Windows nowadays also have a /dev directory with
device files?
Just curious, Jens
--
\ Jens Thoms Toerring ___ jt@toerring.de
\__________________________ http://toerring.de
------------------------------
Date: Mon, 28 Jul 2008 12:43:59 -0400
From: smallpond <smallpond@juno.com>
Subject: Re: Parallel search in Perl and other languages
Message-Id: <5d0ef$488df75b$12170@news.teranews.com>
Peter J. Holzer wrote:
> I seem to be completely unable to find the right keywords to feed into
> google, but I vaguely remember that it was mentioned in this group, so
> I'm asking here in the hope that somebody has better memory than me:
>
> Some guy has programmed a relatively simple task (I'm almost but not
> quite sure it was a search in a file) using multiple processes/threads
> in several languages to show that even for such tasks multiprocessing
> gives you better performance. Other people contributed equivalent
> programs in other languages, so he now has a nice collection of one or
> two dozen implementations of the same task in different languages. Last
> time I looked, the Perl implementation was the fastest.
>
> Does anyone remember this, and if so, did you bychance bookmark the
> site?
>
> hp
>
Hard to imagine perl winning for execution speed on any task.
The benchmarks game site has a couple of multi-thread tests where
perl does much worse than most other languages. tcl seems to be
the only consistently slower common language.
http://shootout.alioth.debian.org/gp4/index.php
Those results aren't totally optimized. perl results are not
using pp, while common lisp results are all using compiled code
for example. But that would be typical of how actual apps are used.
--S
** Posted from http://www.teranews.com **
------------------------------
Date: Tue, 29 Jul 2008 22:54:29 -0400
From: nospam <no@spam.com>
Subject: Question about variable scope
Message-Id: <nOudnbE5M6F4ShLVnZ2dnUVZ_t_inZ2d@comcast.com>
In the code snippet below, why can't I access the $nntp variable, unless I
instantiate it within the ListGroups() subroutine?
-Thanks
#!/usr/bin/perl -w
#This nntp instance cannot be used in ListGroups()
#sub below:
# $nntp = Net::NNTP->new($newshost);
# $nntp->authinfo($username,$password);
.
.
.
sub ListGroups()
{
#Need to instantiate $nntp here for this to work:
$nntp = Net::NNTP->new($newshost);
$nntp->authinfo($username,$password);
my $groups = $nntp->list() or die "Cannot get group list";
print join("\n", keys %$groups), "\n";
$nntp->quit();
return(0);
}
------------------------------
Date: Tue, 29 Jul 2008 22:46:12 +0300
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: what is the expression mean?
Message-Id: <4l84m5xct4.ln2@carpet.zombinet>
Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
> On 2008-07-28 19:06, Eric Pozharski <whynot@pozharski.name> wrote:
>> B<keys> intentionally mangles its output (C<perldoc -f keys> has
>> more). (Hmm,.. documentation says that order would be different
>> between different runs of the same code since 5.8.1. As of 5.8.8
>> it's not. Debian specific quirks? Again?)
> No, not debian specific. The algorithm was changed again some time
> after 5.8.1. Now order changes only if the distribution is detected to
> be particularly poor. Apparently the documentation wasn't updated.
Documentation drift isn't good. It's very very bad (no smile).
> hp (who asked the same question not too long ago)
Is it a FAQ already?
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Tue, 29 Jul 2008 23:03:47 -0500
From: Nathan <user@serverrb.net>
Subject: Re: what is the expression mean?
Message-Id: <SJRjk.34301$ZE5.32381@nlpi061.nbdc.sbc.com>
Eric Pozharski wrote:
> Nathan <user@serverrb.net> wrote:
>
>> The aptly named function "keys" returns a list of the keys of the
>> hash. In this case it would be the list of strings
>> ("nil","Jan","Feb",....). The function "sort" sorts a list and takes
> *SKIP*
>
> No, no, no! Look at that shit! There's no order at all!!!
>
> 21:55:16 46 [0:0]$ perl -wle '
>> %x = qw(0 1 2 3 4 5 6 7 8 9 10 11);
>> print join q( - ), keys %x'
> 8 - 6 - 4 - 0 - 10 - 2
Well I didn't mean to imply that that list came out in that specific
order, which I hope was implied by the ensuing discussion of using the
sort function. Also, what newsreader are you using? The B<> and C<> tags
really look confusing!
-Nathan
------------------------------
Date: Tue, 29 Jul 2008 22:22:13 -0400
From: nospam <no@spam.com>
Subject: Re: Which NNTP module to use?
Message-Id: <Z7ednQCgxp3ITRLVnZ2dnUVZ_qjinZ2d@comcast.com>
On Mon, 28 Jul 2008 11:26:56 -0500, Greg Bacon wrote:
> In article <u8udndILceijoBDVnZ2dnUVZ_uLinZ2d@comcast.com>,
> nospam <no@spam.com> wrote:
>
> : Is there a defacto standard for NNTP perl modules? Some time ago I
> : used News::NNTPClient, and I've just installed News::NNTP. Is there a
> : preferred NNTP module I should be using?
>
> You didn't mention the standard Net::NNTP module. Is it missing
> some feature that you need?
>
> Greg
I wasn't aware an NNTP module came with the Net:: modules. Thanks, that
should do nicely.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1754
***************************************
