[30563] in Perl-Users-Digest
Perl-Users Digest, Issue: 1806 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 20 11:09:49 2008
Date: Wed, 20 Aug 2008 08:09:13 -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 Wed, 20 Aug 2008 Volume: 11 Number: 1806
Today's topics:
Re: bidding advice for a contract, part 2 <brian.d.foy@gmail.com>
Re: Calling writev and readv from perl <fidokomik@gmail.com>
Re: CLPM - a help group? <john@castleamber.com>
Re: CLPM - a help group? <tadmc@seesig.invalid>
Re: CLPM - a help group? <spamtrap@dot-app.org>
Re: FAQ 4.48 How do I shuffle an array randomly? <brian.d.foy@gmail.com>
Help: Characters with colors <openlinuxsource@gmail.com>
Re: Help: Characters with colors <magloca@mailinater.com>
Re: Help: Characters with colors <openlinuxsource@gmail.com>
Re: Help: Characters with colors <openlinuxsource@gmail.com>
Re: Help: Characters with colors <usenet@larseighner.com>
Re: Help: Characters with colors <jurgenex@hotmail.com>
Re: Help: Characters with colors <spamtrap@dot-app.org>
Re: Help: Characters with colors <openlinuxsource@gmail.com>
Re: Help: Characters with colors <openlinuxsource@gmail.com>
Re: Help: Debug perl codes <spamtrap@dot-app.org>
Re: HTTP Authorization in Header Request <brian.d.foy@gmail.com>
Re: recursive filehandle <w.nijs@alf4all.demon.nl>
Re: recursive filehandle <w.nijs@alf4all.demon.nl>
Re: recursive filehandle (Randal L. Schwartz)
Re: Repeating the array <fawaka@gmail.com>
Re: Repeating the array <jurgenex@hotmail.com>
Re: Repeating the array <ced@blv-sam-01.ca.boeing.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 20 Aug 2008 12:12:56 +0000
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: bidding advice for a contract, part 2
Message-Id: <200820081212563314%brian.d.foy@gmail.com>
In article
<4143e7bc-758d-4744-84cb-d53bfd44bc4f@25g2000hsx.googlegroups.com>,
cartercc <cartercc@gmail.com> wrote:
> Okay, guys, I'm about four hours into this with the client, and have
> had some direct and blunt conversation with three of the principals.
> We both have a firmed up expectation of the work to be done.
This isn't really about Perl, and if you are seeking business advice on
contracts, you probably want to talk to a lawyer or business coach
about it. There might be other newsgroups that discuss business topics.
Good luck,
------------------------------
Date: Wed, 20 Aug 2008 06:16:11 -0700 (PDT)
From: fidokomik <fidokomik@gmail.com>
Subject: Re: Calling writev and readv from perl
Message-Id: <bf3ed86c-625c-4aa3-872c-d0bf99def91a@34g2000hsh.googlegroups.com>
On Aug 19, 9:28=A0pm, "A. Farber" <Alexander.Far...@gmail.com> wrote:
> Hello,
>
> is there a way to call writev(2) from Perl?
>
Maybe module Inline::C could be a right wayt to solve your problem.
Petr Vileta
------------------------------
Date: 20 Aug 2008 07:17:37 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: CLPM - a help group?
Message-Id: <Xns9B001754B63AAcastleamber@130.133.1.4>
"Stephan Bour" <sbour@niaid.nih.temp.gov> wrote:
^^^^
You couldn't have made my point more clear.
> It's nice to see that you obviously endorse the inventing alternate
yeah, the inventing alternate, whatever, shit stain. *ploink*
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: Wed, 20 Aug 2008 05:47:22 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: CLPM - a help group?
Message-Id: <slrnganthq.7di.tadmc@tadmc30.sbcglobal.net>
John Bokma <john@castleamber.com> wrote:
> "Stephan Bour" <sbour@niaid.nih.temp.gov> wrote:
> *ploink*
I did that 5 years ago.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 20 Aug 2008 10:13:23 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: CLPM - a help group?
Message-Id: <m1ej4jixks.fsf@dot-app.org>
"Stephan Bour" <sbour@niaid.nih.gov> writes:
> Again, you ignored what he has said
It's called "critical thinking." After reading your posting history
here, I think it's safe to say you need to try it some time.
*plonk*
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 20 Aug 2008 12:10:27 +0000
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: FAQ 4.48 How do I shuffle an array randomly?
Message-Id: <200820081210274340%brian.d.foy@gmail.com>
In article
<19a02780-ea51-41b0-a73a-4d46e6f4c355@i76g2000hsf.googlegroups.com>,
<jamesfred@mailinator.com> wrote:
> On Aug 19, 8:03 am, PerlFAQ Server <br...@stonehenge.com> wrote:
> >
> > 4.48: How do I shuffle an array randomly?
> >
> > If not, you can use a Fisher-Yates shuffle.
> >
> > sub fisher_yates_shuffle {
> > my $deck = shift; # $deck is a reference to an array
> > my $i = @$deck;
> This gives an "Modification of non-creatable array value attempted,
> subscript -1" exception if the @$deck is empty.
Thanks for finding that. I'll adjust the answer to fix that problem.
------------------------------
Date: Wed, 20 Aug 2008 21:00:14 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Help: Characters with colors
Message-Id: <pan.2008.08.20.13.00.12.679548@gmail.com>
Hello,
How to modify the color of characters when I display them?
Thank you very much~
Regards,
Amy
------------------------------
Date: Wed, 20 Aug 2008 15:16:36 +0200
From: magloca <magloca@mailinater.com>
Subject: Re: Help: Characters with colors
Message-Id: <48ac1934$0$4245$6e1ede2f@read.cnntp.org>
Amy Lee @ Wednesday 20 August 2008 15:00:
> Hello,
>
> How to modify the color of characters when I display them?
>
> Thank you very much~
>
> Regards,
>
> Amy
In a terminal? Term::ANSIColor. Somewhere else? You'll have to be more
specific.
m.
------------------------------
Date: Wed, 20 Aug 2008 21:49:44 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Characters with colors
Message-Id: <pan.2008.08.20.13.49.43.19628@gmail.com>
On Wed, 20 Aug 2008 15:16:36 +0200, magloca wrote:
> Amy Lee @ Wednesday 20 August 2008 15:00:
>
>> Hello,
>>
>> How to modify the color of characters when I display them?
>>
>> Thank you very much~
>>
>> Regards,
>>
>> Amy
>
> In a terminal? Term::ANSIColor. Somewhere else? You'll have to be more
> specific.
>
> m.
Yes, thank you very much.
Amy
------------------------------
Date: Wed, 20 Aug 2008 22:25:30 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Characters with colors
Message-Id: <pan.2008.08.20.14.25.29.189243@gmail.com>
On Wed, 20 Aug 2008 21:49:44 +0800, Amy Lee wrote:
> On Wed, 20 Aug 2008 15:16:36 +0200, magloca wrote:
>
>> Amy Lee @ Wednesday 20 August 2008 15:00:
>>
>>> Hello,
>>>
>>> How to modify the color of characters when I display them?
>>>
>>> Thank you very much~
>>>
>>> Regards,
>>>
>>> Amy
>>
>> In a terminal? Term::ANSIColor. Somewhere else? You'll have to be more
>> specific.
>>
>> m.
> Yes, thank you very much.
>
> Amy
Anyway, there's something I feel a little confused. I find that this
module is for 'print', when I use it on 'die' function it's still working
but will output a line like this:
at ./hwinfo.pl line 17, <KER_VER> line 1.
My codes:
use strict;
use warnings;
use Term::ANSIColor qw(:constants);
$Term::ANSIColor::AUTORESET = 1;
open KER_VER, "<", "/root/version";
while (<KER_VER>)
{
unless (/\s+2.4.\d+/)
{
die BOLD RED "Your kernel version is not 2.4.x.\n"
}
}
I hope clean this internal output by perl, how could I do that?
Thank you very much~
Amy
------------------------------
Date: Wed, 20 Aug 2008 14:40:19 +0000 (UTC)
From: Lars Eighner <usenet@larseighner.com>
Subject: Re: Help: Characters with colors
Message-Id: <slrngaoaq4.12aa.usenet@debranded.larseighner.com>
In our last episode, <pan.2008.08.20.14.25.29.189243@gmail.com>, the lovely
and talented Amy Lee broadcast on comp.lang.perl.misc:
> open KER_VER, "<", "/root/version";
> while (<KER_VER>)
> {
> unless (/\s+2.4.\d+/)
> {
> die BOLD RED "Your kernel version is not 2.4.x.\n"
> }
> }
> I hope clean this internal output by perl, how could I do that?
> Thank you very much~
You can write ansi codes directly, but in spite of ansi being
more or less a standard, there are serious portability problems.
Some terminals are not ansi capable and others may be quirky.
--
Lars Eighner <http://larseighner.com/> usenet@larseighner.com
"I believe in God and I believe in free markets,"
-Kenneth Lay, CEO for the now defunct Enron, whose loss of some 50
billion dollars represents the largest corporate bankruptcy in the
history of the US.
------------------------------
Date: Wed, 20 Aug 2008 14:40:47 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Help: Characters with colors
Message-Id: <37boa4tps42h11ncf29b66h004afivpvp6@4ax.com>
Amy Lee <openlinuxsource@gmail.com> wrote:
>How to modify the color of characters when I display them?
That depends _VERY_ on much how and where you display them. "perldoc -q
color"
How do I print something out in color?
may help get you started.
jue
------------------------------
Date: Wed, 20 Aug 2008 10:51:17 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Help: Characters with colors
Message-Id: <m13akzivtm.fsf@dot-app.org>
Amy Lee <openlinuxsource@gmail.com> writes:
> How to modify the color of characters when I display them?
It depends on how you're displaying them. Are you writing a web app, a
GUI app, an app that runs in a terminal window, etc.?
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 20 Aug 2008 22:51:32 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Characters with colors
Message-Id: <pan.2008.08.20.14.51.32.689475@gmail.com>
On Wed, 20 Aug 2008 14:40:47 +0000, Jürgen Exner wrote:
> Amy Lee <openlinuxsource@gmail.com> wrote:
>>How to modify the color of characters when I display them?
>
> That depends _VERY_ on much how and where you display them. "perldoc -q
> color"
> How do I print something out in color?
> may help get you started.
>
> jue
Thank you very much. Anyway, when I want to search some keywords, could I
use "perldoc -q <keyword>"?
Best Regards,
Amy
------------------------------
Date: Wed, 20 Aug 2008 22:53:18 +0800
From: Amy Lee <openlinuxsource@gmail.com>
Subject: Re: Help: Characters with colors
Message-Id: <pan.2008.08.20.14.53.18.781685@gmail.com>
On Wed, 20 Aug 2008 14:40:19 +0000, Lars Eighner wrote:
> In our last episode, <pan.2008.08.20.14.25.29.189243@gmail.com>, the lovely
> and talented Amy Lee broadcast on comp.lang.perl.misc:
>
>> open KER_VER, "<", "/root/version";
>> while (<KER_VER>)
>> {
>> unless (/\s+2.4.\d+/)
>> {
>> die BOLD RED "Your kernel version is not 2.4.x.\n"
>> }
>> }
>
>
>> I hope clean this internal output by perl, how could I do that?
>
>> Thank you very much~
>
> You can write ansi codes directly, but in spite of ansi being
> more or less a standard, there are serious portability problems.
> Some terminals are not ansi capable and others may be quirky.
Thank you, but it seems that it's for 'print', not for 'die'. How do I
handle with color when I use 'die'?
Regards,
Amy
------------------------------
Date: Wed, 20 Aug 2008 10:46:14 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Help: Debug perl codes
Message-Id: <m17iabiw21.fsf@dot-app.org>
Amy Lee <openlinuxsource@gmail.com> writes:
> As I think, experts might more be patient to newbies, right?
In my experience, I've found that the experts here are *far* more
patient and helpful than the whiners claim. Sadly, no matter how
patient one is, or how many helpful fishing lessons one gives, there
will inevitably be someone in the audience who feels entitled to a
free fish dinner instead.
I suggest you keep reading a while - you'll quickly get a good feel
for who is helpful here, and who's a self-entitled crank. A good
indication of the latter is a half-shouted rant about how useless the
regulars are, like the one to which you responded. :-)
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Wed, 20 Aug 2008 12:18:36 +0000
From: brian d foy <brian.d.foy@gmail.com>
Subject: Re: HTTP Authorization in Header Request
Message-Id: <200820081218363675%brian.d.foy@gmail.com>
In article
<0e2bcfc2-b255-4be1-a106-786935eef8c5@f36g2000hsa.googlegroups.com>,
<sheinrich@my-deja.com> wrote:
> On Aug 18, 5:28 pm, Sherm Pendley <spamt...@dot-app.org> wrote:
> > "John" <john1...@yahoo.com> writes:
> > > Client Request program that sends an HTTP request to a Server Response
> > > program.
> > > The contents is picked up by the Server with no problem.
> > > However, it does not pick up the Authorization part of the header.
> >
> > Any particular reason you're trying to supply authorization headers
> > manually, instead of using the credentials() method listed in the
> > LWP::UserAgent module docs?
> >
> > sherm--
> >
> > --
>
> UserAgent, AFAIK is only sending credentials in answer to 401 response
> codes.
The user agent sends the credentials for any URL which it thinks
belongs to a particular realm. It's how you get access to the stuff you
want to access. Remember that HTTP is stateless :)
------------------------------
Date: Wed, 20 Aug 2008 12:06:39 +0200
From: Wijnand Nijs <w.nijs@alf4all.demon.nl>
Subject: Re: recursive filehandle
Message-Id: <48abecb2$0$198$e4fe514c@news.xs4all.nl>
xhoster@gmail.com schreef:
> Wijnand Nijs <w.nijs@alf4all.demon.nl> wrote:
>> Hello,
>>
>> I have a problem with the next recursive subroutine used in a mailing
>> script:
>>
>> #-----------------------
>> # sub built_tolist
>> # format lines listfiles:
>> # referense to a listfile = |0|nijs-bruls|
>> # subscribed address = |1|firstname|surname|mailaddress|etc.
>> # unsubscribed address = |2|firstname|surname|mailaddress|etc.
>> #-----------------------
>>
>> sub built_tolist($) {
>> local (*FILE);
>
> why not use lexical file handles?
>
>> my $Listfile = shift;
>> my $Listline;
>> my @ems;
>>
>> open (FILE,"<$Listfile");
>
> You are not checking whether the open succeeded or not. If the open
> failed, you are still trying to read from the handle.
>
> open (my FILE, "<$Listfile") or die "Can't open $Listfile, $!";
>
> But why not use lexical file handles?
>
> open (my $FILE, "<", $Listfile) or die $!;
>
>> it comes 2 times (2 references in the called listfile) with the error:
>>
>> readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
>> line 224.
>>
>> I have used a local filehandle (*FILE)!
>
> Why? Are you coding for a very old Perl? Is this part of a homework
> assignment with tortuous rules?
>
> Xho
>
Ok, ok Xho... I am coding for a very old Perl because I am 57 years old
;) and try to make my server more interactive. So not a professional
programmer but a simple amateur, learning every day.
See also my respons to Leon.
Greetings...
Wijnand
------------------------------
Date: Wed, 20 Aug 2008 12:12:42 +0200
From: Wijnand Nijs <w.nijs@alf4all.demon.nl>
Subject: Re: recursive filehandle
Message-Id: <48abee1d$0$198$e4fe514c@news.xs4all.nl>
Leon Timmermans schreef:
> On Tue, 19 Aug 2008 18:36:29 +0200, Wijnand Nijs wrote:
>
>> Hello,
>>
>> I have a problem with the next recursive subroutine used in a mailing
>> script:
>>
>> #-----------------------
>> # sub built_tolist
>> # format lines listfiles:
>> # referense to a listfile = |0|nijs-bruls| # subscribed address =
>> |1|firstname|surname|mailaddress|etc. # unsubscribed address =
>> |2|firstname|surname|mailaddress|etc. #-----------------------
>>
>> sub built_tolist($) {
>> local (*FILE);
>> my $Listfile = shift;
>> my $Listline;
>> my @ems;
>>
>> open (FILE,"<$Listfile");
>> while ($Listline=<FILE>) {
>> chop $Listline;
>> @ems = split(/$Delimiter/,$Listline);
>> if ($ems[1] eq "0") {
>> &built_tolist($ems[2]);
>> }
>> elsif ($ems[1] eq "1") {
>> push(@Tolist,$ems[4]);
>> }
>> else {
>> }
>> }
>> close(FILE);
>> return(1);
>> }
>>
>>
>> it comes 2 times (2 references in the called listfile) with the error:
>>
>> readline() on closed filehandle FILE at G:/cgi-bin/mailing/send_2.pl
>> line 224.
>>
>> I have used a local filehandle (*FILE)! Can sombody help me where to
>> look?
>>
>> Greetings...
>> Wijnand
>
> Hi Wijnand,
>
> There is a very easy solution to these kinds of problems: using lexical
> filehandles. However, there are more issues with your code. First of
> all, please always check the return value of open and close (and
> best yet also check print). You probably don't want to use prototypes or
> '&' sigils. Also, you seem to be storing the return value in a global
> variable(@Tolist), which sounds like a bad idea to me. Also, chop may not
> always do what you want it to do (imagine the last line of the file not
> ending with a newline), you want to use chomp there. Also, quotes around
> numbers aren't necessary.
>
> To get back to your question, how about this one:
>
> sub built_tolist {
> my $Listfile = shift;
>
> open my $file, '<', $Listfile;
> while (my $Listline=<$file>) {
> chop $Listline;
> my @ems = split /$Delimiter/, $Listline;
> if ($ems[1] eq 0) {
> built_tolist($ems[2]);
> }
> elsif ($ems[1] eq 1) {
> push @Tolist, $ems[4];
> }
> }
> return 1;
> }
>
> Changing the semantics a little gives me this:
>
> sub built_tolist {
> my $Listfile = shift;
> my @Tolist;
>
> open my $file, '<', $Listfile or die "Could not open file $Listfile:
> $!\n";
> while (my $Listline=<$file>) {
> chomp $Listline;
> my @ems = split /$Delimiter/, $Listline;
> if ($ems[1] eq 0) {
> push @Tolist, built_tolist($ems[2]);
> }
> elsif ($ems[1] eq 1) {
> push @Tolist, $ems[4];
> }
> }
> return @Tolist;
> }
>
> It returns a list of values to mail, instead of storing it in a global
> variable.
>
> Regards,
>
> Leon Timmermans
Thanks Leon for the help. The most important thing I learned is to check
the return value when open and close files. That gived me the
information that the file was not there (path error, oeps...).
Now it works fine (also whith the old fashion "local (*FILE)").
Greetings...
Wijnand
------------------------------
Date: Wed, 20 Aug 2008 06:21:17 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: recursive filehandle
Message-Id: <86ej4j960i.fsf@blue.stonehenge.com>
>>>>> "Wijnand" == Wijnand Nijs <w.nijs@alf4all.demon.nl> writes:
Wijnand> I have a problem with the next recursive subroutine used in a mailing
Wijnand> script:
That's almost identical to one of my 254 Perl columns at
http://www.stonehenge.com/merlyn/UnixReview/col19.html - you might want to
read those, and others, for further insight.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: 20 Aug 2008 11:23:02 GMT
From: Leon Timmermans <fawaka@gmail.com>
Subject: Re: Repeating the array
Message-Id: <48abfe96$0$198$e4fe514c@news.xs4all.nl>
On Tue, 19 Aug 2008 22:55:22 -0700, Arun wrote:
> Hi,
> I just wanted small help here, i want to repeat an array for every
> 30 seconds.
> lets us keep i want to send an array for every 30 seconds and also
> should be able to quit as per the user.
Really, your question makes no sense. Could you be a little more specific?
------------------------------
Date: Wed, 20 Aug 2008 11:59:22 GMT
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Repeating the array
Message-Id: <fd1oa4p656k1khsiuge2njvld2b94anss1@4ax.com>
Arun <sajapuram.arun.prakash@gmail.com> wrote:
> I just wanted small help here, i want to repeat an array for every
>30 seconds.
Obviously English is not your first language. Not a problem, but no
matter how hard I try, I can't figure out what you mean by "repeat an
array". First I thought you might mean "copy", but copying an array at
regular intervals doesn't make any sense to me.
Usually you repeat an action, something you (or the program) is doing,
like sending a message or checking for an event. An array is an object
and you can't repeat it, just like you can't repeat a chair or a tree.
>lets us keep i want to send an array for every 30 seconds and also
>should be able to quit as per the user.
Wild guess: "every 30 seconds" makes me guess that maybe sleep() is what
you are looking for.
On the other hand tasks that need to happen at a regular interval are
often better managed/kicked off by the scheduler of your OS.
jue
------------------------------
Date: Wed, 20 Aug 2008 05:35:30 -0700 (PDT)
From: "comp.lang.c++" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Repeating the array
Message-Id: <362f250e-0cc1-4837-825a-d478f8606522@b30g2000prf.googlegroups.com>
On Aug 19, 10:55 pm, Arun <sajapuram.arun.prak...@gmail.com> wrote:
> Hi,
> I just wanted small help here, i want to repeat an array for every
> 30 seconds.
> lets us keep i want to send an array for every 30 seconds and also
> should be able to quit as per the user.
Are you perhaps displaying some ongoing status that needs to be
interruptible by the viewer...?
If that's the case, maybe:
eval {
local $SIG{INT}=sub {die ...};
while (1) { #display loop
...
sleep 30;
}
};
if ($@) {...}
details:
perldoc -q timeout
--
Charles DeRykus
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1806
***************************************
