[13012] in Perl-Users-Digest
Perl-Users Digest, Issue: 422 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 8 18:06:34 1999
Date: Sun, 8 Aug 1999 15:05:09 -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 Sun, 8 Aug 1999 Volume: 9 Number: 422
Today's topics:
Re: Can I Pass Object refs as parameters to a new objec (Damian Conway)
Re: Getting Info (Malcolm Ray)
Re: Getting Info (Abigail)
Re: I guess this is a Misc question: Cgi-bin <newsgroup@bigwig.net>
Re: I guess this is a Misc question: Cgi-bin <newsgroup@bigwig.net>
Re: I guess this is a Misc question: Cgi-bin (David H. Adler)
Re: I guess this is a Misc question: Cgi-bin (David H. Adler)
Re: I guess this is a Misc question: Cgi-bin <newsgroup@bigwig.net>
Re: Is this an appropreate use of -i switch? (Abigail)
Re: Is this an appropreate use of -i switch? (Mike Bristow)
Re: just days away f7.8ez5.88ox <gazza.jones@virgin.net>
Re: Looking for Poll Script that... <ljp@209.204.251.8>
Re: Looking for Poll Script that <USENET@questionexchange.com>
Re: LWP <USENET@questionexchange.com>
Re: matching ONLY first match in dada stream... ("Bill Jones")
Net::Whois works under Win32? <horaceho@geocities.com>
Re: Nicer Way (Abigail)
Re: Nicer Way (Anno Siegel)
Re: Problem with standard IO::Socket::INET module <hughd@screwspam.com>
Re: Problem with standard IO::Socket::INET module (Abigail)
Re: regexp can be your friend (Meineliebe)
Re: regexp can be your friend (Abigail)
Re: sed vs. grep for string manipulation? (Donovan Rebbechi)
Re: sed vs. grep for string manipulation? (Larry Rosler)
Re: System call in Win NT, AS Build 518 <schmickl@magnet.at>
Re: Translation of some nice little Perl scripts to pro (Abigail)
Urgent - Using flock() nochax@my-deja.com
Re: What is webpluck??? <USENET@questionexchange.com>
Re: Where to find help other tha <USENET@questionexchange.com>
Re: Where to find help other than perldoc and books. (Abigail)
Re: Where to find help other than perldoc and books. (Larry Rosler)
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Aug 1999 19:48:39 GMT
From: damian@cs.monash.edu.au (Damian Conway)
Subject: Re: Can I Pass Object refs as parameters to a new object?
Message-Id: <7okmun$4rb$1@towncrier.cc.monash.edu.au>
Tom Phoenix <rootbeer@redcat.com> writes:
> BTW, you do know that you don't have to use objects in Perl to make a
> program efficient, don't you? Quite the opposite. Don't tell any
> object-fanatics,
Too late - we see everything!
*No-one* expects the Object Inquisition!
> but in general, if a program is (going to be) implemented in fewer
> than N lines of Perl code, it's a waste to make it use objects. No
> one knows the true value of N, but since Perl is so concise, you can
> make even a relatively large program more efficiently without
> objects than with.
Tom's right that there are plenty of small, one-off programs for which
OO Perl is overkill. The problem is that a non-trivial percentage of
those programs will be so useful that, in time, they will grow larger
and more complex and eventually exceed your local value of N.
I have a dozen or more non-OO Perl programs from my early days with
Perl that are now essential to my everyday work, but so baroque in
structure that I *sorely* wish I had built them around objects
right from the start.
Thus, if you expect a program to be (or become) generally useful,
and if you're more comfortable with OO design and development, and if
speed isn't an critical factor (OO Perl is almost always slower
than non-OO Perl), you should feel free to set your own value of N
as low as you like.
:-)
Damian
------------------------------
Date: 8 Aug 1999 19:54:57 GMT
From: M.Ray@ulcc.ac.uk (Malcolm Ray)
Subject: Re: Getting Info
Message-Id: <slrn7qro4h.loh.M.Ray@carlova.ulcc.ac.uk>
On 8 Aug 1999 14:57:58 -0400, Donovan Rebbechi <elflord@news.newsguy.com>
wrote:
>On 08 Aug 1999 15:07:40 GMT, Jimtaylor5 wrote:
>>Here's a question for you guys. Is there a way with perl to get the total kb of
>>files in a directory, and the space left? If so could give me an example or
>>direct me to where I can find the information. Thanks.
>
>If you're on UNIX, you could do this:
>
>my $diskuse=`du -s`;
>
>You could also recurse through the file system sizing the files, and
>add up the sizes,
>
>eg something like this
>( nb: pseudo code only. there are bugs: you need to include dotfiles,
>and you need to consider special files ( fifos, etc ) more carefully.
>
># untested code
>sub dir_size {
> my $file=shift;
> my $size=0;
> if ( -f $file ) { return (stat($file))[7]; }
> elsif ( -d $file )
> {
> foreach my $x ( <*> )
> {
> $size = $size + &dir_size($x);
> }
> return $size;
> }
> else return 0;
>}
># end untested code
Well, almost. This pseudocode will usually under-estimate the space used,
though sometimes it will drastically *over*-estimate.
It's hard to talk about this generally, because even on Unix there are
a number of different filesystems in use, and of course Perl runs on
many different platforms. But most, if not all, filesystems allocate
space in chunks rather bigger than a byte: create a file one byte long,
and chances are it'll *use* at least 512 bytes of your disk. Of course,
if you then write a further 510 bytes to the file, it'll still be using
only 512 bytes. Create a directory containing 100 files each one byte
long, then use 'du -s' in that directory, and you'll get the idea.
To confuse the picture further, many filesystems allow files to contain
'holes': unallocated regions. These count towards the file size
returned by stat($file)[7], but don't take up any disk space. Some
flavours of DBM file have such holes, for example.
One of the fields returned by stat will tell you how many blocks are
actually allocated to the file (see 'perldoc -f stat' for details).
--
Malcolm Ray University of London Computer Centre
------------------------------
Date: 8 Aug 1999 16:28:26 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Getting Info
Message-Id: <slrn7qrtjc.8pr.abigail@alexandra.delanet.com>
Malcolm Ray (M.Ray@ulcc.ac.uk) wrote on MMCLXVIII September MCMXCIII in
<URL:news:slrn7qro4h.loh.M.Ray@carlova.ulcc.ac.uk>:
""
"" Well, almost. This pseudocode will usually under-estimate the space used,
"" though sometimes it will drastically *over*-estimate.
""
"" It's hard to talk about this generally, because even on Unix there are
"" a number of different filesystems in use, and of course Perl runs on
"" many different platforms. But most, if not all, filesystems allocate
"" space in chunks rather bigger than a byte: create a file one byte long,
"" and chances are it'll *use* at least 512 bytes of your disk. Of course,
"" if you then write a further 510 bytes to the file, it'll still be using
"" only 512 bytes. Create a directory containing 100 files each one byte
"" long, then use 'du -s' in that directory, and you'll get the idea.
""
"" To confuse the picture further, many filesystems allow files to contain
"" 'holes': unallocated regions. These count towards the file size
"" returned by stat($file)[7], but don't take up any disk space. Some
"" flavours of DBM file have such holes, for example.
And then, there are links.
Abigail
--
perl -wlpe '}{$_=$.' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 8 Aug 1999 20:11:35 +0100
From: "Ben Quick" <newsgroup@bigwig.net>
Subject: Re: I guess this is a Misc question: Cgi-bin
Message-Id: <37adebe9.0@news2.cluster1.telinco.net>
I R A Darth Aggie wrote in message ...
>On Sat, 7 Aug 1999 23:34:13 +0100, Ben Quick <newsgroup@bigwig.net>, in
><37ad85a1.0@news2.cluster1.telinco.net> wrote:
>
>+ No, in a supermarket you'd ask one of the staff
>
>Yes, and the staff are there because?
>
>Hint: you help *pay* their salaries...I haven't seen any monies coming
>from you on my pay sheet...
Well, you should ask whoever pays you. It's not my problem what you get
paid. Sorry
>James
------------------------------
Date: Sun, 8 Aug 1999 20:15:55 +0100
From: "Ben Quick" <newsgroup@bigwig.net>
Subject: Re: I guess this is a Misc question: Cgi-bin
Message-Id: <37adebe9.1@news2.cluster1.telinco.net>
I R A Darth Aggie wrote in message ...
>On Sun, 8 Aug 1999 14:06:14 +0100, Ben Quick <newsgroup@bigwig.net>, in
><37adb699.0@news2.cluster1.telinco.net> wrote:
>
>+ Riiight. I've been killfiled. OH NO!!
>+ Why, was it because a truthful description of this group cannot be
handled?
>
>Why should any given person on this group be expected to know the answer
>to a unix file permissions question?
Because any scripts would have to be given permissioons, to be fair
>Perl doesn't just work under unix,
>you know.
Yes, I know
>You did know that, right?
See above
>I'll be blunt: you are a jackass.
OH NO. How can I continue living? I've been called a jackass
In case you hadn't noticed the abov line was sarcastic
>James -
>next time, go ask in the C newsgroups...they're as likely to know...
Which is all that needed saying. Not the pointless and downright patheicness
of most that replied thinking they were better than me
BQ
------------------------------
Date: 8 Aug 1999 19:51:58 GMT
From: dha@panix7.panix.com (David H. Adler)
Subject: Re: I guess this is a Misc question: Cgi-bin
Message-Id: <slrn7qrnuu.rai.dha@panix7.panix.com>
>Tom Phoenix wrote in message ...
>>On Fri, 6 Aug 1999, Ben Quick wrote:
>>
>>> Well I'm sorry for being off topic. But to be fair, everyone (if not
>>> most) here should know what the answer to my question is.
>>
>>By that logic, you could justify asking random strangers in a supermarket
>>if you wanted to learn where to go to get treatment for syphilis. Please,
>>ask only on-topic questions in newsgroups. Thank you.
In article <37ad85a1.0@news2.cluster1.telinco.net>, Ben Quick wrote:
[moved down below what he was replying to for clarity]
>No, in a supermarket you'd ask one of the staff and they'd point you
>in the right direction. I didn't know that my post wo uld be
>considered off topic until you lot gave me all this useless grief
A) What Tom was pointing out was that your behavior here was not
appropriate in this forum, much as it would be inappropriate to behave
as in his example.
B) I doubt that the staff in a supermarket has general knowledge of
where to get treatment for STDs. I certainly don't think such
treatment would be available *at* the supermarket. Again, this ties
in with this being the wrong place to ask your particular question.
C) Getting back to the question of "asking the staff" - we are not
staff. There *is* no staff on usenet (well, maybe the
newsadmins...). This is a common misperception which causes much
rancor on the part of those who feel as though they are being treated
like a help desk.
D) Handy hint: Put your replies *after* what you're replying to.
Makes it much easier to read.
best,
dha
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"There is a thin line between genius and insanity - I have erased that
line." - Oscar Levant
------------------------------
Date: 8 Aug 1999 20:19:17 GMT
From: dha@panix7.panix.com (David H. Adler)
Subject: Re: I guess this is a Misc question: Cgi-bin
Message-Id: <slrn7qrpi5.rai.dha@panix7.panix.com>
In article <37ab6d5f.0@news2.cluster1.telinco.net>, Ben Quick wrote:
>
>On the whole most of the posters in this group come across as regarding
>themselves as better than everybody else and therefore above everybody
Actually, although this charge is often leveled at this group, for
the most part this is not true. What *is* true is that they are quite
tired of people not following traditional usenet etiquette when
posting here. Usenet etiquette seems to be a dying art
unfortunately. Looking to other resources and hanging out on the
group to get a feel for it before posting are hallmarks of said
etiquette. Everyone used to follow those rules, but unfortunately,
with everybody and their dog getting on usenet, these behavioral
concepts that help usenet run smoothly get plowed under. (I think the
dogs are doing the better job... :-)
In particular, the FAQ posted towards the top of this group should
have indicated that your question was not appropriate here, and *why*
such impropriety is a bad idea. My guess here is that you didn't read
it. Reading the group's FAQ also used to be standard practice.
Although I don't pretend to speak for everyone, I believe that these
are the main reasons that some people get flamed when asking
inappropriate questions here.
Quite frankly, the attitude that many newer posters present -
i. e. that they shouldn't have to worry about being in an
inappropriate forum - is one that find disturbing simply because it
indicates a lack of regard for a system that is the way it is to make
things more useful for everyone. *shrug*
What is ironic is that, at the end of one of your responses to someone
in this thread, you quoted his signature, which directed you to the
location of information on being new to usenet, which would have told
you all I've said and more. :-/
>else. Well I'm sure I'm sorry for just starting out in perl and asking a
>question
And, had you actually asked a question that was appropriate for this
forum (and indicated that you had tried to find the answer yourself),
you probably would have gotten an answer easily.
If you wind up going to one of the cgi groups with this question, I
suggest you read their faqs first...
--
David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
"I didn't say I'd never slay another vampire. It's not like I have
fluffy bunny feelings about them. I'm just not going to get too
extra-curricular about it."
- Buffy
------------------------------
Date: Sun, 8 Aug 1999 22:02:36 +0100
From: "Ben Quick" <newsgroup@bigwig.net>
Subject: Re: I guess this is a Misc question: Cgi-bin
Message-Id: <37ae0697.0@news2.cluster1.telinco.net>
>>>> Well I'm sorry for being off topic. But to be fair, everyone (if not
>>>> most) here should know what the answer to my question is.
>>>
>>>By that logic, you could justify asking random strangers in a supermarket
>>>if you wanted to learn where to go to get treatment for syphilis. Please,
>>>ask only on-topic questions in newsgroups. Thank you.
>
>In article <37ad85a1.0@news2.cluster1.telinco.net>, Ben Quick wrote:
>
>[moved down below what he was replying to for clarity]
>
>>No, in a supermarket you'd ask one of the staff and they'd point you
>>in the right direction. I didn't know that my post wo uld be
>>considered off topic until you lot gave me all this useless grief
>
>A) What Tom was pointing out was that your behavior here was not
>appropriate in this forum, much as it would be inappropriate to behave
>as in his example.
In here, I didn't realise I was off-topic
In a supermarket, you'd be politely told where you could get what you were
looking for
>B) I doubt that the staff in a supermarket has general knowledge of
>where to get treatment for STDs. I certainly don't think such
>treatment would be available *at* the supermarket. Again, this ties
>in with this being the wrong place to ask your particular question.
See above
>C) Getting back to the question of "asking the staff" - we are not
>staff. There *is* no staff on usenet (well, maybe the
>newsadmins...). This is a common misperception which causes much
>rancor on the part of those who feel as though they are being treated
>like a help desk.
I realise usenet has no staff. I never said it did, to be fair.
>D) Handy hint: Put your replies *after* what you're replying to.
>Makes it much easier to read.
Yep
>best,
>
>dha
BQ
>--
>David H. Adler - <dha@panix.com> - http://www.panix.com/~dha/
>"There is a thin line between genius and insanity - I have erased that
>line." - Oscar Levant
------------------------------
Date: 8 Aug 1999 14:30:28 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Is this an appropreate use of -i switch?
Message-Id: <slrn7qrmm6.8pr.abigail@alexandra.delanet.com>
Tom Phoenix (rootbeer@redcat.com) wrote on MMCLXVIII September MCMXCIII
in <URL:news:Pine.GSO.4.10.9908081031170.19222-100000@user2.teleport.com>:
()
() Imagine seeing
() James Bond, agent 007, played by Sean Connery, wearing his Saville Row
() suit, and now you see he's ordering a Big Mac, two large fries, and a
() Happy Meal at McDonalds. Something doesn't seem quite right, now does it?
Indeed. 007 doesn't have kids, so what's he doing with a happy meal?
Abigail
--
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 08 Aug 1999 21:37:35 GMT
From: mike@fat.dotat.at (Mike Bristow)
Subject: Re: Is this an appropreate use of -i switch?
Message-Id: <slrn7qru4v.4sd.mike@lindt.fat.dotat.at>
On 8 Aug 1999 14:30:28 -0500, Abigail <abigail@delanet.com> wrote:
>Tom Phoenix (rootbeer@redcat.com) wrote on MMCLXVIII September MCMXCIII
>in <URL:news:Pine.GSO.4.10.9908081031170.19222-100000@user2.teleport.com>:
>()
>() Imagine seeing
>() James Bond, agent 007, played by Sean Connery, wearing his Saville Row
>() suit, and now you see he's ordering a Big Mac, two large fries, and a
>() Happy Meal at McDonalds. Something doesn't seem quite right, now does it?
>
>
>Indeed. 007 doesn't have kids, so what's he doing with a happy meal?
Actually, I rather suspect he does.
Of course, we're arguing about a fictional character, which seems
rather silly. And what was you Perl question, said Mike
hypocritically.
--
Mike Bristow, Geek-At-Large. GK/RT0038
one tequila - two tequila - three tequila - FLOOR !!!
------------------------------
Date: Sun, 08 Aug 1999 21:05:20 +0100
From: Gary Jones <gazza.jones@virgin.net>
Subject: Re: just days away f7.8ez5.88ox
Message-Id: <37ADE300.BFD524D@virgin.net>
Graeme Wall wrote:
>
> In message <5IIq3.4770$dE1.6107@newreader.ukcore.bt.net>
> "Michael Connell" <mconnell@lineone.net> wrote:
>
> > > This is no mere coincidence my friends. The Lord is Present.
> >
> > While he's here can he please tell us whether a ticket from London to
> > Carlisle route Direct is or isn't valid via the Settle & Carlisle?
> >
> >
> Usual request, how do you get coffee out of the keyboard :-)
Blow VERY hard.
--
Gazza
------------------------
* CAPITALISM MEANS WAR *
------------------------
------------------------------
Date: 08 Aug 1999 15:02:20 -0600
From: ljp <ljp@209.204.251.8>
Subject: Re: Looking for Poll Script that...
Message-Id: <d7wyrnoj.fsf@wind.localdomain>
try searching at altavista.com. I found abunch of polling cgi scripts....
>..something like that. www.pollit.com offers it, but I want my own
>script :)
--
- "Peace cannot be kept by force. It can only be achieved by
understanding."
- "Whoever undertakes to set himself up as judge in the
field of truth and knowledge is shipwrecked by the
laughter of the Gods." -A. Einstein
------------------------------
Date: 8 Aug 1999 20:31:18 GMT
From: QuestionExchange <USENET@questionexchange.com>
Subject: Re: Looking for Poll Script that
Message-Id: <239qx@questionexchange.com>
Try
http://theory.uwinnipeg.ca/scripts/CPAN/authors/id/M/MG/MGAMMON/WWW-Poll-0.01.readme
http://theory.uwinnipeg.ca/scripts/CPAN/authors/id/M/MG/MGAMMON/WWW-Poll-0.01.tar.gz
This answer is courtesy of QuestionExchange.com
For other answers and comments visit:
http://www.questionexchange.com/servlet1/showUsenetGuest?ans_id=2305&cus_id=USENET&qtn_id=1476
------------------------------
Date: 8 Aug 1999 20:30:48 GMT
From: QuestionExchange <USENET@questionexchange.com>
Subject: Re: LWP
Message-Id: <237qx@questionexchange.com>
The question is unclear.
What's the second library you're loioking for?
What do you mean by 'provide'? Do you look where to download libraries from or do you look for a free web host that will let you *use* perl CGI csripts on their site?
If you're just looking for the place to download LWP, you can get it from http://www.linpro.no/lwp/
If you need anything else perl-related, chances are you will find it at CPAN (Comprehensive Perl Archive Network) site http://www.cpan.org
There is CPAN search engine:
http://theory.uwinnipeg.ca/search/cpan-search.html
Have fun
This answer is courtesy of QuestionExchange.com
For other answers and comments visit:
http://www.questionexchange.com/servlet1/showUsenetGuest?ans_id=2304&cus_id=USENET&qtn_id=1473
------------------------------
Date: Sun, 08 Aug 1999 17:14:13 -0400
From: bill@fccj.org ("Bill Jones")
Subject: Re: matching ONLY first match in dada stream...
Message-Id: <199908082109.RAA03499@astro.fccj.cc.fl.us>
On Date: 8 Aug 1999 13:19:49 -0500 abigail@delanet.com (Abigail), wrote:
> Bill Jones (bill@fccj.org) wrote on MMCLXVIII September MCMXCIII in
> <URL:news:199908081434.KAA02389@astro.fccj.cc.fl.us>:
<Snip a bunch of stuff that should be tested more_>
>
> I do not believe you. Can you make a small program that shows this bug?
> (That is, matching everything, without the /g modifier).
>
<Snip pointless post part-deux>
>
> Doesn't work?, doesn't work? Perhaps you don't give it enough chocolate.
> What do you expect it to do, and what does it? "Doesn't work" is a
> pointless and useless statement, it's only purpose is to waste bandwidth.
"Shot thru the heart..." I have drawn the wrath of Abby :(
while (<DATA>) {
s{(Abby)} {<A HREF="/cgi-bin/imagined?yes=$1">$1</A>}i;
print;
}
__DATA__
And how are you today?
I am fine. :]
Abby believes I imagined this; maybe Abby is right.
Obviously, this will prove Abby is right...
Why, because I have stared at this too long...
Sorry for the wasted bandwidth (and the reply bandwidth);
-Sneex- :]
(Actually I have found that a trip to clean the pool, cut the grass,
and other around the house "honey do's" have shown be the error...)
------------------------------
Date: Sun, 08 Aug 1999 19:35:17 GMT
From: Horace Ho <horaceho@geocities.com>
Subject: Net::Whois works under Win32?
Message-Id: <37ADDBCE.2201BB1C@geocities.com>
Does anyone have the Net::Whois module working
under Win32 ActivePerl Build 518?
The following code:
use Net::Whois;
$domain_name = "news.com";
$domain_obj = Net::Whois::Domain->new($domain_name) or warn "nothing
about $domain_name: $!\n";
always return:
nothing about news.com: Bad file descriptor
Thanks
horace
------------------------------
Date: 8 Aug 1999 14:09:38 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Nicer Way
Message-Id: <slrn7qrlf3.8pr.abigail@alexandra.delanet.com>
Larry Rosler (lr@hpl.hp.com) wrote on MMCLXVIII September MCMXCIII in
<URL:news:MPG.12175e125d8155b9989e04@nntp.hpl.hp.com>:
!!
!! Abigail showed a 'nicer' way of writing the conversion loop:
!!
!! $chmod =~ tr/rwx-/4210/;
!! $chmod =~ s/(.)(.)(.)/$1 + $2 + $3/eg;
!!
!! Her way of reducing that two-liner to a one-liner was grotesque, though,
!! IMO. So that may be as 'nice' as it gets.
I tried another way to put it on one, hoping to make use of the fact
that substr returns an lvalue:
do {$chmod =~ y.rwx-.4210.; substr ($chmod, 0)} =~ s/(.)(.)(.)/$1 + $2 + $3/eg;
The above parses, and runs, but it doesn't do the substitution on $chmod.
Abigail
--
srand 123456;$-=rand$_--=>@[[$-,$_]=@[[$_,$-]for(reverse+1..(@[=split
//=>"IGrACVGQ\x02GJCWVhP\x02PL\x02jNMP"));print+(map{$_^q^"^}@[),"\n"
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 8 Aug 1999 21:43:02 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Nicer Way
Message-Id: <7oktl6$js8$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
[...]
>Ok, ok, Mr. Benchmark, I'm waiting for a full Benchmark report of all
>proposed solutions .... ;-)
Well, here it is.
Those solutions that use a translation table have been benchmarked
twice, once as presented, i.e. building the table on the fly, and
once with the table generation factored out. The latter ones are
marked by an a-suffix. This optimization has catapulted one of
Abigail's solutions from less-than-average performance to the winning
position. The close second is my own solution, which uses a
combination of pack and ord instead of a table.
The other solutions form a rather continuous spectrum ranging in time
consumption between about 70% to 100% of Scott's original proposition.
It may come as a small surprise, that Scott's original code, while
certainly not pretty, ranges second in this middle field, again after
table generation had been delegated to compile time. Oh, and then
there's Abigail's one-liner. I shall be silent about that.
Here's the complete table ordered by performance. Code and original
output follow below.
Abigail4a: 1 wallclock secs ( 1.18 usr + 0.00 sys = 1.18 CPU) 25%
Anno: 2 wallclock secs ( 1.37 usr + 0.00 sys = 1.37 CPU) 29%
Abigail3a: 4 wallclock secs ( 3.25 usr + 0.00 sys = 3.25 CPU) 69%
Scott_a: 4 wallclock secs ( 3.70 usr + 0.01 sys = 3.71 CPU) 78%
Abigail3: 4 wallclock secs ( 3.85 usr + 0.00 sys = 3.85 CPU) 81%
Abigail2: 5 wallclock secs ( 4.48 usr + 0.00 sys = 4.48 CPU) 95%
Larry: 5 wallclock secs ( 4.62 usr + 0.00 sys = 4.62 CPU) 87%
Abigail4: 5 wallclock secs ( 4.73 usr + 0.00 sys = 4.73 CPU) 100%
Scott: 5 wallclock secs ( 4.74 usr + 0.00 sys = 4.74 CPU) 100%
Abigail1: 17 wallclock secs (15.83 usr + 0.00 sys = 15.83 CPU) 334%
Anno
#!/usr/bin/perl -w
use strict;
use Benchmark;
timethese( 1 << ( shift || 0 ), {
'Scott' => "Scott('rwxr-xr-x')",
'Scott_a' => "Scott_a('rwxr-xr-x')",
'Larry' => "Larry('rwxr-xr-x')",
'Abigail1' => "Abigail1('rwxr-xr-x')",
'Abigail2' => "Abigail2('rwxr-xr-x')",
'Abigail3' => "Abigail3('rwxr-xr-x')",
'Abigail3a' => "Abigail3a('rwxr-xr-x')",
'Abigail4' => "Abigail4('rwxr-xr-x')",
'Abigail4a' => "Abigail4a('rwxr-xr-x')",
'Anno' => "Anno('rwxr-xr-x')",
});
#####################################################################
# This is the original proposition
sub Scott {
my $chmod = shift;
my %ch= (r=>4, w=>2, x=>1, '-' =>0);
# $chmod =~ s/\-/k/g;
$chmod =~
s/(.)(.)(.)(.)(.)(.)(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}.
$ch{$4}+$ch{$5}+$ch{$6 }.$ch{$7}+$ch{$8}+$ch{$9}/e;
$chmod;
}
# And here's the original solution without table generation
use vars '%ch';
BEGIN {
%ch= (r=>4, w=>2, x=>1, '-' =>0);
}
sub Scott_a {
my $chmod = shift;
$chmod =~
s/(.)(.)(.)(.)(.)(.)(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}.
$ch{$4}+$ch{$5}+$ch{$6 }.$ch{$7}+$ch{$8}+$ch{$9}/e;
$chmod;
}
# Larry's immediate improvement
sub Larry {
my $chmod = shift;
($_ = $chmod) =~ tr/rwx-/4210/;
$chmod = '';
$chmod .= $1 + $2 + $3 while /(.)(.)(.)/g;
$chmod;
}
# Abigail frots it all in one statement (no s/// at all here)
sub Abigail1 {
my $chmod = shift;
join "" => map {eval join "+" => split //}
grep {length} split /(...)/ => do {$chmod =~ y.rwx-.4210.; $chmod};
}
# This might as well have been called Larry2, but Larry attributes it
# to Abigail.
sub Abigail2 {
my $chmod = shift;
$chmod =~ tr/rwx-/4210/;
$chmod =~ s/(.)(.)(.)/$1 + $2 + $3/eg;
$chmod;
}
# Using pack and ord:
sub Anno {
my $chmod = shift;
$chmod =~ tr/rwx-/1110/;
$chmod =~ s/(...)/ord pack 'b3', $1/ge;
$chmod;
}
# Abigail using the original translation table
sub Abigail3 {
my $chmod = shift;
my %ch = (r=>4, w=>2, x=>1, '-'=>0);
$chmod =~ s/(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}/eg;
$chmod;
}
# The same, but the generation of the translation table factored out
sub Abigail3a {
my $chmod = shift;
$chmod =~ s/(.)(.)(.)/$ch{$1}+$ch{$2}+$ch{$3}/eg;
$chmod;
}
# This one doesn't need the /e modifier. Instead it builds a more
# comprehensive translation table.
sub Abigail4 {
my $chmod = shift;
my %chmod =
do {my $i; map {$_ => $i ++} qw /--- --x -w- -wx r-- r-x rw- rwx/};
$chmod =~ s/(...)/$chmod{$1}/g;
$chmod;
}
# Abigail4 suffers most from building the translation table each time.
# Here's a variant that builds it only once.
use vars '%chmod';
BEGIN {
%chmod = do {my $i; map {$_ => $i ++} qw /--- --x -w- -wx r-- r-x rw- rwx/};
}
sub Abigail4a {
my $chmod = shift;
$chmod =~ s/(...)/$chmod{$1}/g;
$chmod;
}
__END__
Abigail1: 17 wallclock secs (15.83 usr + 0.00 sys = 15.83 CPU)
Abigail2: 5 wallclock secs ( 4.48 usr + 0.00 sys = 4.48 CPU)
Abigail3: 4 wallclock secs ( 3.85 usr + 0.00 sys = 3.85 CPU)
Abigail3a: 4 wallclock secs ( 3.25 usr + 0.00 sys = 3.25 CPU)
Abigail4: 5 wallclock secs ( 4.73 usr + 0.00 sys = 4.73 CPU)
Abigail4a: 1 wallclock secs ( 1.18 usr + 0.00 sys = 1.18 CPU)
Anno: 2 wallclock secs ( 1.37 usr + 0.00 sys = 1.37 CPU)
Larry: 5 wallclock secs ( 4.62 usr + 0.00 sys = 4.62 CPU)
Scott: 5 wallclock secs ( 4.74 usr + 0.00 sys = 4.74 CPU)
Scott_a: 4 wallclock secs ( 3.70 usr + 0.01 sys = 3.71 CPU)
------------------------------
Date: Sun, 08 Aug 1999 19:39:06 GMT
From: "He whom the perl gods have cursed" <hughd@screwspam.com>
Subject: Re: Problem with standard IO::Socket::INET module
Message-Id: <37addcda.001@screwspam.com>
anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
> He whom the perl gods have cursed <hughd@screwspam.com> wrote in comp.lang.perl.misc:
>
>>Will someone please take pity on me and show me how to propitiate the perl gods?
>
> Trimming your lines to 72 chars or so would be a good start.
Typical perl geek response. I should have known from previous bitter experience that
I wouldn't get any help from this group.
BTW the only excessively long line in my post was the output from the perl compiler!
Go figure.
------------------------------
Date: 8 Aug 1999 16:37:03 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Problem with standard IO::Socket::INET module
Message-Id: <slrn7qru3h.8pr.abigail@alexandra.delanet.com>
He whom the perl gods have cursed (hughd@screwspam.com) wrote on
MMCLXVIII September MCMXCIII in <URL:news:37addcda.001@screwspam.com>:
__ anno4000@lublin.zrz.tu-berlin.de (Anno Siegel) wrote:
__
__ > He whom the perl gods have cursed <hughd@screwspam.com> wrote in comp.lang.perl.misc:
That's an 85 char line by Anno ....
__ >
__ >>Will someone please take pity on me and show me how to propitiate the perl gods?
12345678901234567890123456789012345678901234567890123456789012345678901234567890
1 2 3 4 5 6 7 8
That's more than 72 chars.
__ > Trimming your lines to 72 chars or so would be a good start.
__
__ Typical perl geek response. I should have known from previous bitter experience that
84 chars.
__ I wouldn't get any help from this group.
__
__ BTW the only excessively long line in my post was the output from the perl compiler!
Another 84 chars.
Your compiler outputs "Will someone please take pity on me and show me how
to propitiate the perl gods?" I think you are lying.
Abigail
--
Do you have a card that says you are entitled to receive help from this group?
No? Than you have no right to complain. If you do have a card, and still don't
receive help, complain the Usenet complains department in Chicago, IL. Do make
sure you include your Usenet preferred customer number in the mailed complaint.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 08 Aug 1999 21:14:17 GMT
From: meineliebe@aol.com (Meineliebe)
Subject: Re: regexp can be your friend
Message-Id: <19990808171417.24132.00009592@ng-fw1.aol.com>
<<From: Jerrad Pierce belg4mit@mit.edu
Date: Wed, 04 August 1999 07:21 PM EDT
IS it possible, with a single RE, to replace the first occurence of a substring
within a string IFF the substring occurs multiple times?>>
-- Reply --
Yes, as in the following example:
#! perl
use strict;
my $string = 'ablewasIereIsawelba';
my $second = 'Ionlyappearonce';
$string =~ s/^(.*)(I)(.*\2)/$1$3/o;
$second =~ s/^(.*)(I)(.*\2)/$1$3/o;
print "$string\n";
print "$second\n";
------------------------------
Date: 8 Aug 1999 16:42:06 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: regexp can be your friend
Message-Id: <slrn7qrud0.8pr.abigail@alexandra.delanet.com>
Meineliebe (meineliebe@aol.com) wrote on MMCLXVIII September MCMXCIII in
<URL:news:19990808171417.24132.00009592@ng-fw1.aol.com>:
@@ <<From: Jerrad Pierce belg4mit@mit.edu
@@ Date: Wed, 04 August 1999 07:21 PM EDT
@@
@@ IS it possible, with a single RE, to replace the first occurence of a substring
@@ within a string IFF the substring occurs multiple times?>>
@@
@@ -- Reply --
@@ Yes, as in the following example:
@@
@@ #! perl
@@ use strict;
@@ my $string = 'ablewasIereIsawelba';
@@ my $second = 'Ionlyappearonce';
@@ $string =~ s/^(.*)(I)(.*\2)/$1$3/o;
@@ $second =~ s/^(.*)(I)(.*\2)/$1$3/o;
@@ print "$string\n";
@@ print "$second\n";
Bzzzt. Thank you for playing. Here's a string on which it'll fail:
'ablewasIereIsaweIlba';
Your regex replaces the last-but-one occurence, not the first one.
Correct solutions have already been posted in this thread.
Abigail
--
perl -wlne '}print$.;{' file # Count the number of lines.
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: 8 Aug 1999 15:07:05 -0400
From: elflord@news.newsguy.com (Donovan Rebbechi)
Subject: Re: sed vs. grep for string manipulation?
Message-Id: <slrn7qrlao.2o8.elflord@panix3.panix.com>
On Sun, 08 Aug 1999 08:34:43 GMT, donturn@my-deja.com wrote:
>i'm running into this puzzler as i'm trying to replace the strings
>"card=", "cards=", or for that matter
>"cardinals=".
>
>this command works fine for grep:
>
> grep -e card*= lookfile.txt
You are confusing regexes with file globbing.
The above matches "car=", "card=", "cardd=", "carddd=" but *NOT*
"cards=". Read something aboutregexes. See my
webpage http://pegasus.rutgers.edu/~elflord/unix for a source.
>but this doesn't work in sed:
>
> sed -e 's/card*=/replacestring/' lookfile.txt>newfile.txt
See above. You really want "c/cards?=/replacestring".
Or you could do it in perl.
BTW, comp.unix.questions is really the right place to ask about
sed and grep.
--
Donovan
------------------------------
Date: Sun, 8 Aug 1999 14:12:41 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: sed vs. grep for string manipulation?
Message-Id: <MPG.1217929fe71289a989e07@nntp.hpl.hp.com>
In article <slrn7qrlao.2o8.elflord@panix3.panix.com> on 8 Aug 1999
15:07:05 -0400, Donovan Rebbechi <elflord@news.newsguy.com> says...
> On Sun, 08 Aug 1999 08:34:43 GMT, donturn@my-deja.com wrote:
> >i'm running into this puzzler as i'm trying to replace the strings
> >"card=", "cards=", or for that matter
> >"cardinals=".
> >
> >this command works fine for grep:
> >
> > grep -e card*= lookfile.txt
>
> You are confusing regexes with file globbing.
> The above matches "car=", "card=", "cardd=", "carddd=" but *NOT*
> "cards=". Read something aboutregexes. See my
> webpage http://pegasus.rutgers.edu/~elflord/unix for a source.
>
> >but this doesn't work in sed:
> >
> > sed -e 's/card*=/replacestring/' lookfile.txt>newfile.txt
>
> See above. You really want "c/cards?=/replacestring".
Don't you mean s/cards.*=/replacestring/ ?
> Or you could do it in perl.
>
> BTW, comp.unix.questions is really the right place to ask about
> sed and grep.
Why should that be? 'sed' and 'grep' are not Unix, no matter where they
may have been implemented already. They are text-processing tools that
have been ported to many platforms, and are even the subject of
international standardization.
Where *would* be the right place to ask about such programs (not that I
have a need to)? I would think (without looking) that
comp.unix.questions should deal with Unix OS questions, not with
questions about portable tools (aka commands, applications, whatever).
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Sun, 08 Aug 1999 23:56:31 +0200
From: Thomas Schmickl <schmickl@magnet.at>
Subject: Re: System call in Win NT, AS Build 518
Message-Id: <37ADFD0F.10F0D6AD@magnet.at>
Tamim Hofioni schrieb:
> Hello everyone,
>
> About a year ago I wrote a simple perl script on a windoze NT box using
> ActiveState's Build 502 that had the following line in it:
>
> system("write.exe $text_file");
>
> This would start up WordPad in Windoze and open the text file for the
> user to view. Recently, the perl interpreter was "upgraded" to
> Activestate's Build 518 for the better OLE stuff, but the system call
> doesn't work like it used to. Now, windoze NT starts WordPad but it
> doesn't display it on the screen -- I can see the process ID running,
> but the application isn't visible to the user. Is there a parameter to
> set here so that windoze runs it in the foreground? Perhaps qx should
> be used?
>
> Any comments? (other than don't use windows -- this is a work machine
> and they won't allow Linux!) Beuhler?
>
> -- Tamim
> -- Great quotes in history >>> Socrates: "I drank what?"
I had the same problem. It only appears with NT4.0 and when you
try to start a GUI-Application via the system command.
"system latex.exe myfile.tex" works perfectly, but
"system notepad.exe myfile.tex" never apears on screen.
I solved the problem by calling:
"system start notepad.exe myfile.tex".
Ciao, thomas.
------------------------------
Date: 8 Aug 1999 14:38:27 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Translation of some nice little Perl scripts to produce an executable program.
Message-Id: <slrn7qrn55.8pr.abigail@alexandra.delanet.com>
angela (anonymous@web.remarq.com) wrote on MMCLXVIII September MCMXCIII
in <URL:news:934137257.10424@www.remarq.com>:
`` Hi,
`` We have created some nice little Perl scripts, that run
`` under <A HREF = {CENSORED}>{CENSORED}</A>
``
`` Now we are looking for someone, who is able to translate
`` these scipts into a language that allows executable programs
`` to run on a PC.
Ah, that's simple:
perl -pi -we0 file1 file2 ... filen
That will translate your Perl programs into a language that allows
executable programs to run on a PC. That is, a PC running DOS, Windows,
Unix, ....
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=Math::BigInt->new(qq]$^F$^W783$[$%9889$^F47]
.qq]$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W]
.qq]98$^F76777$=56]);$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V
%$^U;$^V/=$^U}while$^V!=$^W'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 08 Aug 1999 21:40:55 GMT
From: nochax@my-deja.com
Subject: Urgent - Using flock()
Message-Id: <7okth6$7s1$1@nnrp1.deja.com>
I need to lock a file but I don't know how.
I'm using this:
open (FILE, ">$filepath");
flock (FILE, 2);
make_all_operations_with_the_file;
flock (FILE, 8);
close (FILE);
But doesn't work.
How to make a working lock for a file?
Thanx,
NoCHaX
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 8 Aug 1999 20:31:5 GMT
From: QuestionExchange <USENET@questionexchange.com>
Subject: Re: What is webpluck???
Message-Id: <238qx@questionexchange.com>
As webpluck author put on his page:
"Webpluck is a tool that will automatically fetch bits of information off of your favorite web sites, and present them in a way that saves you time, and prevents you from missing information that you would like to see."
Get webpluck from author's page:
http://strobe.weeg.uiowa.edu/~edhill/public/webpluck/
This answer is courtesy of QuestionExchange.com
For other answers and comments visit:
http://www.questionexchange.com/servlet1/showUsenetGuest?ans_id=2303&cus_id=USENET&qtn_id=1474
------------------------------
Date: 8 Aug 1999 20:31:30 GMT
From: QuestionExchange <USENET@questionexchange.com>
Subject: Re: Where to find help other tha
Message-Id: <240qx@questionexchange.com>
Try the perl news groups:
comp.lang.perl.misc
and
comp.lang.perl.moderated
This answer is courtesy of QuestionExchange.com
For other answers and comments visit:
http://www.questionexchange.com/servlet1/showUsenetGuest?ans_id=2306&cus_id=USENET&qtn_id=1477
------------------------------
Date: 8 Aug 1999 14:21:46 -0500
From: abigail@delanet.com (Abigail)
Subject: Re: Where to find help other than perldoc and books.
Message-Id: <slrn7qrm5j.8pr.abigail@alexandra.delanet.com>
James A Culp III (admin@futuristic.net) wrote on MMCLXVIII September
MCMXCIII in <URL:news:7okgth$ivo$1@ffx2nh3.news.uu.net>:
##
## However in my previous post "style" was probably the wrong word. I need
## assistance with questions like:
##
## "Should I make this script a bunch of sub-routines or just run it straight
## through?"
The answer is "that depends".
I've written Perl programs of 2000+ lines with only a relative small
number of subroutines. If the program doesn't have a basic loop, but
is just "do this, then do that, then do the other thing, then do just
something, and finally, pay the bill", and all parts are important
to understand the flow of the program, I do not bother too much with
subroutines. Only minor sub-tasks get split off. IMO, that makes the
program more readable.
On the other hand, I also write programs with less than 100 lines, where
the "exit" appears on line 10.
## The type of question that can only be answered from experience.
Experience will learn there is not definitive answer.
## Basically yes those unwritten flames are correct, I want a teacher without
## paying the tuition. I cannot afford to goto college at the moment due to
## having to support a family, but at the moment all of my free time and some
## of my time at work goes into improving my knowledge of Perl. I just feel I
## need to find an internet site or group of people willing to basically point
## me in the right direction.
Do you already know how to program? If not, consider learning something
else first. Something that has a shorter learning curve, more safety nets,
and less rope. Python is something that springs in mind. But also Eiffel
or something from Switzerland: Pascal, Modula or Oberon.
## My apologies for the lousy line wraps I haven't been able to get a decent
## Usenet client for my linux machine working. So I'm stuck with this MS
## garbage.
*boggle* I've yet to see any Usenet client on Linux that wraps lines.
Abigail
--
perl -we 'print split /(?=(.*))/s => "Just another Perl Hacker\n";'
-----------== Posted via Newsfeeds.Com, Uncensored Usenet News ==----------
http://www.newsfeeds.com The Largest Usenet Servers in the World!
------== Over 73,000 Newsgroups - Including Dedicated Binaries Servers ==-----
------------------------------
Date: Sun, 8 Aug 1999 14:04:22 -0700
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Where to find help other than perldoc and books.
Message-Id: <MPG.121790b564763b0989e06@nntp.hpl.hp.com>
In article <7okg5j$jg3$1@lublin.zrz.tu-berlin.de> on 8 Aug 1999 17:52:51
-0000, Anno Siegel <anno4000@lublin.zrz.tu-berlin.de> says...
> James A Culp III <admin@futuristic.net> wrote in comp.lang.perl.misc:
> > Is there a newsgroup, website, or group of people one can goto for
> >critiques of code. I am just beginning to learn perl, and have many style
> >based questions that cannot or are not answered in any FAQ, or document that
> >I have come across.
The most recent definitive (IMO) work is 'The Practice of Programming'
by Kernighan and Pike. There is very little about Perl; most of the
examples are in C or C++; the techniques and insights are portable.
In view of our recent (and current) metadiscussion about programming, be
it art or engineering, note that the title of this book seems to play
directly against that of Knuth's classic series, 'The Art of
Programming'. This book deals with programming as an engineering
disciple, but applied to individuals, not to large software endeavors.
I think that is what you (James) may be looking.
> > I am interested in finding one or more experienced perl programmers
> >that would be willing to spend a minimal amount of time (by their
> >definition) to peruse code, and answer style and hard-headed newbie
> >questions. I would post some of these here but am frankly not anxious to A)
> >waste bandwidth for what most would consider silly/stupid questions and B)
> >draw flames upon myself for asking silly/stupid questions.
>
> Oh, easy. Just post your code here. Don't ask for critique, though.
> Claim it's the optimal solution that can't be improved, no way, noho, sir.
>
> Serious answer: You can get that here if you observe a few points.
<SNIP> of all the good stuff
A current thread (which Anno is now off Benchmarking, he says) was
started by someone who posted a functioning snippet and asked if it
could be done 'nicer'. That has generated a lot of interest and
improvements and learning all around, even on the weekend.
--
(Just Another Larry) Rosler
Hewlett-Packard Laboratories
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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.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 V9 Issue 422
*************************************
