[23215] in Perl-Users-Digest
Perl-Users Digest, Issue: 5436 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 4 03:10:33 2003
Date: Thu, 4 Sep 2003 00:10:12 -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 Thu, 4 Sep 2003 Volume: 10 Number: 5436
Today's topics:
Re: View NG with Net::NNTP (James Willmore)
Re: View NG with Net::NNTP (Mike)
Re: View NG with Net::NNTP <jwillmore@cyberia.com>
Re: View NG with Net::NNTP <jwillmore@cyberia.com>
Re: What ever happened to comp.lang.perl ? <islaw@adexec.com>
Re: What ever happened to comp.lang.perl ? (Tad McClellan)
Re: What ever happened to comp.lang.perl ? <tcurrey@no.no.no.i.said.no>
Re: Why qr// needs /o modifier, or bug in a documentati <pinyaj@rpi.edu>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 3 Sep 2003 15:06:17 -0700
From: jwillmore@cyberia.com (James Willmore)
Subject: Re: View NG with Net::NNTP
Message-Id: <e0160815.0309031406.2692dd45@posting.google.com>
merlyn@stonehenge.com (Randal L. Schwartz) wrote in message news:<e9ca193e6376da43d325b5930dccb391@news.teranews.com>...
> >>>>> "James" == James Willmore <jwillmore@cyberia.com> writes:
>
> James> I should follow my own advise :)
> James> The above code will cause an infinite loop - opps! The below code
> James> (tested and with comments) works :)
>
> And to keep from seeing the same messages twice, you can even combine
> it with News::Newsrc, as I did in my column article at:
>
> <http://www.stonehenge.com/merlyn/UnixReview/col22.html>
Thanks for the tip. I was using a variation of the overview_fmt,
xover, and a hash that, well, got very messy.
Thanks.
Jim
------------------------------
Date: 3 Sep 2003 17:34:26 -0700
From: csdude@hotmail.com (Mike)
Subject: Re: View NG with Net::NNTP
Message-Id: <46cdc619.0309031634.46dc3809@posting.google.com>
> I should follow my own advise :)
> The above code will cause an infinite loop - opps! The below code
> (tested and with comments) works :)
>
> #!/usr/bin/perl -w
>
> use strict;
> use Net::NNTP;
<snip>
> #set the nntpstat marker to the last message in the newsgroup
> $nntp->last;
> #while we can go to the next message ....
> while($nntp->next){
<snip>
Hey, all, thanks for the help. I really do appreciate it!
I had originally started my own program that was quite similar to
this, but the only information I was getting was the newsgroup name,
first, last, and number of articles. I couldn't get it to pull up the
article itself, which is why I thought I was doing something wrong.
But when I used your program above, Jim, I get the same thing. It's
like "$nntp->last" isn't returning anything. I tried setting a
variable to it, like "$lastmessage = $nntp->last" and according to
CPAN that's supposed to return the message ID, but it didn't return
anything at all.
Is there a syntax error here that I'm overlooking? Following this
program verbatim, the only results I got were:
comp.lang.perl.misc: 29851 articles (448306 to 478156)
num: 1
Nothing in the "while" statement at all. Thanks again, all,
Mike
------------------------------
Date: Thu, 04 Sep 2003 04:00:52 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: View NG with Net::NNTP
Message-Id: <20030904000048.5f4ee84e.jwillmore@cyberia.com>
On 3 Sep 2003 17:34:26 -0700
csdude@hotmail.com (Mike) wrote:
> > #!/usr/bin/perl -w
> >
> > use strict;
> > use Net::NNTP;
> <snip>
> > #set the nntpstat marker to the last message in the newsgroup
> > $nntp->last;
> > #while we can go to the next message ....
> > while($nntp->next){
> <snip>
<snip>
>
> But when I used your program above, Jim, I get the same thing. It's
> like "$nntp->last" isn't returning anything. I tried setting a
> variable to it, like "$lastmessage = $nntp->last" and according to
> CPAN that's supposed to return the message ID, but it didn't return
> anything at all.
>
> Is there a syntax error here that I'm overlooking? Following this
> program verbatim, the only results I got were:
>
> comp.lang.perl.misc: 29851 articles (448306 to 478156)
> num: 1
>
>
> Nothing in the "while" statement at all. Thanks again, all,
I'm at a loss. I tested against leafnode as the NNTP server and it
worked. According to the documentation, using the 'last' method sets
the marker to the last message.
In theory, if you were to uncomment that line, you may have better
results - depending upon what NNTP server you use it against. Or,
you could get the first message ID, use the 'nntpstat' method to set
the message marker for that message, then use next to iterate through
all the messages. It's just a guess.
I don't want to test against a "live" NNTP server until I feel
comfortable using Net::NNTP yet. I use a dialup connection and don't
wish to be on all night if something goes south. Sorry I don't have
a
better answer for you at this moment. If I come up with anything,
I'll post it -or- if someone else has run into this situation, maybe
they'll post a solution.
You should check out Randal's solution (posted in another post). That
may give you some more ideas. I haven't had a chance to read it fully
yet..
--
Jim
---
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
---
a real quote ...
Linus Torvalids: "They are somking crack ...."
(http://www.eweek.com/article2/0,3959,1227150,00.asp)
---
a fortune quote ...
Westheimer's Discovery: A couple of months in the laboratory can
frequently save a couple of hours in the library.
------------------------------
Date: Thu, 04 Sep 2003 04:29:30 GMT
From: James Willmore <jwillmore@cyberia.com>
Subject: Re: View NG with Net::NNTP
Message-Id: <20030904002926.3fe70070.jwillmore@cyberia.com>
On Thu, 04 Sep 2003 04:00:52 GMT
James Willmore <jwillmore@cyberia.com> wrote:
> In theory, if you were to uncomment that line, you may have better
comment out, not uncomment. :(
!@#? fingers - wish the fingers and the brain were in sync once in a
while :)
--
Jim
---
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
---
a real quote ...
Linus Torvalids: "They are somking crack ...."
(http://www.eweek.com/article2/0,3959,1227150,00.asp)
---
a fortune quote ...
Put no trust in cryptic comments.
------------------------------
Date: Wed, 3 Sep 2003 20:38:37 -0700
From: "Islaw" <islaw@adexec.com>
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <bj6c7t$f9266$1@ID-196529.news.uni-berlin.de>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnblb02o.30j.tadmc@magna.augustmail.com...
>
> Trent Curry, Islaw, krakle, MJ Owens, Cpt Fredo, Manny Wilco, Robin Givens
> and a cast of thousands wrote:
>
>
> > been around, yet they were expected to know all the rules. I know some
jsut
>
^^^^
>
^^^^
Oh for the love of Larry Wall, I believe this is the second time you've
tried to put my name among others it has nothing to do with. Get a life and
stop trying to cast miss-leading notions.
Translation: I have nothing to do with those other names on that set of
names you concocted.
I don't ever recall ever have any confrontation with any of you, so I don't
know why you continue to pursue anyone who makes a god forsaken typo. I
didn't think it would be such a chastise-worthy crime, sorry. I do hate
getting defense, but it seems you've left me little choice.
--
Islaw
------------------------------
Date: Wed, 3 Sep 2003 23:20:55 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <slrnbldfd7.54s.tadmc@magna.augustmail.com>
Trent Curry <tcurrey@no.no.no.i.said.no> wrote:
> "Helgi Briem" <f_baggins80@hotmail.com> wrote in message
> news:3f55d605.171777583@News.CIS.DFN.DE...
>> On Wed, 3 Sep 2003 00:47:04 -0500, tadmc@augustmail.com (Tad
>> McClellan) wrote:
>>
>> >
>> >Trent Curry, Islaw, krakle, MJ Owens, Cpt Fredo,
>> >Manny Wilco, Robin Givens and a cast of thousands wrote:
>> >
>> >> been around, yet they were expected to
>> > know all the rules. I know some jsut
>> > ^^^^
>
> So let me get this stright, you are assosiating me with another person or
^^^^^^^ ^
> persons becuase of a typographical error?
^^
Yes I am, but it was only a tertiary indication.
I was reasonably sure it was you before I inserted the typo in my post.
Date: Wed, 20 Nov 2002 19:44:50 GMT
Message-ID: <SCRC9.1760$%z1.116822241@newssvr21.news.prodigy.com>
From: "Islaw" <islaw@w98.sr>
You can't seriously believe a single typo =='s me to someone else?
History repeats itself?
>> This joker must be a glutton for punishment.
This was the primary indication:
# root of this thread
Date: Fri, 22 Aug 2003 08:51:30 -0700
Message-ID: <bi5e6n$btu$1@news.astound.net>
From what I heard a while back, comp.lang.perl simply changed
it's name to comp.lang.perl.misc.
What was the reason for this? Does anyone know?
echoing this one:
Date: Sun, 20 Oct 2002 18:49:43 GMT
Message-ID: <aVCs9.42$C34.6543554@newssvr14.news.prodigy.com>
As long as I've been around, I do find it courious as to why exactly
this groups name went from comp.lang.perl to comp.lang.perl.misc. I've
sarch the control-message archives and they basically say it was simply
moving.
The secondary indication was your proclivity for transposing
letters and other signs of carelessness in composition.
Those 2 heuristics where enough for me, even without the jsut.
>> Why does he keep coming back?
He misses that loving feeling?
>> What does he want?
Maybe he wants his boyfriend to start auto-emailing him again?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 3 Sep 2003 23:44:33 -0700
From: "Trent Curry" <tcurrey@no.no.no.i.said.no>
Subject: Re: What ever happened to comp.lang.perl ?
Message-Id: <bj6n8j$c3p$1@news.astound.net>
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnbldfd7.54s.tadmc@magna.augustmail.com...
> Trent Curry <tcurrey@no.no.no.i.said.no> wrote:
> > "Helgi Briem" <f_baggins80@hotmail.com> wrote in message
> > news:3f55d605.171777583@News.CIS.DFN.DE...
> >> On Wed, 3 Sep 2003 00:47:04 -0500, tadmc@augustmail.com (Tad
> >> McClellan) wrote:
> >>
> >> >
> >> >Trent Curry, Islaw, krakle, MJ Owens, Cpt Fredo,
> >> >Manny Wilco, Robin Givens and a cast of thousands wrote:
> >> >
> >> >> been around, yet they were expected to
> >> > know all the rules. I know some jsut
> >> > ^^^^
> >
> > So let me get this stright, you are assosiating me with another person
or
> ^^^^^^^ ^
> > persons becuase of a typographical error?
> ^^
>
> Yes I am, but it was only a tertiary indication.
>
> I was reasonably sure it was you before I inserted the typo in my post.
>
>
> Date: Wed, 20 Nov 2002 19:44:50 GMT
> Message-ID: <SCRC9.1760$%z1.116822241@newssvr21.news.prodigy.com>
> From: "Islaw" <islaw@w98.sr>
You are looking at the wrong person's headers. I never had prodigy, nor have
I ever had or used suc han email. I really don'y see what you are trying to
accomplish here.
> You can't seriously believe a single typo =='s me to someone else?
>
>
> History repeats itself?
?
> >> This joker must be a glutton for punishment.
>
>
> This was the primary indication:
>
> # root of this thread
> Date: Fri, 22 Aug 2003 08:51:30 -0700
> Message-ID: <bi5e6n$btu$1@news.astound.net>
>
> From what I heard a while back, comp.lang.perl simply changed
> it's name to comp.lang.perl.misc.
>
> What was the reason for this? Does anyone know?
>
> echoing this one:
>
> Date: Sun, 20 Oct 2002 18:49:43 GMT
> Message-ID: <aVCs9.42$C34.6543554@newssvr14.news.prodigy.com>
>
> As long as I've been around, I do find it courious as to why exactly
> this groups name went from comp.lang.perl to comp.lang.perl.misc. I've
> sarch the control-message archives and they basically say it was simply
> moving.
wtf? Do you even know what you are talking about? Those are two completely
different headers you posted.
The "From what I heard a while back", maybe that was one of the past threads
about it, who knows. The seconds header is dated almost a year ago, so it is
possible, though there have been other queries about that.
None of what you have presented supports your claim that I am someone who
you tried to (miss) label me as.
I honestly do not know what your problem is, but I am not your whale, Ahab.
It probably swam off long ago. I don't really care. I just don't find it
fair that, a known regular for that matter, would try to do this to someone
who was just trying to participate in a conversation.
> The secondary indication was your proclivity for transposing
> letters and other signs of carelessness in composition.
>
> Those 2 heuristics where enough for me, even without the jsut.
Rubbish. Complete rubbish. You are try again to miss label me with non
facts. You have thus far present no real proof of anything. This seems like
some kind of strange obsession of yours, and I want no part of it.
Please find someone else to screw with.
------------------------------
Date: Wed, 3 Sep 2003 22:22:47 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: sholden@cs.usyd.edu.au
Subject: Re: Why qr// needs /o modifier, or bug in a documentation.
Message-Id: <Pine.SGI.3.96.1030903222119.39639A-100000@vcmr-64.server.rpi.edu>
[posted & mailed]
On 3 Sep 2003, Sam Holden wrote:
> $needle = 'foo';
> $re = qr/$needle/;
> $reo = qr/$needle/o;
This is a bad example. These lines are only RUN once.
Compare:
sub make_qr {
my $pat = shift;
return qr/$pat/o;
}
print make_qr('foo'), "\n";
print make_qr('bar'), "\n";
It prints the foo regex both times.
--
Jeff Pinyan RPI Acacia Brother #734 2003 Rush Chairman
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 V10 Issue 5436
***************************************
