[10361] in Perl-Users-Digest
Perl-Users Digest, Issue: 3954 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 12 14:07:31 1998
Date: Mon, 12 Oct 98 11:00:28 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 12 Oct 1998 Volume: 8 Number: 3954
Today's topics:
Re: .htaccess Problem (Larry Rosler)
Re: A Faster Way?? (Abigail)
Alpha and MacPerl do not play well together (Richard S. Holmes)
Re: anyone got a rtf->html converter in perl? <jdporter@min.net>
Re: Are there any "perl.newbie" group or forum? <merlyn@stonehenge.com>
Re: Character to hex conversion (Andre L.)
CPAN LWP / gopher questions tomas@accessnow.REMOVETHESEWORDS.com
Differentiating between STDOUT and STDERR vwstranathan@mailexcite.com
Re: Finite state machine, ZModem (Jonas Bofjall)
Finite state machines for perl - was Re: Finite state m <duff@duffduff.com>
Re: How do I use die? (Joergen W. Lang)
Re: How to do a nslookup ! <jdporter@min.net>
Re: How to Load and Use Library Modules in Win32 <rootbeer@teleport.com>
Re: I'm looking for someone who wants to write a comple dragnovich@my-dejanews.com
Re: I'm looking for someone who wants to write a comple dragnovich@my-dejanews.com
Re: Keeping a running list of the top n values retrieve (Abigail)
Re: Name from IP (Larry Rosler)
Re: Need help with time function (Tad McClellan)
Re: NETWORK & GRAPHIC CARD INFO (Bill Middleton)
Pb with CreateObject OLE function in a cgi script nicolaslecart@my-dejanews.com
Re: Perl advice <jdporter@min.net>
Re: Perl freezes when using special characters in HTML (Ruud Limbeck)
Re: Perl freezes when using special characters in HTML (Mark-Jason Dominus)
Re: Perl Robots jrrl@lycos.com
Re: Perlscript 3.16 and strict <msergeant@ndirect.co.uk_NOSPAM>
Re: Reading binary data? (Brand Hilton)
Re: references to package subroutines and SIG <mb@cup.hp.com>
Re: references to package subroutines and SIG (Matt Knecht)
Re: references to package subroutines and SIG <mb@cup.hp.com>
Re: reg-exp: change < to < but keep <I> - look ahead (Abigail)
Re: Search word for certain characters? (Mike Stok)
Re: Solution found! (Walter Tice USG)
Re: sorting hack <jdporter@min.net>
Re: sorting hack (Larry Rosler)
unidirectional pipe into interactive program (passwd) <mtk@egmont-kol.dk>
What's with c.l.p.moderated? <msergeant@ndirect.co.uk_NOSPAM>
Re: What's with c.l.p.moderated? (Mark-Jason Dominus)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 12 Oct 1998 08:12:39 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: .htaccess Problem
Message-Id: <MPG.108bbc43b502f7ee9898b2@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <ylyaqmck7y.fsf@windlord.stanford.edu> on 12 Oct 1998 00:28:33
-0700, Russ Allbery <rra@stanford.edu> says...
> brian d foy <comdog@computerdog.com> writes:
> > temp files are a lot of work since you have to clean up after them even
> > if your program exits pre-maturely.
>
> Not if you delete them right after you create them. Of course, that
> doesn't work if you're going to later be renaming them, only if you just
> need temporary data storage for stuff you don't want to spool in memory.
It also doesn't work on Windows/DOS systems, which require files to be
closed before they are unlinked. This is a common portability bug.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 12 Oct 1998 17:47:17 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: A Faster Way??
Message-Id: <6vtfb5$lhm$1@client3.news.psi.net>
Raydance (ranson@rlaj.com) wrote on MDCCCLXVIII September MCMXCIII in
<URL:news:36215210.3801@rlaj.com>:
++ Greetings perl gurus,
++
++ Just wondering if there is a 'faster' way for perl to do the following:
++
++ # there are 12 categories
++
++ foreach $key (sort keys %category) {
++
++ opendir (MYDIR, "$base_dir$key") || &open_error("$base_dir$key");
++ @allfiles = grep -T, map "$base_dir$key/$_", readdir MYDIR;
++ closedir MYDIR;
++ }
Yes. Since @allfiles will only contain files from the last iteration,
you can speed up your program as follows:
foreach $key (reverse sort keys %category) {
opendir (MYDIR, "$base_dir$key") || &open_error("$base_dir$key");
@allfiles = grep -T, map "$base_dir$key/$_", readdir MYDIR;
closedir MYDIR;
last;
}
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: 12 Oct 1998 12:15:00 -0400
From: rsholmes@rodan.syr.edu (Richard S. Holmes)
Subject: Alpha and MacPerl do not play well together
Message-Id: <xzcbtnhrc3f.fsf@rodan.syr.edu>
With some older versions of Alpha and MacPerl I had no problems
editing a script in Alpha and sending it to MacPerl to run. But no
longer -- now I get
# Illegal character \012 (carriage return).
File 'Untitled'; Line 2
# (Maybe you didn't strip carriage returns after a network transfer?)
The script was *not* from a network transfer -- I just opened a new
document in Alpha, typed
print "Hello world\n";
and tried to run it using the "Run the buffer" command on the camel
menu.
This is using Alpha 7.1 and MacPerl 5.2.0r4 on a PowerMac G3 running
Mac OS 8.1. Any ideas? Any FAQs I should have read? Thanks.
--
- Rich Holmes
Syracuse, NY / We have more important things to do...
Newport News, VA Censure and move on! Sign the petition at
rsholmes@earthling.net <http://www.moveon.org>
------------------------------
Date: Mon, 12 Oct 1998 12:13:21 -0400
From: John Porter <jdporter@min.net>
Subject: Re: anyone got a rtf->html converter in perl?
Message-Id: <36222AA1.C948034F@min.net>
Bart Lateur wrote:
>
> John Porter wrote:
>
> >"Abandon all hope," as they say.
> >RTF is a hellaciously nasty format.
> >Just as "nothing can parse Perl like perl",
> >nothing can parse RTF like MS Word. Use it.
>
> Even MS Word can't do it. I have had practical experience with RTF being
> generated from Word, read into Word again, and the reult was screwed up.
Very common, since the format changes with each version of the
program.
> Then again, it's MS. Nothing like that should surprise you, if it comes
> from *them*.
Well, no, of course not.
But hey, if you're gonna use a stupid format like rtf, you may
as well use the crapware that works best with it.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Mon, 12 Oct 1998 17:21:16 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Are there any "perl.newbie" group or forum?
Message-Id: <8cemsditmf.fsf@gadget.cscaper.com>
>>>>> "Casper" == Casper Kvan Clausen <ckc@dmi.dk> writes:
Casper> A Perl book for non-programmers, which takes its audience seriously.
Casper> This would seem to fit the Llama book. [Disclaimer: I did not
Casper> learn Perl via the Llama book, so this is based on hearsay].
No. The Llama is not designed for non-programmers. I specifically
presume at least an understanding of basic concepts (variable, array,
subroutine, algorithms). Otherwise, the book would have been about
twice as long (I've written programming for non-programmers before...
and it gets more wordy :).
Having said that, I've heard of a number of people that have
successfully used the llama to learn Perl as their first programming
language. I can only presume that they were naturally talented or
perhaps a programmer in a previous lifetime or something. :-)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Mon, 12 Oct 1998 13:33:31 -0500
From: alecler@cam.org (Andre L.)
Subject: Re: Character to hex conversion
Message-Id: <alecler-1210981333310001@dialup-511.hip.cam.org>
In article <3621E4D2.DCA808EE@david-bradshaw.com>, David Bradshaw
<david@david-bradshaw.com> wrote:
> Hi There,
> Can someone please inform me of how i can convert a Character ie "a"
> within a string ie "Today" to give it its hexadecimal character code.
print unpack "H*", 'Today';
# 546f646179
print join ' ', map { unpack "H*", $_ } split //, 'Today';
# 54 6f 64 61 79
HTH,
Andre
------------------------------
Date: Mon, 12 Oct 1998 17:20:59 GMT
From: tomas@accessnow.REMOVETHESEWORDS.com
Subject: CPAN LWP / gopher questions
Message-Id: <36223988.4055613@news.rainier.net>
Howdy,
I am using LWP on a linux box. I can negotiate HTTPD sites, and have
had no problem with GET or POST.
However, I am now trying to connect and get info from gopher sites. I
get an error 500, Cannot connect, from any site I try. These sites
are fine, from a client on another box. I am trying to figure out
what could possibly cause me not to be able to connect.
I am using the latest libwww. The only component I did NOT install
was the ftp.
I looked into gopher.pm and the code runs up to the first socket call,
that is where it is erroring out and saying it cannot connect. Port
is always 70.
Please reply in the newsgroup, if possible.
thanks,
tomas
------------------------------
Date: Mon, 12 Oct 1998 17:03:44 GMT
From: vwstranathan@mailexcite.com
Subject: Differentiating between STDOUT and STDERR
Message-Id: <6vtcpg$k0i$1@nnrp1.dejanews.com>
This might take a while to explain....
I have a socket application that executes commands, and sends the resulting
text back to the client. What I would like to do is trap messages from STDOUT
on the command, and send those back to the client in the form:
print CLIENT "stdout: $result";
and trap STDERR messages and send those back as:
print CLIENT "stderr: $result";
I've tried using formats, you name it, but to no avail.
Is there any way to do this? I have STDOUT and STDERR going back to the same
CLIENT connection, but can't seem to find a way to let the client know which
was lines came from STDOUT and which came from STDERR.
I appreciate any help!
Thanks!
Will Stranathan
wstranathan@kltymail.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Oct 1998 16:02:28 GMT
From: m9418@abc.se (Jonas Bofjall)
Subject: Re: Finite state machine, ZModem
Message-Id: <6vt96k$gau$1@oden.abc.se>
Mark-Jason Dominus (mjd@op.net) wrote:
> See <URL:http://x8.dejanews.com/getdoc.xp?AN=342619256>.
Thanks a lot! The link that is in that article was great!
// Jonas <job@abc.se> [2:201/262.37]
------------------------------
Date: Mon, 12 Oct 1998 17:07:06 +0100
From: "Gary Mc Closkey" <duff@duffduff.com>
Subject: Finite state machines for perl - was Re: Finite state machine, ZModem
Message-Id: <6vt9es$pv7$1@ezekiel.eunet.ie>
Have a look at http://www.imatix.com.for the (free) Libero tool . It allows
you to build FSM's for various languages including perl, c, awk, vb and a
variety of shell scripting languages. There's a gui-interface for Windows -
though that still generates cross platform code, and doesn't generate gui
code :(
Can't say how marvellous the code is - I used it a few times and found it
helpful, but it took a while to get into the swing of FSM again.
HTH
Gary
--
Imatix also produce a very nice web server, xitami, that's free and handles
low to moderate loads. I currently run it in the background on my win95
machine as a document server.
--
gmc_duff@indigo.ie. Remove underscore_duff to mail me.
NOTICE TO BULK E-MAILERS: Pursuant to US Code, Title 47, Chapter 5,
Subchapter
II, 227, and all unsolicited commercial e-mail sent to this address is
subject
to a download and archival fee in the amount of $500 US.
Mark-Jason Dominus wrote in message <6vt3vs$cfk$1@monet.op.net>...
>In article <6vsrj4$b4c$2@oden.abc.se>, Jonas Bofjall <m9418@abc.se> wrote:
>>This is something I definitively would use goto's for in C. Now I really
>>would like to write nice code, I suppose since Perl is so versatile there
is
>>a nice readable way to write this code.
>
>
>See <URL:http://x8.dejanews.com/getdoc.xp?AN=342619256>.
------------------------------
Date: Mon, 12 Oct 1998 18:09:14 +0100
From: jwl@_munged_worldmusic.de (Joergen W. Lang)
Subject: Re: How do I use die?
Message-Id: <1dgssia.119nhbt1b4ej22N@host007-210.seicom.net>
Mark-Jason Dominus <mjd@op.net> wrote:
> In article <1dgsfrc.ib31v49dmwxqN@host040-210.seicom.net>,
> Joergen W. Lang <jwl@_munged_worldmusic.de> wrote:
> >Mark-Jason Dominus <mjd@op.net> wrote:
> >> $ERR = '/tmp/program.err'; # ***
> >> When the program is ready for distribution, I comment out the `***'
> >> line, and all the diagnostic stuff diasappears from the program.
> >
> >
> >Huh ? What does (***) do ?
>
> It shows people in the newsgroup which line I am talking about when I
> say to comment out a certain line.
>
> >Just grepped through the docs/camel and could not find any solution.
> >What kind of subtle magic do you apply there ?
>
> The magic is actually in the # symbol the precedes the ***.
>
> :-)
Oooomph. Oh, well.... excuse my complete misinterpretation.
Back to work for me. ;-)
Thanks for the clarification.
Joergen
--
To reply by email please remove _munged_ from address Thanks !
-------------------------------------------------------------------
"Everything is possible - even sometimes the impossible"
HOELDERLIN EXPRESS - "Touch the void"
------------------------------
Date: Mon, 12 Oct 1998 13:39:05 -0400
From: John Porter <jdporter@min.net>
Subject: Re: How to do a nslookup !
Message-Id: <36223EB9.59E196BA@min.net>
Patrick wrote:
>
> I have the following problem. I want to make a nslookup to check if
> there is an entry for some ip adresses. I already searched for some
> scripts but i haven't found one.
> I also downloaded a DNS Resolver but i wan't able to do a lookup.
perldoc -f gethostbyname
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Mon, 12 Oct 1998 15:32:02 GMT
From: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: How to Load and Use Library Modules in Win32
Message-Id: <Pine.GSO.4.02A.9810120830110.1979-100000@user2.teleport.com>
On Sat, 10 Oct 1998, Onramp Houston wrote:
> This is a simple one, but I can't seem to find a good ref as to how to
> load and use even the standard libs on Win95 Perl.
In what way are the docs and FAQs which come with Perl inadequate for you?
If you somehow have Perl without docs and FAQs, complain to whoever gave
it to you, then get the real thing from CPAN. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 12 Oct 1998 14:45:25 GMT
From: dragnovich@my-dejanews.com
Subject: Re: I'm looking for someone who wants to write a complete perl-script (for free)
Message-Id: <6vt4m5$6tv$1@nnrp1.dejanews.com>
I know a land where all perl users, all each other perl users in his proyects,
with nothing in mind that help.... but in that moment I wake up from my dream!
Folk !! I think that MANY of this PERL forum can do the job, Even I and in
just 3 hours. But the objetive of this forum is to help other with their perl
problems in their perl programs (did you note THEIR word???)
I think, if we do the job for you YOU WILL NEVER LEARN !!!
so men! get your perl tutoria, call for a pizza and 3 o 5 coca colas, and
start reading one of the many perl tutorials in the net, buy a book or read
the perl docs form www.perl.org....
Bye bye! belive me thats the only way!
In article <6vr6gu$ff7$1@earth.superlink.net>,
dblack@saturn.superlink.net (David A. Black) wrote:
> bdispa@bigfoot.com (PsIoNnEkE) writes:
>
> >Hi !
>
> >I'm looking for one (or a few) persons who want to write a complete
> >perl-script for my new web-project. The project ain't the one you know
> >from everybody, no, it's very professional.
>
> >What I need:
> >I need 2 or 3 scripts that use the same resources. It's all for the
> >same purpose: voting.
>
> [snip]
>
> >More information and more details are available at my e-mail adres
> >(bdispa@bigfoot.com)... (Dutch / English)
>
> >Do you want to help me ? Mail me ASAP. The deadline is January 1st.
>
> >Tnx...
>
> You know, I really thought the quality of this sort of post would go
> up in the wake of Patrick Timmins's masterful parody. Apparently
> everyone's a comedian....
>
> David Black
> dblack@pilot.njin.net
>
--
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 14:46:17 GMT
From: dragnovich@my-dejanews.com
Subject: Re: I'm looking for someone who wants to write a complete perl-script (for free)
Message-Id: <6vt4nr$753$1@nnrp1.dejanews.com>
I know a land where all perl users, all each other perl users in his proyects,
with nothing in mind that help.... but in that moment I wake up from my dream!
Folk !! I think that MANY of this PERL forum can do the job, Even I and in
just 3 hours. But the objetive of this forum is to help other with their perl
problems in their perl programs (did you note THEIR word???)
I think, if we do the job for you YOU WILL NEVER LEARN !!!
so men! get your perl tutoria, call for a pizza and 3 o 5 coca colas, and
start reading one of the many perl tutorials in the net, buy a book or read
the perl docs form www.perl.org....
Bye bye! belive me thats the only way! (that's the way I learn) =-)
In article <6vr6gu$ff7$1@earth.superlink.net>,
dblack@saturn.superlink.net (David A. Black) wrote:
> bdispa@bigfoot.com (PsIoNnEkE) writes:
>
> >Hi !
>
> >I'm looking for one (or a few) persons who want to write a complete
> >perl-script for my new web-project. The project ain't the one you know
> >from everybody, no, it's very professional.
>
> >What I need:
> >I need 2 or 3 scripts that use the same resources. It's all for the
> >same purpose: voting.
>
> [snip]
>
> >More information and more details are available at my e-mail adres
> >(bdispa@bigfoot.com)... (Dutch / English)
>
> >Do you want to help me ? Mail me ASAP. The deadline is January 1st.
>
> >Tnx...
>
> You know, I really thought the quality of this sort of post would go
> up in the wake of Patrick Timmins's masterful parody. Apparently
> everyone's a comedian....
>
> David Black
> dblack@pilot.njin.net
>
--
------------------------
Juan Carlos Lopez
QDesigns President & CEO
http://www.qdesigns.com
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 12 Oct 1998 17:16:55 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Keeping a running list of the top n values retrieved
Message-Id: <6vtdi7$lan$1@client3.news.psi.net>
Sam Holden (sholden@pgrad.cs.usyd.edu.au) wrote on MDCCCLXVIII September
MCMXCIII in <URL:news:slrn722o3l.ail.sholden@pgrad.cs.usyd.edu.au>:
++ On 7 Oct 1998 16:11:20 GMT, Abigail <abigail@fnx.com> wrote:
++ >Sam Holden (sholden@pgrad.cs.usyd.edu.au) wrote on MDCCCLXIII September
++ >MCMXCIII in <URL:news:slrn71lel6.mjt.sholden@pgrad.cs.usyd.edu.au>:
++ >++ On 6 Oct 1998 16:42:20 GMT, Abigail <abigail@fnx.com> wrote:
++ >++ >
++ >++ >If we have n values, and want to get the top m, sorting takes O (n log n
++ >++
++ >++ And looses on space in a big way for n >> m.
++ >
++ >How's that? All methods use O (n) memory.
++
++ All the methods use O(m) memory... storing everything and sorting at the end
++ uses O(n).
What is it? Does it take O (m) or O (n)? And if it takes O (m), where
are you going to put your input (which clearly takes O (n))?
++ >++ >Using a sorted array of size m, and splice each new element in, takes O
++ >++
++ >++ Which is basically what the above does the sort is O(n log (m+1)) the
++ >++ assignment is O(n m) so we have O(n m) all up.
++ >
++ >You've lost me here. What do you mean?
++
++ I couldn't understand what I wrote either... anyway here is what I meant (I
++ really need a perl script to translate what I mean to what a type)...
++
++ The sorted array is at most m+1 in length. There are n valeus that we are
++ going to insert into this array.
++
++ So we have n inserts which each take O(m log m) which gives O(nm log m) - I
++ made a thinko in the above and thus got it _very_ wrong.
But an insert doesn't take O (m log m), it takes O (m). And you need to
do that O (n) times, for a total time of O (n m).
++ After each sort we assign the sorted array to the old array - there are m+1
++ elements and we do this n times so that gives O(nm).
++
++ So all up we have O(nm log m) - which is not what I said...
++
++
++ >
++ >++ >Using a heap gives a running time of O (n log m).
++ >++ >
++ >++ >If m is small compared to n, the heap clearly wins.
++ >++
++ >++ The smaller m gets the closer O(n m) gets to being as good as O(n log m)...
++ >++ Since a smaller m has a bigger impact on (n m) than (n log m)
++ >++
++ >++ If n is 1000000 and m is 16 then we have
++ >++ n*m = 16000000
++ >++ n*log m = 4000000
++ >++ So it's only 4 times slower. With m = 1024 n*m is over 100 times slower.
++ >
++ >Rubbish. You can't ignore the constant.
++
++ I mentioned this in the next line I thought...
++
++ There shouldn't be that large a constant for an array traversal followed
++ by a moving O(m) elements up one in the array, although I could be wrong. I c
++ do it with O(m) swaps, and a heap is really just O(log m) swaps so the consta
++ should be the same.
"Should". Blah. "Should" is not "is". If you have programmed it out in
MIX, yes, then you can compare absolute running time ratios. But with Perl
doing so much behind the scenes, that's not something I want to bet on.
++
++ >
++ >++ Though log m is better than m especially since a heap has little overhead
++ >++
++ >++
++ >++ I agree the heap is probably the best solution, though displaying the
++ >++ top m elements in decreasing order takes O(m) with the sorted array and
++ >++ O(m log m) with the heap (though once sorted it can stay sorted until the
++ >++ next insertion). Unless someone knows a way of getting at the elements in
++ >++ in sored order in less than O(m log m)?
++ >
++ >You can't do that. If you can, you can sort in time less than O (n log n),
++ >as building a heap can be done in linear time.
++
++ I knew that and yet again worded my question wrong... Getting sorted output f
++ a heap takes O(n log n) and thus displaying the top scores would also take th
++ long (whereas a sorted list would take O(n)). However, there might be some
++ property that the heap will have since it has been constructed in a restricte
++ fashion - I doubt it very much though.
If you knew what I said, then why do you still question it?
Abigail
--
perl -MLWP::UserAgent -MHTML::TreeBuilder -MHTML::FormatText -wle'print +(HTML::FormatText -> new -> format (HTML::TreeBuilder -> new -> parse (LWP::UserAgent -> new -> request (HTTP::Request -> new ("GET", "http://work.ucsd.edu:5141/cgi-bin/http_webster?isindex=perl")) -> content)) =~ /(.*\))[-\s]+Addition/s) [0]'
------------------------------
Date: Mon, 12 Oct 1998 08:01:54 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Name from IP
Message-Id: <MPG.108bb9c192ffc3f19898b1@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <lahfxanf4v.fsf@erh.ericsson.se> on 12 Oct 1998 14:22:56
+0200, Michal Rutka <erhmiru@erh.ericsson.se> says...
...
> Or
> my $hostname = (gethostbyaddr(inet_aton("123.123.123.123"),AF_INET))[0];
>
> unless you like a lot of typing.
Or
my $hostname = gethostbyaddr(inet_aton("123.123.123.123"),AF_INET);
if you like a bit less typing.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 12 Oct 1998 10:30:39 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: Need help with time function
Message-Id: <va7tv6.vu3.ln@flash.net>
r j huntington (wolph@merlin.albany.net) wrote:
: Hi, I've just been given an assignment and I'm really lost as to
: how to do this. I've done a little perl programming but this has
: me baffled. Any help is gratefully appreciated.
: I need to produce a script that records the user's IP address, the
: query string, and the time in a log file. I have the first two, but
: the third, recording the time, I'm find trickier.
^^^^
Perl's time() function may come in handy here ;-)
: The user comes in via a remote link on the web. OK so far. The problem
: is that the line in the log representing the user must be removed from
: the log after so many hours, i.e., the user is granted temporary access.
: I'm totally confused as to how to record the time and then remove the
: ones over a certain age. Thanks in advance for any help. -rh-
I'd store the number of seconds since the epoch that I got
back from time().
Then to see if it has "expired" (UNTESTED):
print "expired\n" if $time < time() - (24 * 60 * 60); # 24 hours
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: 12 Oct 1998 16:01:06 GMT
From: aawimi@ITS.mobil.telenor.no (Bill Middleton)
Subject: Re: NETWORK & GRAPHIC CARD INFO
Message-Id: <6vt942$e5t@info.telenor.no>
In article <comdog-ya02408000R1110981957180001@news.panix.com>,
brian d foy <comdog@computerdog.com> wrote:
>
>i think many is understated. from my mail headers it seemed to be the
>set of anyone who has ever posted to this group. some people may balk
>at his stupidity and utter crassness, but i was kinda wondering how he
>got all the addresses - alphabetized even. he's certainly not a pro
>spammer or he would have used Bcc:.
I think he might have found and used the CPAN authors list. I haven't
posted anything useful here since 1992, (even then questionable)
and I got a copy too.
Bill
------------------------------
Date: Mon, 12 Oct 1998 15:28:37 GMT
From: nicolaslecart@my-dejanews.com
Subject: Pb with CreateObject OLE function in a cgi script
Message-Id: <6vt776$asp$1@nnrp1.dejanews.com>
Hello,
i'm working with Netscape Communicator 4.03 , and i use the NES3.5.1
web server.
i've got a problem in the following script (when i execute it via my browser)
use OLE;
print "Content-type: text/html\n\n";
$excel=CreateObject OLE 'Excel.Application.8' or warn "Couldn't create new
instance of Excel App!!";
print "excel: ";
print $excel;
$excel->Workbooks->Open( 'c:/perl/test.xls' ) or warn "Couldn't open file";
print "<BR>";
print "AUTEUR " ;
print $excel->Workbooks(1)->Author;
print <BR>;
print "TITRE " ;
print $excel->Workbooks(1)->Title;
print <BR>;
print "SUJET " ;
print $excel->Workbooks(1)->Subject;
$excel->Workbooks->Close() or warn "impossible fermer";
$excel->Quit();
the problem is that the CreateObject function returns nothing (when it returns
an OLE hash code, witch is the adress of the created object, in a dos window
executing "perl script.pl").
Strange trouble !?
Has anyone ever heard of that ?
Thank you for your help ;-)))
Regards,
Nicolas LECART
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 12:39:14 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Perl advice
Message-Id: <362230B2.60845376@min.net>
Jonathan Stowe wrote:
>
> while(<DATA>)
> {
> chomp;
> @details = split /\|/ ;
>
> push @{$groups{shift @details}} , [@details];
> }
>
> for (keys %groups)
> {
> print $_,":\n";
> for ( @{$groups{$_}} )
> {
> print join ",",@{$_},"\n";
> }
> }
> __END__
I like using records with named fields:
while(<DATA>) {
chomp;
my( $group, $ip, $netmask, $host, @other_fields ) = split /\|/ ;
# add new record to hash of hosts:
$hosts{ $host } = {
group => $group,
ip => $ip,
netmask => $netmask,
host => $host,
other_fields => \@other_fields,
};
# also add the new record to the hash of groups:
push @{ $groups{ $group }}, $hosts{ $host };
}
# print info as per acl_dfstab:
for my $group_name ( keys %groups ) {
print join ';', map $_->{host}, @{$groups{$group_name}};
print "\n";
}
# print specific field for each host, say $other_fields[0]:
for my $host_name ( keys %hosts ) {
print "$hosts{$host_name}{other_fields}[0]\n";
}
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Mon, 12 Oct 1998 15:13:28 GMT
From: ruud.limbeck@tip.nl (Ruud Limbeck)
Subject: Re: Perl freezes when using special characters in HTML
Message-Id: <36221ae6.521455@news.NL.net>
On 12 Oct 1998 10:37:04 -0400, mjd@op.net (Mark-Jason Dominus) wrote:
>Because your program has a bug.
Here is the program:
$size=$ENV{'CONTENT_LENGTH'};
read (STDIN, $form_info, $size);
system ('pro98.exe 111.bbx');
print "Content-type: text/plain", "\n\n";
open(wrk, "111.wrk");
while (read(wrk,$html,80)){
print $html;
}
close(wrk);
system ('del 111.wrk')
exit (0);
I can not imagine there is something wrong with it because it is
working fine untill...... it encounters a "%"-sign while reading
111.wrk
>
>> and are there any other characters I must not use?
>
>Does your program have any other bugs?
>
Please tell me if you see something I must change.
>
>It's a little difficult to imagine that Perl could become the most
>popular text-processing language on the internet if it could only read
>files with no % sign.
Agreed, but then still I'm in trouble.
------------------------------
Date: 12 Oct 1998 10:37:04 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Perl freezes when using special characters in HTML
Message-Id: <6vt46g$cgr$1@monet.op.net>
In article <3621f4e1.14959434@news.NL.net>,
Ruud Limbeck <ruud.limbeck@tip.nl> wrote:
>So, why does Perl stop working when encountering a %-sign,
Because your program has a bug.
> and are there any other characters I must not use?
Does your program have any other bugs?
It's a little difficult to imagine that Perl could become the most
popular text-processing language on the internet if it could only read
files with no % sign.
------------------------------
Date: Mon, 12 Oct 1998 16:06:01 GMT
From: jrrl@lycos.com
Subject: Re: Perl Robots
Message-Id: <6vt9da$egh$1@nnrp1.dejanews.com>
In article <6vj448$khi$1@nnrp1.dejanews.com>,
srenner@lycosmail.com wrote:
> Python would be better. sr
Actually, my notion of doing it in Perl had nothing to do with the usual
religious nonsense. It had to do with a feeling that there are a bejillion
amateur programmers out there using Perl who might enjoy the game. For
whatever reasons (and no I am not going to speculate), I don't think Python
has the same level of following. Could be wrong... who knows?
-John.
John R. R. Leavitt | Senior Technology Strategist | Lycos, Inc.
412 688 8870 160 | jrrl@lycos.com | http://www.steampunk.com/jrrl
You are sickened by the weakness of a heart that's filled with fear
And if the world won't understand you, you can make it dissapear
Cause there's a dark secret you carry with you
--
John R. R. Leavitt | Senior Technology Strategist | Lycos, Inc
412 208 1033 | jrrl@lycos
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Mon, 12 Oct 1998 16:15:41 +0100
From: Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM>
Subject: Re: Perlscript 3.16 and strict
Message-Id: <36221D1D.FF771265@ndirect.co.uk_NOSPAM>
MafCassandra@my-dejanews.com wrote:
[snip]
> However, after upgrading to 3.16 I find it impossible to use strict anymore.
> strict still complains about $Session being used directly
> strict gives no errors or warnings about $main::Session
> but code with use strict fails to access data from $main::Session.
>
> If I comment out 'use strict' then both $main::Session and Session can be
> used with impunity.
>
> Removing use strict from all scripts seems to be asking for trouble
> down-the-line, so I'd appreciate any alternatives.
> Has anybody else had similar upgrade problems?
First - 316 is not the same as ActivePerl (which is builds 500 upwards).
Second - why not upgrade to ActivePerl? It supports many more modules
and is much better documented that PerlScript for build 316.
To "use strict;" with build 316, I've not tested it, but you might want
to try:
use strict;
use vars qw/ $Session $Response $Request $Application $Server
$ObjectContext $ScriptingNamespace /;
HTH.
--
<Matt/>
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: 12 Oct 1998 15:25:30 GMT
From: bhilton@tsg.adc.com (Brand Hilton)
Subject: Re: Reading binary data?
Message-Id: <6vt71a$7p212@mercury.adc.com>
In article <6vsra4$b4c$1@oden.abc.se>, Jonas Bofjall <m9418@abc.se> wrote:
>How do I make struct's in Perl? I have the format of a binary data file
>which I want to process, preferrably cross-platform so Perl knows whether it
>is running on a platform with least significant byte first or last and can
>swap MSB/LSB to suit multibyte structures.
>
> // Jonas <job@abc.se> [2:201/262.37]
You need to read the documentation for pack and unpack in perlfunc.
The long answer is, you can't easily make something analogous to C
"structs" in Perl. That is, you can't have a hash and tell it, "This
particular field is 3 bits wide." Perl hashes are analogous to C
structs, so you can use them to organize your data, but when it comes
to reading or writing binary formatted data, you'll need to use pack
and unpack to handle the bit widths of the individual fields.
--
_____
|/// | Brand Hilton bhilton@adc.com
| ADC| ADC Telecommunications, ATM Transport Division
|_____| Richardson, Texas
------------------------------
Date: Mon, 12 Oct 1998 10:14:06 -0700
From: Marc Bernstein <mb@cup.hp.com>
To: Jonathan Feinberg <jdf@pobox.com>
Subject: Re: references to package subroutines and SIG
Message-Id: <362238DE.2ABEEBE1@cup.hp.com>
Jonathan Feinberg wrote:
> The following message is a courtesy copy of an article
> that has been posted to comp.lang.perl.modules,comp.lang.perl.misc as well.
>
> Marc Bernstein <mb@cup.hp.com> writes:
>
> > $SIG{USR1} = \$psomepkg->SomeSubr;
>
> $SIG{WHATEVER} = sub { $obj->method(); };
>
> --
> Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
> http://pobox.com/~jdf
Thanks, but this didn't seem to work:
...
$SIG{USR2} = sub { $psomepkg->SomeSubr(); };
...
# ./myprog&
...
<good output>
...
# kill -17 %1
[1] + User signal 2 ./myprog&
<process terminated>
# /app/perl5 -v
This is perl, version 5.004_04 built for PA-RISC1.1
------------------------------
Date: Mon, 12 Oct 1998 17:45:13 GMT
From: hex@voicenet.com (Matt Knecht)
Subject: Re: references to package subroutines and SIG
Message-Id: <JerU1.8661$wV1.4143196@news2.voicenet.com>
Marc Bernstein <mb@cup.hp.com> wrote:
>...
> $SIG{USR2} = sub { $psomepkg->SomeSubr(); };
>...
># ./myprog&
>...
><good output>
>...
># kill -17 %1
>[1] + User signal 2 ./myprog&
>
><process terminated>
As a general rule of thumb, do as little as possible in signal handlers.
You have no idea what state Perl is going to be in when a signal is
caught. You have no idea if your method is going to be calling more
memory. Better to use something like:
$SIGUSR2_FLAG = 0; # Global
$SIG{USR2} = sub { $SIGUSR2_FLAG = 1 };
for (;;) {
$psomepkg->SomeSubr() if $SIGUSR2_FLAG;
# stuff
}
Make sure you reset the flag at some point, too.
--
Matt Knecht - <hex@voicenet.com>
------------------------------
Date: Mon, 12 Oct 1998 10:57:19 -0700
From: Marc Bernstein <mb@cup.hp.com>
To: Marc Bernstein <mb@cup.hp.com>
Subject: Re: references to package subroutines and SIG
Message-Id: <362242FE.E8BA1522@cup.hp.com>
My appologies! Jonathan's suggestion DOES work. My changes per his suggestions
did not at once show up in my executable. Sorry for the confusion and thanks
again for the help!!!!!
Marc Bernstein wrote:
> Jonathan Feinberg wrote:
>
> > The following message is a courtesy copy of an article
> > that has been posted to comp.lang.perl.modules,comp.lang.perl.misc as well.
> >
> > Marc Bernstein <mb@cup.hp.com> writes:
> >
> > > $SIG{USR1} = \$psomepkg->SomeSubr;
> >
> > $SIG{WHATEVER} = sub { $obj->method(); };
> >
> > --
> > Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
> > http://pobox.com/~jdf
>
> Thanks, but this didn't seem to work:
>
> ...
> $SIG{USR2} = sub { $psomepkg->SomeSubr(); };
> ...
> # ./myprog&
> ...
> <good output>
> ...
> # kill -17 %1
> [1] + User signal 2 ./myprog&
>
> <process terminated>
>
> # /app/perl5 -v
>
> This is perl, version 5.004_04 built for PA-RISC1.1
------------------------------
Date: 12 Oct 1998 17:21:41 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: reg-exp: change < to < but keep <I> - look ahead?
Message-Id: <6vtdr5$lan$2@client3.news.psi.net>
Alex Farber (alex@kawo2.rwth-aachen.de) wrote on MDCCCLXVI September
MCMXCIII in <URL:news:361F5FFC.2DA31B07@kawo2.rwth-aachen.de>:
++ Abigail wrote:
++ > Alex Farber (alex@kawo2.rwth-aachen.de) wrote on MDCCCLXV September
++
++ > ++ But how do you still allow people using <I>, </I>,
++ > ++ <A HREF=""> and </A> ? I guess it is probably done
++ > ++ somehow with (!=...)
++ >
++ > No, because there are way too many cases you would like to consider.
++ > use HTML::Parser;
++
++ Hi,
++
++ thanks for the advice. I unfortunately made a typo: (?!...).
++ Isn't it possible with a look ahead reg. exp.? I wonder how
++ ?! and ?= are usually used.
No, it's not possible with look ahead. As I said, there are way too
many cases you would like to consider.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: 12 Oct 1998 14:47:14 GMT
From: mike@mike.stok.co.uk (Mike Stok)
Subject: Re: Search word for certain characters?
Message-Id: <6vt4pi$cht@news-central.tiac.net>
In article <36220C3D.E5FBD277@mindspring.com>,
Brian Enderle <benderle@mindspring.com> wrote:
>Is there a way to search a given word for characters other than letters
>and numbers? I wish to have a check for screen names and passwords that
>will make sure there are no spaces and no characters othere than letters
>and numbers. I have tried to split the word and then do a foreach loop
>on each character to check its ACSII value but am having no luck. (might
>not have the split command correct:
> @checkName = split(//, $input{'Screen Name'}); )
You could say something like this in an ASCII world
unless ($input{'Screen Name'} =~ /^[a-zA-Z0-9]+$/) {
....
}
if there is a chance that there's a newline at the end of the Screen Name
then you might want to look up \z in the perlre documentation.
Perl has a special character class for word characters (alphas + numerics
+ _) so you can use a test like
unless ($string =~ /^[^\W_]+$/) {
... a mistake
}
which takes locales into account.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: 12 Oct 1998 16:52:18 GMT
From: tice@hunch.zk3.dec.com (Walter Tice USG)
Subject: Re: Solution found!
Message-Id: <6vtc42$fll@zk2nws.zko.dec.com>
In article <3615422B.FAC0A27@bbnplanet.com> Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> writes:
>Eric Von Zee wrote:
>> sub 12gauge_shotgun {
>> $planet =~ s/neighbor//;
>> } #end sub 12gauge_shotgun
>No, too violent. I'm a kind-hearted soul who just wants some sleep.
>Perl is going to help with this solution though :) A pilot with perl, a
>bit of sophisticated military tech from work and a radio to blast Celine
>Dion singing that damned Titanic song. I may start wretching but it
>should get the message across. If not, there is always the monster tesla
>coil that will have the mechanics scratching their heads. *mwaahaahaa*
>God I love working with engineers.
>e.
>Would I live my life over again?
>Make the same unforgivable mistakes?
>Yes, given half a chance. Yes -R. Carver-
Amazing, but true, perl cannot solve this problem. Since you work at BBNPlanet,
you probably live someplace like East Boston, East Arlington, Somerville, etc.
since everyone knows that Boston is THE stolen car capital of NA, it's not *one*
car, everynight one of several cars is stolen from your street, and then returned!
The answer is to move to a nice exclusive area like Belmont, Lexington, or
Lincoln.
W
#2: I'd like to report a breakdown. Number two will need to be replaced.
Yes. This is number two.
"Hammer Into Anvil" The Prisoner
--
#6: 'What do you want?
#2: 'Information.'
#6: 'Well, you won't get it!'
#2: 'By hook, or by crook, we will'
------------------------------
Date: Mon, 12 Oct 1998 13:13:56 -0400
From: John Porter <jdporter@min.net>
Subject: Re: sorting hack
Message-Id: <362238D4.396A2E89@min.net>
Xah wrote:
>
> I have an array of arrays of the form [[a1,a2,...],[b1,b2,...],...].
> I want to sort them first by their digits starting from the left,
> then by their length.
> How would one best implement this in Perl? I couldn't figure out a
> way to avoid a loop in the sort comparison subroutine.
> (I'm interested in speed here.) This will be a function.
> The argument is not known until runtime.
Is there some reason this
sort { pack("N*",@$a) cmp pack("N*",@$b) }
is not satisfactory?
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Mon, 12 Oct 1998 10:55:39 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: sorting hack
Message-Id: <MPG.108be27ad0f9741d989800@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and a copy mailed.]
In article <362238D4.396A2E89@min.net> on Mon, 12 Oct 1998 13:13:56 -
0400, John Porter <jdporter@min.net> says...
> Xah wrote:
> >
> > I have an array of arrays of the form [[a1,a2,...],[b1,b2,...],...].
> > I want to sort them first by their digits starting from the left,
> > then by their length.
> > How would one best implement this in Perl? I couldn't figure out a
> > way to avoid a loop in the sort comparison subroutine.
> > (I'm interested in speed here.) This will be a function.
> > The argument is not known until runtime.
>
> Is there some reason this
>
> sort { pack("N*",@$a) cmp pack("N*",@$b) }
>
> is not satisfactory?
That is fine -- more than twice as fast as the 'sprintf' approach I
posted yesterday, because the 'pack "N*"' is faster than 'sprintf', the
comparison strings are much shorter, and the overhead of the Schwartz
Transform is avoided.
A word of warning about all these solutions, though: They do not work if
the data may comprise both positive and negative integers. Why and what
to do about it are left as exercises for the reader. :-)
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Mon, 12 Oct 1998 19:14:55 +0200
From: "Mikkel K." <mtk@egmont-kol.dk>
Subject: unidirectional pipe into interactive program (passwd)
Message-Id: <3622390F.54F0D831@egmont-kol.dk>
Hi.
I need to pipe a string into an interactive program, and I thought that
something like this could do it:
open(MY_PIPE, "/usr/local/samba/smbpasswd&") or die "Dang!";
sleep 2;
print MY_PIPE $first_secret;
sleep 2;
print MY_PIPE $second_secret;
sleep 2;
print MY_PIPE $second_secret;
close MY_PIPE or die "Dang2!";
But this doesn't work, I get prompted for the old, new and retype
password, and then I get a "broken pipe". Why? Do I need to redirect
STDIN or something. It doesn't matter whether I use the "&" after the
command.
I found Expect.pm on CPAN, but partly I'm lazy, and partly I need some
portability for my program, and I (think that I ;-) don't need the
output from my passwd program.
Can my problem be solved without Expect.pm (which definitely seems to be
able to do it)?
Thanks a lot in advance, Mikkel
NB: People only in for this trick with "passwd" and not "smbpasswd" can
use the "chpasswd"-command that comes with the unix shadow-password
package, and there is some version of passwd that takes pipes with the
-P option. It will take pipes.
------------------------------
Date: Mon, 12 Oct 1998 17:06:44 +0100
From: Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM>
Subject: What's with c.l.p.moderated?
Message-Id: <36222914.F67C1050@ndirect.co.uk_NOSPAM>
When c.l.p.moderated started up it's intentions were great, and it's
charter seemed solid enough. But there's a thread there right now that
needs to be stopped IMHO.
So far it's been nothing that perl people need, or want, to read. It
would be better served in c.l.p.misc. This is the "RFC: Build and
play.." thread. Why on earth are the moderators letting this one
through? Perhaps it's the moderators posting replies to the list?
--
<Matt/>
| Fastnet Software Ltd | Perl in Active Server Pages |
| Perl Consultancy, Web Development | Database Design | XML |
| http://come.to/fastnet | Information Consolidation |
------------------------------
Date: 12 Oct 1998 13:52:13 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: What's with c.l.p.moderated?
Message-Id: <6vtfkd$ebm$1@monet.op.net>
In article <36222914.F67C1050@ndirect.co.uk_NOSPAM>,
Matt Sergeant <msergeant@ndirect.co.uk_NOSPAM> wrote:
>When c.l.p.moderated started up it's intentions were great, and it's
>charter seemed solid enough. But there's a thread there right now that
>needs to be stopped IMHO.
We were just starting to talk about stopping it, but it seems to have
stopped by itself. There were two articles on Tuesday, eight on
Wednesday, two on Thursday, none on Friday, and and one on Saturday.
> Perhaps it's the moderators posting replies to the list?
The entire thread had fourteen articles; of these, one was posted by a
moderator.
>Why on earth are the moderators letting this one through?
>So far it's been nothing that perl people need, or want, to read.
In the context of the rest of the post, including your accuation that
we were approving our own inappropriate articles, I have trouble
taking your questions at face value. But if you meant these as
serious questions, and not just as abusive rhetoric, send me mail,
I'll be happy to answer them.
I'd also like to suggest that in the future, people with concerns like
this should address them directly to the moderators at
mjd-clpm-moderators@plover.com.
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3954
**************************************
