[24298] in Perl-Users-Digest
Perl-Users Digest, Issue: 6489 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Apr 29 18:11:44 2004
Date: Thu, 29 Apr 2004 15:10: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 Thu, 29 Apr 2004 Volume: 10 Number: 6489
Today's topics:
How do I do this one-liner (windows command) in perl ? <me@privacy.net>
Re: How do I do this one-liner (windows command) in per <tore@aursand.no>
Re: How do I do this one-liner (windows command) in per <me@privacy.net>
Re: How do I do this one-liner (windows command) in per <ittyspam@yahoo.com>
Re: How do I do this one-liner (windows command) in per <me@privacy.net>
Re: How do I do this one-liner (windows command) in per <ittyspam@yahoo.com>
Re: How do I do this one-liner (windows command) in per <me@privacy.net>
Re: How do I do this one-liner (windows command) in per <ittyspam@yahoo.com>
Re: How do I do this one-liner (windows command) in per <tadmc@augustmail.com>
Re: I am so lost... sort and writing a shell script in (Tsu-na-mi)
question about variable assignment - easy <dannywork5@hotmail.com>
Re: question about variable assignment - easy <mark.clements@kcl.ac.uk>
Re: question about variable assignment - easy <webmaster @ infusedlight . net>
Script to kill defunct and zombie processes (Srini Vuggumudi)
Script to kill defunct and zombie processes (Srini Vuggumudi)
Re: Script to kill defunct and zombie processes (Randal L. Schwartz)
Re: Suggestions on editing multiple files - Thanks <porter970@lycos.com>
Re: Suggestions on editing multiple files - Thanks <ittyspam@yahoo.com>
Re: Suggestions on editing multiple files <jwillmore@remove.adelphia.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 29 Apr 2004 14:53:54 -0400
From: Mark <me@privacy.net>
Subject: How do I do this one-liner (windows command) in perl ?
Message-Id: <3nj290t7eo1bi4kleo9tml6dgub5e3njr9@4ax.com>
This is all I need to be able to do in Perl:
if exist c:\data\bad\* (move c:\data\)
Thanks.
------------------------------
Date: Thu, 29 Apr 2004 21:01:07 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <pan.2004.04.29.18.56.09.558259@aursand.no>
On Thu, 29 Apr 2004 14:53:54 -0400, Mark wrote:
> This is all I need to be able to do in Perl:
>
> if exist c:\data\bad\* (move c:\data\)
What does it mean? I guess 'move' takes two arguments, no? Where do you
want to move things?
Anyway. Take a look at the File::Copy, File::Find and File::Find::Rule
modules. They should help you do the task.
--
Tore Aursand <tore@aursand.no>
"Leadership is doing what is right when no one is watching." (George
Van Valkenburg)
------------------------------
Date: Thu, 29 Apr 2004 15:06:21 -0400
From: Mark <me@privacy.net>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <fek2905ijbdoiogqhjddsiklc1bes6ed5v@4ax.com>
On Thu, 29 Apr 2004 21:01:07 +0200, Tore Aursand <tore@aursand.no> wrote:
>On Thu, 29 Apr 2004 14:53:54 -0400, Mark wrote:
>> This is all I need to be able to do in Perl:
>>
>> if exist c:\data\bad\* (move c:\data\)
>
>What does it mean? I guess 'move' takes two arguments, no? Where do you
>want to move things?
The above checks to see if there is anything in c:\data\bad\
If there is, move it to c:\data\
>Anyway. Take a look at the File::Copy, File::Find and File::Find::Rule
>modules. They should help you do the task.
I've poked around a bit with those, but I'm green as can be with Perl. I was
hoping this would be simple to those who 'know'....
------------------------------
Date: Thu, 29 Apr 2004 15:36:30 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <20040429153319.Y1160@dishwasher.cs.rpi.edu>
On Thu, 29 Apr 2004, Mark wrote:
> On Thu, 29 Apr 2004 21:01:07 +0200, Tore Aursand <tore@aursand.no> wrote:
>
> >On Thu, 29 Apr 2004 14:53:54 -0400, Mark wrote:
> >> This is all I need to be able to do in Perl:
> >>
> >> if exist c:\data\bad\* (move c:\data\)
> >
> >What does it mean? I guess 'move' takes two arguments, no? Where do you
> >want to move things?
>
> The above checks to see if there is anything in c:\data\bad\
> If there is, move it to c:\data\
>
> >Anyway. Take a look at the File::Copy, File::Find and File::Find::Rule
> >modules. They should help you do the task.
>
> I've poked around a bit with those, but I'm green as can be with Perl. I was
> hoping this would be simple to those who 'know'....
It is. But we are not here to write programs for you. What we are here
(volunteering) for, is to help you with your Perl problems. If you have a
question about the best way to get something done, we point you in the
right direction. If you have a question as to why some piece of code is
not working the way you think it should, we help clarify the code and/or
your thinking. Please do not ask us to do for free what many of us do for
a living.
Look at those modules, make an attempt, and if it doesn't work, show us
where you're running into difficulties, and we'll try to help.
Now that you've clarified the problem a bit, I'm going to suggest you also
take a look at
perldoc perlrun
and search for the -i argument
Paul Lalli
------------------------------
Date: Thu, 29 Apr 2004 15:41:01 -0400
From: Mark <me@privacy.net>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <mgm2901ihs3304heol0ircr3gr3dd9hoi6@4ax.com>
On Thu, 29 Apr 2004 15:36:30 -0400, Paul Lalli <ittyspam@yahoo.com> wrote:
>On Thu, 29 Apr 2004, Mark wrote:
>
>> On Thu, 29 Apr 2004 21:01:07 +0200, Tore Aursand <tore@aursand.no> wrote:
>>
>> >On Thu, 29 Apr 2004 14:53:54 -0400, Mark wrote:
>> >> This is all I need to be able to do in Perl:
>> >>
>> >> if exist c:\data\bad\* (move c:\data\)
>> >
>> >What does it mean? I guess 'move' takes two arguments, no? Where do you
>> >want to move things?
>>
>> The above checks to see if there is anything in c:\data\bad\
>> If there is, move it to c:\data\
>>
>> >Anyway. Take a look at the File::Copy, File::Find and File::Find::Rule
>> >modules. They should help you do the task.
>>
>> I've poked around a bit with those, but I'm green as can be with Perl. I was
>> hoping this would be simple to those who 'know'....
>
>It is. But we are not here to write programs for you. What we are here
>(volunteering) for, is to help you with your Perl problems. If you have a
>question about the best way to get something done, we point you in the
>right direction. If you have a question as to why some piece of code is
>not working the way you think it should, we help clarify the code and/or
>your thinking. Please do not ask us to do for free what many of us do for
>a living.
>
>Look at those modules, make an attempt, and if it doesn't work, show us
>where you're running into difficulties, and we'll try to help.
>
>Now that you've clarified the problem a bit, I'm going to suggest you also
>take a look at
>perldoc perlrun
>and search for the -i argument
>
>
>Paul Lalli
Thanks for spending more time writing that up than it would have taken to just
translate the code.
*sigh* Back to google where the usefull information resides.
>
------------------------------
Date: Thu, 29 Apr 2004 15:49:15 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <20040429154720.N1160@dishwasher.cs.rpi.edu>
On Thu, 29 Apr 2004, Mark wrote:
> >> I've poked around a bit with those, but I'm green as can be with Perl. I was
> >> hoping this would be simple to those who 'know'....
> >
> >It is. But we are not here to write programs for you. What we are here
> >(volunteering) for, is to help you with your Perl problems. If you have a
> >question about the best way to get something done, we point you in the
> >right direction. If you have a question as to why some piece of code is
> >not working the way you think it should, we help clarify the code and/or
> >your thinking. Please do not ask us to do for free what many of us do for
> >a living.
> >
> >Look at those modules, make an attempt, and if it doesn't work, show us
> >where you're running into difficulties, and we'll try to help.
> >
> >Now that you've clarified the problem a bit, I'm going to suggest you also
> >take a look at
> >perldoc perlrun
> >and search for the -i argument
> >
> >
> >Paul Lalli
>
>
> Thanks for spending more time writing that up than it would have taken to just
> translate the code.
>
> *sigh* Back to google where the usefull information resides.
Hahaha. I love people like this. People who are just completely adverse
to reading documentation. The funniest part (to me) is that if Mark had
actually read the perldoc I suggested, he would have actually found the
exact answer, and an example one-liner that does precisely what he wants.
Oh well. Happy Surfing, Mark.
Paul Lalli
------------------------------
Date: Thu, 29 Apr 2004 15:58:57 -0400
From: Mark <me@privacy.net>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <pcn29055hgilbtm2if94sq7bno89sdourh@4ax.com>
On Thu, 29 Apr 2004 15:49:15 -0400, Paul Lalli <ittyspam@yahoo.com> wrote:
>On Thu, 29 Apr 2004, Mark wrote:
>
>> >> I've poked around a bit with those, but I'm green as can be with Perl. I was
>> >> hoping this would be simple to those who 'know'....
>> >
>> >It is. But we are not here to write programs for you. What we are here
>> >(volunteering) for, is to help you with your Perl problems. If you have a
>> >question about the best way to get something done, we point you in the
>> >right direction. If you have a question as to why some piece of code is
>> >not working the way you think it should, we help clarify the code and/or
>> >your thinking. Please do not ask us to do for free what many of us do for
>> >a living.
>> >
>> >Look at those modules, make an attempt, and if it doesn't work, show us
>> >where you're running into difficulties, and we'll try to help.
>> >
>> >Now that you've clarified the problem a bit, I'm going to suggest you also
>> >take a look at
>> >perldoc perlrun
>> >and search for the -i argument
>> >
>> >
>> >Paul Lalli
>>
>>
>> Thanks for spending more time writing that up than it would have taken to just
>> translate the code.
>>
>> *sigh* Back to google where the usefull information resides.
>
>Hahaha. I love people like this. People who are just completely adverse
>to reading documentation. The funniest part (to me) is that if Mark had
>actually read the perldoc I suggested, he would have actually found the
>exact answer, and an example one-liner that does precisely what he wants.
And, once again, google came through for me. I should have know better to
just start there.
BTW, I just checked your perldoc and the examples shown do NOT do what I want
(as expected). Thanks for playing.
I love people like YOU who are so full of themselves and have a godlike
attitude. You need to come down a few pegs.
It's not up to you to decide to teach me. That's not what I asked for and
have no use for it.
This is a one time deal with me and will not have any use for Perl in the
foreseeable future.
Good luck continuing with your "holier than thou" mission.
------------------------------
Date: Thu, 29 Apr 2004 16:05:46 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <20040429160118.E1160@dishwasher.cs.rpi.edu>
On Thu, 29 Apr 2004, Mark wrote:
> >> Thanks for spending more time writing that up than it would have taken to just
> >> translate the code.
> >>
> >> *sigh* Back to google where the usefull information resides.
> >
> >Hahaha. I love people like this. People who are just completely adverse
> >to reading documentation. The funniest part (to me) is that if Mark had
> >actually read the perldoc I suggested, he would have actually found the
> >exact answer, and an example one-liner that does precisely what he wants.
>
> And, once again, google came through for me. I should have know better to
> just start there.
To start there to get a pre-written program for you? Yes, you absolutely
should have. This isn't the place for it.
> BTW, I just checked your perldoc and the examples shown do NOT do what I want
> (as expected). Thanks for playing.
<sigh> Please try to read.
As shown above, Perl creates the backup file whether or
not any output is actually changed. So this is just a
fancy way to copy files:
$ perl -p -i '/some/file/path/*' -e 1 file1 file2 file3...
> I love people like YOU who are so full of themselves and have a godlike
> attitude. You need to come down a few pegs.
>
> It's not up to you to decide to teach me. That's not what I asked for and
> have no use for it.
>
> This is a one time deal with me and will not have any use for Perl in the
> foreseeable future.
>
> Good luck continuing with your "holier than thou" mission.
Out of pure curiousity, let's do a hypothetical situation. Say you have a
leaky pipe in your bathroom. You come upon a total stranger that you
happen to know is a professional plumber. Do you ask him what kind of
wrench to use to fix it, or do you ask him to come over to your house and
fix it for you (for free, of course)? I'm seriously curious about this.
Maybe I'm the one with the bizzare point of view. I'm willing to accept
that possibility.
But hell, I've gotten into enough flame mini-wars in the past two days to
last quite a while. Reply to this or don't. This will be my final word
on the subject, I promise.
Paul Lalli
------------------------------
Date: Thu, 29 Apr 2004 15:56:23 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: How do I do this one-liner (windows command) in perl ?
Message-Id: <slrnc92qvn.3qo.tadmc@magna.augustmail.com>
Mark <me@privacy.net> wrote:
> *sigh* Back to google where the usefull information resides.
Thank you for going away.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 29 Apr 2004 14:26:42 -0700
From: tsunami@zedxinc.com (Tsu-na-mi)
Subject: Re: I am so lost... sort and writing a shell script in Perl
Message-Id: <a6b1e337.0404291326.561db290@posting.google.com>
Since all the replies I see seem overcomplex, if efficient, I will
provide my suggestion. Personally, I value readibility and ease of
maintainance over efficiency, so this should be easy for you to
follow. I'll start by saying the file format is in incredibly bad
form, but I'll show you how I would deal with it.
Since " County "ends the name of every county name, split on it. That
way "Main County" (2 words) and "Prince George County" (3 words) both
work, as does "County west of here County" because there is no leading
" " in front of the forst one. If something is named "X County
County" or something, it will break however. If someone wants to
provide you a weird regular expression to deal with that (find the
last instance of " County " in the string) I will leave that exercise
to them. My solution will work for all reasonably expected values.
==========================================
# filename is first argument passed to script
$filename = shift @ARGV;
open(IN,$filename);
while ($in = <IN>) {
# lose trailing newline
chomp $in;
# split county name and variables
($county,$other) = split(" County ",$in);
($pop,$water,$land) = split(" ",$other);
# assign values to two hashes, keyed by county name
# sprintf limits to n decimal places
$pop_density{$county} = sprintf("%.1f",$pop/$land);
$water_pct{$county} = sprintf(%.2f",$water/$land);
}
# sort in ascending order
foreach $county (sort {$a<=>$b} values %pop_density) {
print "$county County : $pop_density{$county}\n";
}
# sort in descending order
foreach $county (reverse sort {$a<=>$b} values %water_pct) {
print "$county County : $water_pct{$county}\n";
}
# sort by county name
foreach $county (sort keys %water_pct) {
print "$county County : $pop_density{$county} ,
$water_pct{$county}\n";
}
exit;
============================================
It would be better if you used a printf() statement when you printed
them out so you can have nuce columns, etc.
--
Dave
------------------------------
Date: Thu, 29 Apr 2004 21:08:00 GMT
From: "Danny" <dannywork5@hotmail.com>
Subject: question about variable assignment - easy
Message-Id: <Q8ekc.49141$Gd3.10837355@news4.srv.hcvlny.cv.net>
what is the difference between using
my $test = 5;
$test = 5;
can I use either one?
Thanks Danny
------------------------------
Date: Thu, 29 Apr 2004 22:20:55 +0100
From: Mark Clements <mark.clements@kcl.ac.uk>
Subject: Re: question about variable assignment - easy
Message-Id: <409171b8$1@news.kcl.ac.uk>
Danny wrote:
> what is the difference between using
>
> my $test = 5;
> $test = 5;
The first line is declaring $test to be a lexically scoped variable ie
local to the enclosing block or file; the second is autovivifying $test
as a package global. You should be declaring
use strict;
use warnings;
at the top of your script. Using strict catches a whole load of
potential errors at compile time and will prevent you from using the
second form - have a look at perldoc strict. If you *really* need to use
globals then you can declare such variables using our (perl 5.6+) or
with
use vars qw($test);
though this is subtly different from our.
Mark
------------------------------
Date: Thu, 29 Apr 2004 13:38:35 -0800
From: "Robin" <webmaster @ infusedlight . net>
Subject: Re: question about variable assignment - easy
Message-Id: <c6rspa$lnp$2@reader2.nmix.net>
"Danny" <dannywork5@hotmail.com> wrote in message
news:Q8ekc.49141$Gd3.10837355@news4.srv.hcvlny.cv.net...
> what is the difference between using
>
> my $test = 5;
> $test = 5;
>
> can I use either one?
>
> Thanks Danny
you *can* use either one, but if you want to use strict "vars", you have to
use the first one, because strict requires you to declare your variables,
see the documentation for strict.
-Robin
------------------------------
Date: 29 Apr 2004 12:52:33 -0700
From: srini@rocketmail.com (Srini Vuggumudi)
Subject: Script to kill defunct and zombie processes
Message-Id: <ac3f7819.0404291152.7256df16@posting.google.com>
Hello Friends,
While browsing the messages in this new group, I found that a couple
of people tried and successful in cleaning the defunct and zombie
process using a PERL or shell script.
If you have a working script that cleans defuncts and zombies , could
you please post it? I appreciate your help. I do not have experience
with SIGNALS in PERL.
Also, here is my problem:
I have an apache/mysql/perl/Linux environment running cgis. My
webserver runs fine for a couple of days. After a month or so, it
starts running really slow (if someone try to access the URL, the
response will be slow). When the webserver responses are slow, If I do
ps -aef, I do see a lot of defunts. Aslo, if I do "top", I do see the
zombies count as 60 - 70. I believe these defunts and zombies may be
taking my webserver's resources and making it run slow.
Any suggesstions?
If you have a working script that cleans defuncts and zombies , could
you please post it? I appreciate your help.
Thank you.
Sincerely,
Srini
------------------------------
Date: 29 Apr 2004 12:53:03 -0700
From: srini@rocketmail.com (Srini Vuggumudi)
Subject: Script to kill defunct and zombie processes
Message-Id: <ac3f7819.0404291153.83af2e3@posting.google.com>
Hello Friends,
While browsing the messages in this new group, I found that a couple
of people tried and successful in cleaning the defunct and zombie
process using a PERL or shell script.
If you have a working script that cleans defuncts and zombies , could
you please post it? I appreciate your help. I do not have experience
with SIGNALS in PERL.
Also, here is my problem:
I have an apache/mysql/perl/Linux environment running cgis. My
webserver runs fine for a couple of days. After a month or so, it
starts running really slow (if someone try to access the URL, the
response will be slow). When the webserver responses are slow, If I do
ps -aef, I do see a lot of defunts. Aslo, if I do "top", I do see the
zombies count as 60 - 70. I believe these defunts and zombies may be
taking my webserver's resources and making it run slow.
Any suggesstions?
If you have a working script that cleans defuncts and zombies , could
you please post it? I appreciate your help.
Thank you.
Sincerely,
Srini
------------------------------
Date: Thu, 29 Apr 2004 20:11:35 GMT
From: merlyn@stonehenge.com (Randal L. Schwartz)
To: srini@rocketmail.com (Srini Vuggumudi)
Subject: Re: Script to kill defunct and zombie processes
Message-Id: <696c7443ddde3f4d6e8e4fcec14e6222@news.teranews.com>
>>>>> "Srini" == Srini Vuggumudi <srini@rocketmail.com> writes:
Srini> While browsing the messages in this new group, I found that a
Srini> couple of people tried and successful in cleaning the defunct
Srini> and zombie process using a PERL or shell script.
A *defunct* or *zombie* process is a process that is already dead.
The only way for it to go away is for its parent to wait() for it. So
the problem cannot be solved unless the code of the program that is
issuing the fork() is changed. There are many techniques for this,
such as wait()ing for all kids at a choice point in a top-level loop,
or the famous "double fork" trick.
Also, no such thing as "PERL". Perhaps you mean "Perl" (or maybe even
"perl").
print "Just another Perl hacker,"; # the first
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 29 Apr 2004 13:58:47 -0600
From: "porter970" <porter970@lycos.com>
Subject: Re: Suggestions on editing multiple files - Thanks
Message-Id: <1092k3cf8b8ni02@corp.supernews.com>
> Even if I get flamed by someone saying "You lazy idiot, go read
> xyz_perldoc.html before you ask stupid questions" ... it would be a help.
I guess I might have phrased that better :)
I appreciate all of the ideas. You've all given me some places to start.
My Perl skills are unfortunately limited to what I've learned solving a
small number of problems, thus when I have an idea or need that is
completely unrelated, I find that I'm at a loss as to where to begin.
Thank You!
Steve
------------------------------
Date: Thu, 29 Apr 2004 15:05:33 -0400
From: Paul Lalli <ittyspam@yahoo.com>
Subject: Re: Suggestions on editing multiple files - Thanks
Message-Id: <20040429150408.U1160@dishwasher.cs.rpi.edu>
On Thu, 29 Apr 2004, porter970 wrote:
> > Even if I get flamed by someone saying "You lazy idiot, go read
> > xyz_perldoc.html before you ask stupid questions" ... it would be a help.
>
> I guess I might have phrased that better :)
>
> I appreciate all of the ideas. You've all given me some places to start.
> My Perl skills are unfortunately limited to what I've learned solving a
> small number of problems, thus when I have an idea or need that is
> completely unrelated, I find that I'm at a loss as to where to begin.
For future reference, some good places to start generally include
perldoc perl - listing of all perldocs and what they cover
perldoc faq - listing of all the Frequently Asked Questions
Paul Lalli
------------------------------
Date: Thu, 29 Apr 2004 14:49:32 -0400
From: James Willmore <jwillmore@remove.adelphia.net>
Subject: Re: Suggestions on editing multiple files
Message-Id: <pan.2004.04.29.18.49.27.588872@remove.adelphia.net>
On Thu, 29 Apr 2004 12:01:14 -0600, porter970 wrote:
> I saw a post once, or and article or an example somewhere talking about
> opening a number of different files and replacing a common line of text.
>
> I have a lot of files, maybe 100, that contain an old e-mail address. Is
> there a way to use Perl to go out to the different directories, search the
> files for the address and replace the old address with a new one?
>
> Even if I get flamed by someone saying "You lazy idiot, go read
> xyz_perldoc.html before you ask stupid questions" ... it would be a help.
This is *NOT* a flame, but a suggestion :-)
http://search.cpan.org/
You might find a module that can be used for this task (such as
Email::Simple, Mail::Header, and maybe Mail::Summary). Why re-invent the
wheel :-)
HTH
--
Jim
Copyright notice: all code written by the author in this post is
released under the GPL. http://www.gnu.org/licenses/gpl.txt
for more information.
a fortune quote ...
Don't take life too seriously -- you'll never get out of it
alive.
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V10 Issue 6489
***************************************
