[25271] in Perl-Users-Digest
Perl-Users Digest, Issue: 7516 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Dec 13 18:10:44 2004
Date: Mon, 13 Dec 2004 15:10:12 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 13 Dec 2004 Volume: 10 Number: 7516
Today's topics:
Re: how to read email automatically without POP3 and IM <noreply@gunnar.cc>
Re: how to read email automatically without POP3 and IM <spamtrap@dot-app.org>
Re: how to read email automatically without POP3 and IM <flavell@ph.gla.ac.uk>
Re: how to read email automatically without POP3 and IM <noreply@gunnar.cc>
Re: how to read email automatically without POP3 and IM <spamtrap@dot-app.org>
mkdir <clariouser_REMOVE_@yahoo.com>
Re: mkdir <tony_curtis32@yahoo.com>
Re: mkdir <clariouser_REMOVE_@yahoo.com>
Re: Need help with constants and package names. <nobull@mail.com>
Re: Newbie questions, migrating from c++ <mjcarman@mchsi.com>
Opinions on the Design of Perl <carlton_gregory@yahoo.com>
Re: Opinions on the Design of Perl AaronJSherman@gmail.com
socket script dies <dontmewithme@got.it>
Re: socket script dies <dontmewithme@got.it>
Re: socket script dies AaronJSherman@gmail.com
Re: socket script dies <1usa@llenroc.ude.invalid>
Re: socket script dies <dontmewithme@got.it>
Re: socket script dies <apeiron+usenet@coitusmentis.info>
Re: socket script dies <dontmewithme@got.it>
Re: socket script dies <dontmewithme@got.it>
Re: Solaris taking over Perl ownership krakle@visto.com
Re: Solaris taking over Perl ownership <matthew.garrish@sympatico.ca>
Re: Text::Reform - Words are wrapped whole?? <matthew.garrish@sympatico.ca>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 13 Dec 2004 21:09:54 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: how to read email automatically without POP3 and IMAP servers in perl?
Message-Id: <326blpF3h5p8sU1@individual.net>
dale wrote:
> I am trying to use perl to read my emails from mail server (SMTP only)
> automatically. But we do not have pop3 and imap servers. Is this
> possible?
Maybe.
perldoc -f open
> If not, I can use internet explorer to access my emails, could I use
> web server to do this?
What has the latter question to do with Perl?
Btw, how can you use IE without POP3 or IMAP?
Anyway, you multi-posted (http://www.uwasa.fi/~ts/http/crospost.html),
so I'm disinclined to help you.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 13 Dec 2004 16:10:48 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: how to read email automatically without POP3 and IMAP servers in perl?
Message-Id: <N8-dnT68NbDFmCPcRVn-vg@adelphia.com>
dale wrote:
> I am wondering how I could come up a perl script to read emails from
> out mail server automatically?
Simple, just follow three easy steps:
1. Find out what protocol the server you want to talk to supports. This
will probably be POP or IMAP for receiving mail, and SMTP to send it.
2. Search CPAN for modules that implement the protocol(s) you need.
3. Install those modules and use them to write your script.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 13 Dec 2004 21:20:07 +0000
From: "Alan J. Flavell" <flavell@ph.gla.ac.uk>
Subject: Re: how to read email automatically without POP3 and IMAP servers in perl?
Message-Id: <Pine.LNX.4.61.0412132109390.1099@ppepc56.ph.gla.ac.uk>
On Mon, 13 Dec 2004, Abigail wrote:
> That would depend on the protocols available. And no, SMTP won't do.
> SMTP is for *sending* mail - not for retrieving it. POP3 and IMAP are
> the common protocols for that.
Right; however, the questioner did also mention web access, which
might (or might not - I'm not pre-judging the question) prove to be an
alternative approach.
Nevertheless, this isn't really the right group for mail protocol
discussions. Once the questioner knows what the task is that they
want to program, they'd be welcome back here to discuss any problems
they might have with programming that task in Perl, right?
On the other hand, I understand there's a Perl interface to Windows
automation, so they could go drive their favourite Windows application
from Perl, and not worry what it's doing under the covers? That's
pure theory for me - it's not something I've ever tangled with. I did
once find myself in a situation where it seemed as if it'd be a useful
thing to do, but I managed to put it off long enough that the need
went away ;-)
But anyway, the hon Usenaut could look at ActivePerl and Win32::OLE
if the latter idea seems to appeal.
------------------------------
Date: Mon, 13 Dec 2004 22:51:09 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: how to read email automatically without POP3 and IMAP servers in perl?
Message-Id: <326hksF3hdgr5U1@individual.net>
dale wrote:
> Gunnar Hjalmarsson wrote:
>> dale wrote:
>>> I am trying to use perl to read my emails from mail server (SMTP only)
>>> automatically. But we do not have pop3 and imap servers. Is this
>>> possible?
>>
>> Maybe.
>>
>> perldoc -f open
<snip>
>> how can you use IE without POP3 or IMAP?
>>
>> Anyway, you multi-posted (http://www.uwasa.fi/~ts/http/crospost.html),
>> so I'm disinclined to help you.
>
> I am sorry for dual postings since I am new here and not sure where I
> should post.
Okay, now you know. You should also know that bottom-posting is the
preferred style, i.e. you should only quote as much of the post you are
replying to as is needed for context, and you should type your comments
*below* the quoted part(s).
> If the answer to the first question is possible,
You haven't provided enough info to tell, and the info you did give us
is contradictory. As Aaron pointed out, my suggestion to use open()
presupposes that you have read access to the mail spool file. Otherwise
there must be a protocol available for fetching mail.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Mon, 13 Dec 2004 17:22:35 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: how to read email automatically without POP3 and IMAP servers in perl?
Message-Id: <UtidnYq5gta2iyPcRVn-hg@adelphia.com>
dale wrote:
> I have verizon dsl service at home. I guess that they have pop3 server
> for receiving mails. I tried to telnet or ping to incoming.verizon.net.
> None of them works.
Why are you asking us? Ask Verizon. This is a Perl group, not a Verizon
help desk.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: Mon, 13 Dec 2004 21:46:28 +0100
From: "Freak" <clariouser_REMOVE_@yahoo.com>
Subject: mkdir
Message-Id: <cpkv34$du0$1@ls219.htnet.hr>
Hi all
can somene post sample of creating directory, ie:
I have
www.domain.com
Now I need this:
www.domain.com/directory1
Thank you
------------------------------
Date: Mon, 13 Dec 2004 14:57:58 -0600
From: Tony Curtis <tony_curtis32@yahoo.com>
Subject: Re: mkdir
Message-Id: <87brcx6hm1.fsf@limey.hpcc.uh.edu>
>> On Mon, 13 Dec 2004 21:46:28 +0100,
>> "Freak" <clariouser_REMOVE_@yahoo.com> said:
> Hi all can somene post sample of creating directory, ie: I
> have www.domain.com Now I need this:
> www.domain.com/directory1
$ mkdir www.domain.com/directory1
not difficult.
or are you actually asking something else?
------------------------------
Date: Mon, 13 Dec 2004 22:08:28 +0100
From: "Freak" <clariouser_REMOVE_@yahoo.com>
Subject: Re: mkdir
Message-Id: <cpl0cc$gfl$1@ls219.htnet.hr>
> $ mkdir www.domain.com/directory1
>
> not difficult.
>
> or are you actually asking something else?
Hi Tony,
yes I am asking something else, but I have founded
complete cgi script to manage this: creating of directory
and creating of html page. (http://www.elitehosts.com/scripts/main.htm)
Now I must only automate this
process.
Thank you
------------------------------
Date: Mon, 13 Dec 2004 17:38:07 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Need help with constants and package names.
Message-Id: <cpkjok$qo1$1@sun3.bham.ac.uk>
Sherm Pendley wrote:
> Terry wrote:
>
>> Something I didn't find in the perldoc was how to export a hash using
>> the 'use constant' pragma. The examples seemed to be geared toward
>> single imports as in your example. The reason I'm using 'use export'
>> with a hash ref is to import multiple constants (I'll have at least
>> fifty by the time I'm done). ie:
>>
>> use constant {
>> one => 1 ,
>> two => 2 ,
>> # ...
>> };
>>
>> How then to pass this list to @EXPORT ? I tried assigning the hash ref
>> to a scalar first and assigning its keys into @ISA
Surely you mean @EXPORT?
>> , but you probably already know that didn't work ;)
It works just fine if you pay proper attension to run-time v.
compile-time issues.
> I haven't found a way to do that either - and believe me I've tried.
BEGIN {
my %constants = (
one => 1 ,
two => 2 ,
# ...
);
require constants;
import constants %constants;
push @EXPORT => keys %constants;
}
------------------------------
Date: Mon, 13 Dec 2004 14:19:47 -0600
From: Michael Carman <mjcarman@mchsi.com>
Subject: Re: Newbie questions, migrating from c++
Message-Id: <cpkth8$2vq1@onews.rockwellcollins.com>
gg500@lycos.com wrote:
> Sherm Pendley wrote:
>>
>> A. Sinan didn't give you noise, he gave you good advice. Arrogance
>> is what you're giving him back, by flaming him in return for his
>> help.
>
> If you honestly didn't recognize his reply as arrogant then I suggest
> you take another look.
If that post really offended you I suggest you leave this group and
don't return until you've grown a thicker skin. Honestly, I do.
Otherwise this will just degenerate into yet another "why is everybody
in this newsgroup so !%@*#$ rude?" threads that benefit no one.
Many (most) of the postings here are very direct, even blunt. It's a
matter of efficiency (this is a high-volume newsgroup) not rudeness or
arrogance. If you can't accept that, this will seem like a very hostile
place. If you can, it's wonderfully helpful and instructive.
-mjc
------------------------------
Date: 13 Dec 2004 12:19:08 -0800
From: "g3000" <carlton_gregory@yahoo.com>
Subject: Opinions on the Design of Perl
Message-Id: <1102969148.734052.272510@f14g2000cwb.googlegroups.com>
Hello,
I have a question about the design of Perl5. What advantages does
exporting symbols of module have over allowing method calls?
Bascially what are the strengths and weaknesses of each approach.
------------------------------
Date: 13 Dec 2004 12:34:17 -0800
From: AaronJSherman@gmail.com
Subject: Re: Opinions on the Design of Perl
Message-Id: <1102970057.531057.10220@f14g2000cwb.googlegroups.com>
"I have a question about the design of Perl5"
Ok....
"What advantages does exporting symbols of module have over allowing
method calls"
Well, that's not really a Perl 5 design issue at all. You can do
either, and there are times that either or both make sense.
It really depends on how your module will be used. If it's going to be
used in a primarily OO style, then it makes sense to treat everything
(including your module) as an object. If, on the other hand, someone is
going to be doing things in a procedural way with your module, then you
might want to export.
Exporting, of course, leads to naming conflicts (e.g. "get" from
LWP::Simple), so you probably want to export only requested symbols
and/or symbol sets.
------------------------------
Date: Mon, 13 Dec 2004 16:28:50 GMT
From: Larry <dontmewithme@got.it>
Subject: socket script dies
Message-Id: <dontmewithme-5C8C67.17275413122004@twister2.tin.it>
Hi guys!
below is the code I've been working on lately...it acts as if he can
handle multiple connections and sends an mp3 file to the browser (IE5)...
#!/perl
use strict;
use warnings;
use IO::Socket;
use IO::Select;
my $socket = IO::Socket::INET->new(LocalPort => '81', Proto => 'tcp',
Type => SOCK_STREAM, Reuse => 1, Listen => 10) || die "$!\n";
my $sel = new IO::Select();
$sel->add( $socket );
my ($fh,$rh_set,$ns,$content,@ready,$file);
while (1)
{
@ready = $sel->can_read;
foreach $fh ( @ready ) {
if ($fh == $socket)
{
$ns = $socket->accept;
$sel->add($ns);
} else {
recv($fh,$content,10000,0);
print $content;
syswrite $fh, "HTTP/1.1 200 OK\n";
syswrite $fh, "Apache/1.3.0 (unix)\n";
syswrite $fh, "Cache-Control: no-cache\n";
syswrite $fh, "Content-type: application/octet-stream\n";
syswrite $fh, "Content-Disposition: attachment;
filename=stuck.mp3\n";
syswrite $fh, "\n";
open(BYNA, "<stuck.mp3") || die "$!\n\n";
binmode(BYNA);
while( read(BYNA,$file,1024) )
{
syswrite $fh, $file;
}
close(BYNA);
$sel->remove($fh);
$fh->close;
}
}
}
__END__;
unfortunately when i close the connection at the browser side (by
pressing X) or when i refuse the download (by pressing "cancel") the
script dies...(without any error) or i'd say the script exits (so i've
got to run it again...how boring)
I can not really sort it out...
can anyone help with this?
thanks
------------------------------
Date: Mon, 13 Dec 2004 20:10:48 GMT
From: Larry <dontmewithme@got.it>
Subject: Re: socket script dies
Message-Id: <dontmewithme-6961A2.21095213122004@twister1.tin.it>
In article <dontmewithme-5C8C67.17275413122004@twister2.tin.it>,
Larry <dontmewithme@got.it> wrote:
> Hi guys!
>
> below is the code I've been working on lately...it acts as if he can
> handle multiple connections and sends an mp3 file to the browser (IE5)...
>
> #!/perl
>
> use strict;
> use warnings;
> use IO::Socket;
> use IO::Select;
>
> my $socket = IO::Socket::INET->new(LocalPort => '81', Proto => 'tcp',
> Type => SOCK_STREAM, Reuse => 1, Listen => 10) || die "$!\n";
> my $sel = new IO::Select();
>
> $sel->add( $socket );
>
> my ($fh,$rh_set,$ns,$content,@ready,$file);
>
> while (1)
> {
>
> @ready = $sel->can_read;
>
> foreach $fh ( @ready ) {
>
> if ($fh == $socket)
> {
>
> $ns = $socket->accept;
> $sel->add($ns);
>
> } else {
>
> recv($fh,$content,10000,0);
> print $content;
>
> syswrite $fh, "HTTP/1.1 200 OK\n";
> syswrite $fh, "Apache/1.3.0 (unix)\n";
> syswrite $fh, "Cache-Control: no-cache\n";
> syswrite $fh, "Content-type: application/octet-stream\n";
> syswrite $fh, "Content-Disposition: attachment;
> filename=stuck.mp3\n";
> syswrite $fh, "\n";
>
> open(BYNA, "<stuck.mp3") || die "$!\n\n";
> binmode(BYNA);
> while( read(BYNA,$file,1024) )
> {
> syswrite $fh, $file;
> }
> close(BYNA);
>
>
> $sel->remove($fh);
> $fh->close;
> }
>
> }
>
> }
>
> __END__;
>
> unfortunately when i close the connection at the browser side (by
> pressing X) or when i refuse the download (by pressing "cancel") the
> script dies...(without any error) or i'd say the script exits (so i've
> got to run it again...how boring)
>
> I can not really sort it out...
>
> can anyone help with this?
>
> thanks
why!?!??!?!
------------------------------
Date: 13 Dec 2004 12:43:25 -0800
From: AaronJSherman@gmail.com
Subject: Re: socket script dies
Message-Id: <1102970605.937600.60190@c13g2000cwb.googlegroups.com>
Your script may be responding to a signal like SIGPIPE. You need to
trap it and deal with it as appropriate. See %SIG in the perlvar
manpage.
------------------------------
Date: 13 Dec 2004 21:29:54 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude.invalid>
Subject: Re: socket script dies
Message-Id: <Xns95BEA7D487EF9asu1cornelledu@132.236.56.8>
Larry <dontmewithme@got.it> wrote in
news:dontmewithme-6961A2.21095213122004@twister1.tin.it:
> why!?!??!?!
Why did you post an exact copy of your previous post with this appended?
On the other hand, it does summarize my feelings at this moment.
Hmmm ...
Sinan.
------------------------------
Date: Mon, 13 Dec 2004 21:31:12 GMT
From: Larry <dontmewithme@got.it>
Subject: Re: socket script dies
Message-Id: <dontmewithme-D61C47.22301513122004@twister1.tin.it>
In article <1102970605.937600.60190@c13g2000cwb.googlegroups.com>,
AaronJSherman@gmail.com wrote:
> Your script may be responding to a signal like SIGPIPE. You need to
> trap it and deal with it as appropriate. See %SIG in the perlvar
> manpage.
>
how could I trap it?
------------------------------
Date: 13 Dec 2004 22:20:03 GMT
From: Christopher Nehren <apeiron+usenet@coitusmentis.info>
Subject: Re: socket script dies
Message-Id: <slrncrs5dv.ve.apeiron+usenet@prophecy.dyndns.org>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
On 2004-12-13, Larry scribbled these
curious markings:
> In article <1102970605.937600.60190@c13g2000cwb.googlegroups.com>,
> AaronJSherman@gmail.com wrote:
>> Your script may be responding to a signal like SIGPIPE. You need to
>> trap it and deal with it as appropriate. See %SIG in the perlvar
>> manpage.
> how could I trap it?
'perldoc -q signal' gives a good start; follow that with 'perldoc
perlipc'.
Best Regards,
Christopher Nehren
-----BEGIN xxx SIGNATURE-----
Version: GnuPG v1.2.6 (FreeBSD)
iD8DBQFBvhW/k/lo7zvzJioRAt3EAJ9V8Q8VjoQMkfe5fUvpeRE5Np70GACdGrRn
q8NvArh8HvlFB3R/AI/rEbM=
=NuRp
-----END PGP SIGNATURE-----
--
I abhor a system designed for the "user", if that word is a coded
pejorative meaning "stupid and unsophisticated". -- Ken Thompson
If you ask the wrong questions, you get answers like "42" and "God".
Unix is user friendly. However, it isn't idiot friendly.
------------------------------
Date: Mon, 13 Dec 2004 22:49:33 GMT
From: Larry <dontmewithme@got.it>
Subject: Re: socket script dies
Message-Id: <dontmewithme-088EEF.23483613122004@twister2.tin.it>
In article <1102970605.937600.60190@c13g2000cwb.googlegroups.com>,
AaronJSherman@gmail.com wrote:
> Your script may be responding to a signal like SIGPIPE. You need to
> trap it and deal with it as appropriate. See %SIG in the perlvar
> manpage.
>
well...i read up on %SIG a little I couldn't understand much about it
however.
anyway I discovered and put this at the very bottom of my script:
END {
print "wow!\n";
}
when i stop the browser the script exits nad write wow!
------------------------------
Date: Mon, 13 Dec 2004 22:58:48 GMT
From: Larry <dontmewithme@got.it>
Subject: Re: socket script dies
Message-Id: <dontmewithme-20BD89.23575213122004@twister2.tin.it>
In article <dontmewithme-088EEF.23483613122004@twister2.tin.it>,
Larry <dontmewithme@got.it> wrote:
> In article <1102970605.937600.60190@c13g2000cwb.googlegroups.com>,
> AaronJSherman@gmail.com wrote:
>
> > Your script may be responding to a signal like SIGPIPE. You need to
> > trap it and deal with it as appropriate. See %SIG in the perlvar
> > manpage.
> >
>
> well...i read up on %SIG a little I couldn't understand much about it
> however.
>
> anyway I discovered and put this at the very bottom of my script:
>
> END {
> print "wow!\n";
> }
>
> when i stop the browser the script exits nad write wow!
I'm doing this right now...but it doesn't work at all!!!
SERVER: while ($client = $socket->accept)
{
# do some stuff...
}
END {
print "wow\n";
goto SERVER;
}
this is what I get:
# END failed--call queue aborted.
wow
------------------------------
Date: 13 Dec 2004 10:13:57 -0800
From: krakle@visto.com
Subject: Re: Solaris taking over Perl ownership
Message-Id: <1102961637.365303.109980@c13g2000cwb.googlegroups.com>
Sherm I suppose you are an idiot because I'm not the one who said:
>> Define iterputer please.
------------------------------
Date: Mon, 13 Dec 2004 14:02:45 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Solaris taking over Perl ownership
Message-Id: <mHlvd.5495$%p1.493010@news20.bellglobal.com>
<krakle@visto.com> wrote in message
news:1102961637.365303.109980@c13g2000cwb.googlegroups.com...
> Sherm I suppose you are an idiot because I'm not the one who said:
>>> Define iterputer please.
>
No, you're the idiot who wrote:
"Perl language. Perl code. perl interputer."
Please pay attention to your own postings.
Matt
------------------------------
Date: Mon, 13 Dec 2004 14:34:54 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: Text::Reform - Words are wrapped whole??
Message-Id: <u9mvd.5509$%p1.499273@news20.bellglobal.com>
"Graham Smith" <grehom@ntlworld.com> wrote in message
news:98eb7f13.0412130239.17e56558@posting.google.com...
> must be doing something daft but text::reform not wrapping whole words
> (sometimes)
> my program:
> use Text::Reform;
>
> my $format1 = "
> [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[";
> print form $format1, "A piece of text just long enough to demonstrate
> peculiar behaviour in this test";
> my $format2 = "
> [[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[";
> print form $format2, "A piece of text just long enough to demonstrate
> peculiar behaviour in this test";
>
> results (under Window XP Pro):
> C:\perlSrcs\ebay\test>perl test_reform.pl
> A piece of text just long enough to demonstrate peculiar be-
> haviour in this test
> A piece of text just long enough to demonstrate peculiar
> behaviour in this test
>
> why is first use hyphenating word?
Always read through all of the documentation (in this case, the section on
hyphenating):
use Text::Reform qw/form break_at/;
my $format1 =
"[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[";
print form { break => break_at('-') }, $format1, "A piece of text just long
enough to demonstrate peculiar behaviour in this test";
my $format2 = "[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[[";
print form { break => break_at('-') }, $format2, "A piece of text just long
enough to demonstrate peculiar behaviour in this test";
Output (on XP):
A piece of text just long enough to demonstrate peculiar
behaviour in this test
A piece of text just long enough to demonstrate peculiar
behaviour in this test
Matt
------------------------------
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 7516
***************************************
