[29281] in Perl-Users-Digest
Perl-Users Digest, Issue: 525 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Jun 17 00:10:47 2007
Date: Sat, 16 Jun 2007 21:09:06 -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 Sat, 16 Jun 2007 Volume: 11 Number: 525
Today's topics:
Re: 12 hour clock and offset problem <cwilbur@chromatico.net>
Re: 12 hour clock and offset problem <mritty@gmail.com>
Re: 12 hour clock and offset problem <purlgurl@purlgurl.net>
Re: 12 hour clock and offset problem <dummy@example.com>
Re: 12 hour clock and offset problem <purlgurl@purlgurl.net>
Re: 12 hour clock and offset problem <purlgurl@purlgurl.net>
Re: 12 hour clock and offset problem <mritty@gmail.com>
Re: Any cross-platform function to obtain the machine n <hjp-usenet2@hjp.at>
Re: Any cross-platform function to obtain the machine n <ilias@lazaridis.com>
could XML::Simple handling chinese character? <havel.zhang@gmail.com>
Re: How can I use the string variable expansion for OO <ilias@lazaridis.com>
Re: Massive Memory Structures xhoster@gmail.com
Re: pairwise_test <rvtol+news@isolution.nl>
Re: Perl script to identify corrupt mbox messages? <stoupa@practisoft.cz>
Re: perl vs C for CGI <rvtol+news@isolution.nl>
Re: Which Perl 5 OO extension can be seen as "standard" <ilias@lazaridis.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 16 Jun 2007 14:14:48 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: 12 hour clock and offset problem
Message-Id: <87lkejlqav.fsf@mithril.chromatico.net>
>>>>> "K" == Kenetic <dbroda@gmail.com> writes:
K> I've been at this for awhile, sadly, and cannot wrap my head
K> around it. Any help to point me in the right direction would be
K> fantastic.
You will drive yourself crazy trying to write your own date and time
handling code, and even if you think you've gotten it right, there's a
near certainty you'll find out after the fact you forgot about
something. You're far better off using something like DateTime.pm.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Sat, 16 Jun 2007 18:38:23 -0000
From: Paul Lalli <mritty@gmail.com>
Subject: Re: 12 hour clock and offset problem
Message-Id: <1182019103.486513.229020@o61g2000hsh.googlegroups.com>
On Jun 16, 11:40 am, Kenetic <dbr...@gmail.com> wrote:
> I'm trying to convert an input time to the offset time in a 12 hour
> clock system. It's giving me a headache. The am and pm must be the
> right ones when the offset is added to the input time ($temptime). I
> understand it's better to use a 24 hour clock, but unfortunately I
> can't in this situation. Everything needs to be done in 12-hour
> format.
>
> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> 10:00 pm with an offset of -3 should result in 1:00 am.
> I've been at this for awhile, sadly, and cannot wrap my head around
> it. Any help to point me in the right direction would be fantastic.
Maybe I'm missing something about your requirements. If so, please
correct me. But I'm not seeing why this is as complicated as you've
made it. It's a fairly simple task for strftime:
$ perl -MPOSIX=strftime -le'
sub getutc {
my ($time, $offset) = @_;
my ($h, $m, $ap) = ($time =~ /^(\d+)\:(\d+)\s*([ap])m/i);
$h += 12 if lc $ap eq "p";
strftime("%I:%M %p", 0, $m, $h + $offset, 1, 0, 107);
}
print getutc("10:00 am", -3);
print getutc("10:00 pm", -3);
print getutc("12:00 pm", -3);
print getutc("12:00 am", -3);
print getutc("4:00am", -3);
print getutc("4:00pm", -3);
'
07:00 AM
07:00 PM
09:00 PM
09:00 AM
01:00 AM
01:00 PM
Am I not understanding something?
Paul Lalli
------------------------------
Date: Sat, 16 Jun 2007 13:04:52 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: 12 hour clock and offset problem
Message-Id: <a-2dnVDpDKH63-nbnZ2dnUVZ_s2vnZ2d@giganews.com>
Kenetic wrote:
(snipped)
> I'm trying to convert an input time to the offset time in a 12 hour
> clock system. It's giving me a headache. The am and pm must be the
> right ones when the offset is added to the input time ($temptime). I
> understand it's better to use a 24 hour clock, but unfortunately I
> can't in this situation. Everything needs to be done in 12-hour
> format.
> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> 10:00 pm with an offset of -3 should result in 1:00 am.
There are convention problems with a twelve hour clock system,
http://en.wikipedia.org/wiki/12-hour_clock
Other readers might be interested in this different method.
This is a method which performs more than you ask. This method
produces a format which many, perhaps most, will recognize;
simple scalar localtime() format slightly modified. This method
is portable and very flexible. This method allows for user
input to produce different times, if needed.
This method is based upon epoch seconds making for a good
foundation for building custom time formats. Currently,
this method only formats the actual hour and leaves minutes
and seconds unchanged; a two digit format. Changing the
format of minutes and seconds is very easy.
Working at converting from a 24 hour format to a 12 hour
format, is a crazy maker. Adding AM or PM is the crazy
maker part. This method is shared to help you and other
readers better understand how to make this conversion.
I have tested this method with lots of different times
around the clock. I did not note any odd glitches on
sorting AM and PM times. Let me know if a glitch is
found within this method; I just wrote this specific
code for the first time, over the last half hour.
A "glitch" does not include these problems we have
with conventions noted in the Wikipedia article.
Those problems are beyond any control!
A walk through,
Add three hours to local time (can be a user variable)
Copy out the hour from the scalar time return
IF the hour is less than twelve
IF the hour is 00 midnight
hour equals 12
Multiply hour by one to remove leading zero
Copy in AM
Copy in the new hour
ELSE
IF the hour is greater than or equal to 13
subtract 12
Copy in PM
Copy in the new hour
PRINT the new time format
#!perl
$gmt_time = scalar localtime ($^T + 10800);
$gmt_hour = substr ($gmt_time, 11, 2);
if ($gmt_hour < 12)
{
if ($gmt_hour eq "00")
{ $gmt_hour = 12; }
$gmt_hour *= 1;
substr ($gmt_time, 19, 1, " AM ");
substr ($gmt_time, 11, 2, $gmt_hour);
}
else
{
if ($gmt_hour >= 13)
{ $gmt_hour -= 12; }
substr ($gmt_time, 19, 1, " PM ");
substr ($gmt_time, 11, 2, $gmt_hour);
}
print $gmt_time;
EXAMPLE PRINT:
Sat Jun 16 3:47:19 PM 2007
Readers can see in this print this format is easy to
split apart to modify for whatever format is needed.
--
Purl Gurl
--
"Then again what can you expect from a fat-assed, champagne swilling,
half-breed just off the Rez?"
- Joe Kline
------------------------------
Date: Sat, 16 Jun 2007 23:35:23 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: 12 hour clock and offset problem
Message-Id: <%s_ci.30318$nx3.20986@edtnps89>
Kenetic wrote:
> I'm trying to convert an input time to the offset time in a 12 hour
> clock system. It's giving me a headache. The am and pm must be the
> right ones when the offset is added to the input time ($temptime). I
> understand it's better to use a 24 hour clock, but unfortunately I
> can't in this situation. Everything needs to be done in 12-hour
> format.
>
> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> 10:00 pm with an offset of -3 should result in 1:00 am.
> I've been at this for awhile, sadly, and cannot wrap my head around
> it. Any help to point me in the right direction would be fantastic.
$ perl -le'
use POSIX q/strftime/;
use Time::Local;
my $offset = -3;
my $tempTime = "10:00 pm";
sub getutc {
my ( $time, $GMTOffset ) = @_;
my ( $hours, $minutes, $ampm ) = $time =~ /(\d\d?):(\d\d?)\s+([ap]m)*/i;
$hours = "am" eq lc $ampm ? $hours : $hours == 12 ? 0 : $hours + 12;
return strftime "%I:%M %P", gmtime timegm( 0, $minutes, $hours, 1, 1, 1 )
+ -$GMTOffset * 3600;
}
my $theTime = getutc( $tempTime, $offset );
print "\nCurrent time: $tempTime\n",
"Adjust $offset hours\n",
"Adjusted to: $theTime\n";
'
Current time: 10:00 pm
Adjust -3 hours
Adjusted to: 01:00 am
John
--
Perl isn't a toolbox, but a small machine shop where you
can special-order certain sorts of tools at low cost and
in short order. -- Larry Wall
------------------------------
Date: Sat, 16 Jun 2007 19:30:51 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: 12 hour clock and offset problem
Message-Id: <J6mdnYcG6NdCAenbnZ2dnUVZ_rGinZ2d@giganews.com>
John W. Krahn wrote:
> Kenetic wrote:
(snipped a lot)
>> I'm trying to convert an input time to the offset time in a 12 hour
>> clock system. It's giving me a headache. The am and pm must be the
>> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> $ perl -le'
> use POSIX q/strftime/;
[...]
> Current time: 10:00 pm
> Adjust -3 hours
> Adjusted to: 01:00 am
Microsoft Windows XP [Version 5.1.2600]
Current time: 10:00 pm
Adjust -3 hours
Adjusted to: 01:00
(POSIX code is not usually portable)
--
Purl Gurl
--
"Then again what can you expect from a fat-assed, champagne swilling,
half-breed just off the Rez?"
- Joe Kline
------------------------------
Date: Sat, 16 Jun 2007 19:40:55 -0700
From: Purl Gurl <purlgurl@purlgurl.net>
Subject: Re: 12 hour clock and offset problem
Message-Id: <o7ydnW45usvdAunbnZ2dnUVZ_oKnnZ2d@giganews.com>
Paul Lalli wrote:
> Kenetic wrote:
(snipped a lot)
>>I'm trying to convert an input time to the offset time in a 12 hour
>>clock system. It's giving me a headache. The am and pm must be the
>> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> Maybe I'm missing something about your requirements. If so, please
> correct me. But I'm not seeing why this is as complicated as you've
> made it. It's a fairly simple task for strftime:
> $ perl -MPOSIX=strftime -le'
> sub getutc {
[...]
> Am I not understanding something?
Input Time: 10:00 am
Expected Results: 1:00 pm
Printed Results: 07:00 AM
--
Purl Gurl
--
"Then again what can you expect from a fat-assed, champagne swilling,
half-breed just off the Rez?"
- Joe Kline
------------------------------
Date: Sun, 17 Jun 2007 02:54:53 -0000
From: Paul Lalli <mritty@gmail.com>
Subject: Re: 12 hour clock and offset problem
Message-Id: <1182048893.648306.8840@p77g2000hsh.googlegroups.com>
On Jun 16, 10:40 pm, Purl Gurl <purlg...@purlgurl.net> wrote:
> Paul Lalli wrote:
> > Kenetic wrote:
>
> (snipped a lot)
>
> >> In short, 10:00 am with an offset of -3 should result in 1:00 pm;
> > Am I not understanding something?
>
> Input Time: 10:00 am
>
> Expected Results: 1:00 pm
>
> Printed Results: 07:00 AM
Hrm. Right you are. I misread the OP's requirements. My mistake.
Corrected subroutine:
sub getutc {
my ($time, $offset) = @_;
my ($h, $m, $ap) = ($time =~ /^(\d+)\:(\d+)\s*([ap])m/i);
$h += 12 if lc $ap eq "p";
strftime("%I:%M %p", 0, $m, $h - $offset, 1, 0, 107);
}
Thanks for the correction,
Paul Lalli
------------------------------
Date: Sat, 16 Jun 2007 20:23:58 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <slrnf78alu.2aq.hjp-usenet2@zeno.hjp.at>
On 2007-06-13 08:54, Ilias Lazaridis <ilias@lazaridis.com> wrote:
> On Jun 12, 5:25 pm, Paul Lalli <mri...@gmail.com> wrote:
>> On Jun 12, 9:46 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
>> > Is the term "host" generally prefered within the perl domain?
>>
>> Probably, but only because Perl is based on Unix, and in unix there is
>> a utility called `hostname`, which returns the name of the machine.
>
> I think i've solved my confusion about the term "host".
>
> The term "hostname" means basicly "The name of the machine which hosts
> the unix operating system", thus "host" referes to "operating-system-
> host".
The name "host" for a computer was well established before unix was
invented. RFC 1 (April 1969) has the title "Host software". I'm not sure
where the term came from, but since "hosts" always were relatively large
multi-user systems I suspect that a computer needs to host users to be
called a host.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: Sat, 16 Jun 2007 21:20:43 -0000
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Any cross-platform function to obtain the machine name?
Message-Id: <1182028843.225577.280360@k79g2000hse.googlegroups.com>
On Jun 16, 9:23 pm, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
> On 2007-06-13 08:54, Ilias Lazaridis <i...@lazaridis.com> wrote:
>
> > On Jun 12, 5:25 pm, Paul Lalli <mri...@gmail.com> wrote:
> >> On Jun 12, 9:46 am, Ilias Lazaridis <i...@lazaridis.com> wrote:
> >> > Is the term "host" generally prefered within the perl domain?
>
> >> Probably, but only because Perl is based on Unix, and in unix there is
> >> a utility called `hostname`, which returns the name of the machine.
>
> > I think i've solved my confusion about the term "host".
>
> > The term "hostname" means basicly "The name of the machine which hosts
> > the unix operating system", thus "host" referes to "operating-system-
> > host".
>
> The name "host" for a computer was well established before unix was
> invented. RFC 1 (April 1969) has the title "Host software". I'm not sure
http://tools.ietf.org/html/rfc1
nice to read such a nearly 4 decades old document!
> where the term came from, but since "hosts" always were relatively large
> multi-user systems I suspect that a computer needs to host users to be
> called a host.
I think I stay for now with the term "Machine".
.
--
http://dev.lazaridis.com/lang/ticket/14
------------------------------
Date: Sat, 16 Jun 2007 20:55:34 -0700
From: "havel.zhang" <havel.zhang@gmail.com>
Subject: could XML::Simple handling chinese character?
Message-Id: <1182052534.073663.279560@j4g2000prf.googlegroups.com>
hi everyone:
I found XML::Simple can not handling chinese character. for example:
part1.xml:
<?xml version=3D"1.0" encoding=3D"utf-8"?>
<config>
<user>=BA=CD=C6=BD</user>
<passwd>longNails</passwd>
<books>
<book author=3D"Steinbeck" title=3D"Cannery Row"/>
<book author=3D"Faulkner" title=3D"Soldier's Pay"/>
<book author=3D"Steinbeck" title=3D"East of Eden"/>
</books>
</config>
----------------------------------------
my program:
#!/usr/bin/perl -w
use strict;
use XML::Simple;
use Data::Dumper;
print Dumper (XML::Simple->new()->XMLin('part1.xml',ForceArray =3D>
1,KeepRoot =3D> 1));
----------------------------------------
then the result is:
>not well-formed (invalid token) at line 2, column 8, byte 17 at C:/Perl/si=
te/lib/XML/Parser.pm line 187
so it's just because of chinese character.
anyone can help me? thank you:)
havel
------------------------------
Date: Sat, 16 Jun 2007 21:53:02 -0000
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: How can I use the string variable expansion for OO "$self->attribute"
Message-Id: <1182030782.530147.319230@g4g2000hsf.googlegroups.com>
On Jun 15, 4:27 am, "Mumia W." <paduille.4061.mumia.w
+nos...@earthlink.net> wrote:
> On 06/09/2007 06:57 AM, Ilias Lazaridis wrote:
>
> > [...]
> >http://search.cpan.org/~nobull/Tie-OneOff/lib/Tie/OneOff.pm
> >http://perl.plover.com/Interpolation/manual.html
>
> > Thanks for the info, but I'm unable to see how I could process this
> > string:
>
> > return "$self->label: $self->val($attrib)"
>
> Tie::OneOff seems to be very similar to Tie::Sub:
>
> use strict;
> use warnings;
> require Tie::Sub;
> require NetAddr::IP;
>
> my $net = NetAddr::IP->new('loopback');
> tie my %sub, 'Tie::Sub', sub {
> my $method = shift;
> $net->$method;
> };
>
> print "My address is $sub{addr}\n";
>
> Tie::Sub makes a function call look like a reference to a hash element,
> and interpolation is done for hash elements within double-quoted strings.
This would be too much overhead.
> > is there any stand-alone function available (something like
> > "stringeval"), which would process the string correctly?
>
> Probably not.
>
> > If yes (or if I write my own), is there a way to override the default
> > string-processing behaviour of perl on a per-package basis?
>
> You could create a source filter. Install Filter::Simple and read these:
>
> perldoc perlfilter
> perldoc Filter::Simple
ok, very nice!
> I think Tie::Sub is much simpler.
Personally I would prefer sprintf (if no other solution available, or
no
time to implement a solution).
.
--
http://dev.lazaridis.com/lang/ticket/13
------------------------------
Date: 16 Jun 2007 19:44:51 GMT
From: xhoster@gmail.com
Subject: Re: Massive Memory Structures
Message-Id: <20070616154456.402$K3@newsreader.com>
ruu@cwcom.net wrote:
>
> I got a perl error (which I will concede may well have originated as
> an OS error), and I have run other applications (written in C++
> specifically) right up to 20+G of memory with no issues (I'm sorry - I
> have a number of servers with 64G of RAM - its not my fault). I was
> really hoping for someone to say "This definitely isn't a general perl
> thing, because I have done this on my Linux box".
This definitely isn't a general Perl thing, because I routinely have used
10G or more on my x86_64 Linux box.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Sat, 16 Jun 2007 22:57:06 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: pairwise_test
Message-Id: <f51q0c.ig.1@news.isolution.nl>
Brian McCauley schreef:
> Dr.Ruud:
>> Inspired by List::MoreUtils, I came up with the following.
>> Please comment on the name of the sub, and on any problems
>> you see, and on what not.
>
>> # pairwise_firstidx BLOCK ARRAY1 ARRAY2 [LIST]
>> # returns the first index for which the BLOCK returns a defined
>> # value,
>
> Well, there's your first problem. It doesn't return the index. It
> returns the return value of the block.
>
>> defined ($retval = $op->()) and return $retval;
Ah yes, the documentation is outdated. And with that the name of the
function is wrong. (Or I made it too versatile.)
The BLOCK can return the index value through $_. I see that as the
normal usage, but other usage is not discouraged.
Maybe 'pairwise_do' is a better function name?
What is the next problem?
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sun, 17 Jun 2007 04:06:02 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Perl script to identify corrupt mbox messages?
Message-Id: <f525sk$6l9$1@ns.felk.cvut.cz>
Tuxedo wrote:
Waht my Tbird2OE? Helped you? I want to know the result ;-)
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Sat, 16 Jun 2007 23:15:28 +0200
From: "Dr.Ruud" <rvtol+news@isolution.nl>
Subject: Re: perl vs C for CGI
Message-Id: <f51qve.140.1@news.isolution.nl>
Peter J. Holzer schreef:
> Dr.Ruud:
>> Peter J. Holzer:
>>> So on Unix, if you explicitely
>>> include literal CRLFs in your string literals (which you shouldn't,
>>> imho), they are silently converted to LFs.
>>
>> How do you mean?
>>
>> $ perl -wle'
>> print length <<"EOS";
>> abc\r
>> def\r
>> EOS
>> '
>>
>> This prints 10, so not 8.
>
> Not if the "\r" in your code above are actual CR characters (instead
> of a backslash followed by an r):
>
> % perl -wle'
> print length <<EOS;
> abc^M
> def
> EOS
> '
> 8
Ah, that is scary indeed. Interpolation is not a factor:
$ perl -wle'
print length <<'EOS';
abc^M
def
EOS
'
8
$ perl -wle'
print length <<"EOS";
abc^M\ndef
EOS
'
9
It smells like (having been once) a bug to me.
--
Affijn, Ruud
"Gewoon is een tijger."
------------------------------
Date: Sat, 16 Jun 2007 22:30:09 -0000
From: Ilias Lazaridis <ilias@lazaridis.com>
Subject: Re: Which Perl 5 OO extension can be seen as "standard" (defacto, quasi)?
Message-Id: <1182033009.040641.47260@g4g2000hsf.googlegroups.com>
On Jun 15, 7:56 pm, Jim Gibson <jgib...@mail.arc.nasa.gov> wrote:
> In article <1181910002.327137.71...@q66g2000hsg.googlegroups.com>,
>
> Ilias Lazaridis <i...@lazaridis.com> wrote:
> > I like the very fundamental OO support of Perl 5.
>
> OO support was added in Perl 5. It didn't exist in Perl 4. That is not
> my definition of "fundamental". Perhaps you mean "primitive" :)
No, I meant: it gives me the fundament, on which I can build upon
nicely.
I don't feel it gives me a "basic" or a "primitive' OO support (as I
can
use the fundament to build upon)
> > constructs like "separated data/method inheritance", AUTOLOAD, give me
> > the freedom to implement things as I like: very generic, general and
> > dynamic.
>
> > But as I don't like to "develope away from standard ways to do
> > things", I've tried to find out which is the OO extension to use with
> > perl 5.
>
> You don't need an "OO extension" to do OO programming in Perl. It is
> now built into the language.
[...]
of course.
My remarks above subject the build in-support.
[...]
> > * how stable are those implementations?
[...]
> > * how many perl developer do actually use them?
[...]
> > * can I pick just the OO stuff out of the bundle, or are ther
> > dependencies?
[...]
> > * Is there any document which suggests which modules to use for new
> > projects?
[...]
> > Any suggestions / comments are welcome.
>
> I think using any extensions to the language is generally a mistake
[...] - (friendly suggestions and comments, mainly targetting language
beginners)
I summarize from your writings, the there is no OO extension available
which could be seen as a standard.
The build-in OO support of Perl5 is the today's standard.
That's fine for me personally (I alreay enjoy the freedom).
Is there possibly an community agreement on a standard accessor-
extension (e.g. "
if you have to use automated accessor generation, use CPAN::???)
.
--
http://dev.lazaridis.com/lang/ticket/2
------------------------------
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 525
**************************************
