[30722] in Perl-Users-Digest
Perl-Users Digest, Issue: 1967 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Nov 6 18:09:42 2008
Date: Thu, 6 Nov 2008 15:09:08 -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 Thu, 6 Nov 2008 Volume: 11 Number: 1967
Today's topics:
Dynamic dependencies <michael.brunelle@gmail.com>
Envirnoment (?) question <thumain.the@invalid.invalid>
Re: Envirnoment (?) question <spamtrap@dot-app.org>
Re: Envirnoment (?) question <tadmc@seesig.invalid>
Re: hash array loop in sequence? <whynot@pozharski.name>
Re: Help: How can I parse this properties file? <bik.mido@tiscalinet.it>
Re: Help: How can I parse this properties file? <bik.mido@tiscalinet.it>
Re: Help: How can I parse this properties file? <cartercc@gmail.com>
Is there a perl package, or data in a form easily used <r.ted.byers@gmail.com>
Re: Is there a perl package, or data in a form easily u <glex_no-spam@qwest-spam-no.invalid>
Odd regular expression behaviour <jcombe@gmail.com>
Re: Odd regular expression behaviour <m@rtij.nl.invlalid>
Re: Odd regular expression behaviour <someone@example.com>
Re: Substitution <xiechaos@gmail.com>
Re: Substitution <tim@burlyhost.com>
Re: Substitution <uri@stemsystems.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 6 Nov 2008 05:52:00 -0800 (PST)
From: Bruni007 <michael.brunelle@gmail.com>
Subject: Dynamic dependencies
Message-Id: <b855bdf6-a4f9-4f85-b078-34167c099983@1g2000prd.googlegroups.com>
Dynamic dependencies
Hi, Under AIX, I have created a script which is checking URL status.
Problems come when I want to check HTTPS URL status... To have my
script working with HTTPS URLs, I must set the LIBPATH variable
correctly :
# LIBPATH=/opt/freeware/lib
# ./check_url.pl https://myexample.com
SUCCESS
200 OK
If the LIBPATH variable is not set, then....
# LIBPATH=""
# check_url.pl https://myexample.com
Can't load '/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi/auto/C
+rypt/SSLeay/SSLeay.so' for module Crypt::SSLeay: 0509-022 Cannot loa
+d module /usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi/auto/Cry
+pt/SSLeay/SSLeay.so.
0509-150 Dependent module /usr/lib/libcrypto.a(libcrypto.so.
+0.9.7) could not be loaded.
0509-152 Member libcrypto.so.0.9.7 is not found in archive
0509-022 Cannot load module /usr/opt/perl5/lib/site_perl/5.8.2
+/aix-thread-multi/auto/Crypt/SSLeay/SSLeay.so.
0509-150 Dependent module /usr/opt/perl5/lib/site_perl/5.8.2
+/aix-thread-multi/auto/Crypt/SSLeay/SSLeay.so could not be loaded. at
+ /usr/opt/perl5/lib/5.8.2/aix-thread-multi/DynaLoader.pm line 229.
at scripts/check_url.pl line 22
Compilation failed in require at scripts/check_url.pl line 22.
BEGIN failed--compilation aborted at scripts/check_url.pl line 22.
I've been reading about dynamic dependencies and I think that this is
related to that. Does anyone of you is aware of a way to tell PERL
that he should use this file /opt/freeware/lib/libcrypto.a instead of /
usr/lib/libcrypto.a
Can I make it work with Dynaloader, if yes...I cannot figure out
how !?
By the way, I've tried to set the LIBPATH variable at the beginning of
my script, but it doesn't change anything...
My script has always been working fine, but since Openssl has been
upgraded to a new version, I have this error message. I've been told
that what I need from the libcrypto.a file has been removed from the
libcrypto.a file coming with the new Openssl version. That's why we
kept the old version installed...I just need to tell my script to go
get the right one.
I hope that I am clear enough, all of this is pretty new to me!
------------------------------
Date: Thu, 06 Nov 2008 18:10:37 +0100
From: "Thumain Th." <thumain.the@invalid.invalid>
Subject: Envirnoment (?) question
Message-Id: <op.uj7jbzdbiwlx6x@jbxp.scrim.fr>
Hi,
Sorry with this strange problem.
We use XML::Simple to parse small xml files.
Program was shortened to
use strict;
use XML::Simple;
my $ref=XMLin('/var/tmp/file.xml')
On one of our systems XMLin crashes with 'illecal xml character' (file.xml
is OK).
BUT:
With perl debugger the $ref=XMLin(...) runs OK
AND:
With perl debugger if the $ref=XMLin(...) is run before typing c for
running program
the program runs OK.
We suppose something is wrong with XML module installation , but why can
the debugger
run and not program ?
Thanks for any idea.
--
TT
------------------------------
Date: Thu, 06 Nov 2008 12:31:40 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: Envirnoment (?) question
Message-Id: <m1zlkchibn.fsf@dot-app.org>
"Thumain Th." <thumain.the@invalid.invalid> writes:
> Hi,
>
> Sorry with this strange problem.
> We use XML::Simple to parse small xml files.
> Program was shortened to
>
> use strict;
> use XML::Simple;
> my $ref=XMLin('/var/tmp/file.xml')
>
> On one of our systems XMLin crashes with 'illecal xml character'
> (file.xml is OK).
The error you're getting says that the file is not OK. Have you used a
different tool to verify that the XML is in fact well-formed and (if it
has a DTD) valid?
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 6 Nov 2008 14:51:21 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Envirnoment (?) question
Message-Id: <slrngh6m69.a27.tadmc@tadmc30.sbcglobal.net>
Thumain Th. <thumain.the@invalid.invalid> wrote:
> On one of our systems XMLin crashes with 'illecal xml character' (file.xml
> is OK).
Please copy and paste error messages rather than attempting to retype them.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 06 Nov 2008 12:02:39 +0200
From: Eric Pozharski <whynot@pozharski.name>
Subject: Re: hash array loop in sequence?
Message-Id: <slrngh5g68.tlc.whynot@orphan.zombinet>
On 2008-11-05, Joe Smith <joe@inwap.com> wrote:
> xhoster@gmail.com wrote:
>> smallpond <smallpond@juno.com> wrote:
>>
>>> foreach my $entry qw(name age sex phone city state country )
>>> { print $entry ." ". $data{$entry} ."\n"; }
>>
>> I was surprised that this works. I thought the list of a foreach
>> *had* to be in parentheses, and that the qw() wouldn't count as
>> parentheses.
>
> linux% perl -le 'foreach my $entry @ARGV {print $entry}' a b c d e
> Array found where operator expected at -e line 1
>
> As the error message says, it is looking for an operator, not just
> "(".
It is looking for an array (I<-w> rocks):
Array found where operator expected at -e line 1, at end of line
(Missing operator before ?)
Scalar value @ARGV { print $x } better written as $ARGV { print $x } at
-e line 1.
syntax error at -e line 1, near "$x @ARGV "
Execution of -e aborted due to compilation errors.
--
Torvalds' goal for Linux is very simple: World Domination
------------------------------
Date: Thu, 06 Nov 2008 14:39:37 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <tbs5h4drmde02u6ojg6b1j61266ol5htem@4ax.com>
On Wed, 05 Nov 2008 11:28:24 -0600, Ted Zlatanov <tzz@lifelogs.com>
wrote:
>TJM> $line =~ s/\\\\/&backslash;/g; # translate literal backslashes
>
>TJM> my($key, $value) = split /(?<!\\)=/, $line, 2; # use negative look-behind
>
>TJM> $key =~ tr/\\//d; # eliminate backslashes used for escaping
>
>TJM> $key =~ s/&backslash;/\\/g; # put the literal backslashes back in
>
>TJM> printf "%-10s %-10s\n", $key, $value;
>TJM> }
>
>TJM> __DATA__
>TJM> a=b=c
>TJM> a\=b=c
>TJM> a\\=b=c
>TJM> a\\\=b=c
>TJM> ----------------------------
>
>I was thinking of a similar solution, but adding 256 (or some other
>large number) to each escaped character (in case there's a '&backslash;'
>in the data). As long as it's valid Unicode and the original data
>doesn't contain Unicode characters it should be a clean translation.
I like to be sure thus instead of adding "some other large number" I
actually *find* something that *can't* be there:
my $delim = "&". (sort @delims = $line =~ /&(\0+);/)[-1] . "\0;";
$line =~ s/\\\\/$delim;/g; # translate literal backslashes
# ...
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 06 Nov 2008 15:10:02 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <7au5h4djphl7cqvoeskvtmppggutpp0dt7@4ax.com>
On Thu, 06 Nov 2008 14:39:37 +0100, Michele Dondi
<bik.mido@tiscalinet.it> wrote:
>I like to be sure thus instead of adding "some other large number" I
>actually *find* something that *can't* be there:
>
> my $delim = "&". (sort @delims = $line =~ /&(\0+);/)[-1] . "\0;";
> $line =~ s/\\\\/$delim;/g; # translate literal backslashes
Sorry! That's what you get out of posting such in a hurry; I meant:
my $delim = "&". (sort "", $line =~ /&(\0+);/g)[-1] . "\0;";
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Thu, 6 Nov 2008 08:58:28 -0800 (PST)
From: cartercc <cartercc@gmail.com>
Subject: Re: Help: How can I parse this properties file?
Message-Id: <0879fc52-76a4-4157-864c-de677c4e37ce@s9g2000prg.googlegroups.com>
On Nov 5, 12:28=A0pm, Ted Zlatanov <t...@lifelogs.com> wrote:
> I was thinking of a similar solution, but adding 256 (or some other
> large number) to each escaped character (in case there's a '&backslash;'
> in the data). =A0As long as it's valid Unicode and the original data
> doesn't contain Unicode characters it should be a clean translation.
I find absolutely nothing wrong with Tad's solution. The fact that it
^might^ be a little more verbose than necessary I regard as a mark in
its favor, not a mark against.
I might consider the string '\' rather than '&backslash;' but
that's a simple quibble.
Now, what about a one liner?
CC
------------------------------
Date: Thu, 6 Nov 2008 14:00:36 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Is there a perl package, or data in a form easily used by a perl script, that can be used to determine when to change to or from daylight savings time?
Message-Id: <ebcdea05-d888-49b5-85d7-af75cd4996b8@d36g2000prf.googlegroups.com>
NB: I have seen information about using the system's settings, but
that is not relevant to this problem.
I have a number of DB tables that have datetime values defined WRT UTC
time. If all users could/would work with UTC, there'd be no problem.
I have stored, in a users table, the users' specific timezones. So
far so good. I can use Date::Manip to convert from UTC to each user's
timezone easily. That is great!
However, in many localities, there is a need to switch to and from a
daylight savings time, and I can use the time zones defined in
Date::Manip to specify which users would be using daylight savings
time, but the problem is that using something like "EST5EDT" in either
$from or $to Date_ConvTZ($date1,$from,$to1); does nothing (i.e. the
value returned is identical to $date1). In some respects, I was not
very surprised: unless there was some kind of database hidden in the
bowels of Date::Manip, it couldn't know when to switch to or from
daylight savings time based on the value of $date1. I would not have
a problem creating my own function to do the converstion (dispatching
to Date_ConvTZ using, in the above example, either EST or EDT
depending on the value of the date to be converted), but the problem
is to know when to use EST and when to use EDT (or CET vs CEST, or CST
vs CDT, MST vs MDT, &c.). The date on which the change happens is
different in different time zones (e.g. compare CET#CEST vs EST#EDT).
And I'd need this to be correct even though conventions on use of
daylight savings times are subject to change (as in the US a year or
two back).
So, is there a package that you can recommend that handles this
cleanly, or is there a database/flat data file that can be easily
loaded into an RDBMS such as MySQL, PostgreSQL, MS SQL Server, that I
could use to solve this? I have downloaded and installed a large
number of time related packages using PPM (Activestate Perl 5.10.0 on
Windows XP), but none of the ones I have examined address this
particular issue. I am so frustrated in my search on this that until
I find an adequate solution, the policy we've adopted is to put the
onus on the client to tell us whether or not he wants reports using
daylight savings times, and if so, when the transitions to and from
daylight savings time happens. I would be grateful if someone could
point me to an option that is more user friendly.
Thanks
Ted
------------------------------
Date: Thu, 06 Nov 2008 16:13:35 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Is there a perl package, or data in a form easily used by a perl script, that can be used to determine when to change to or from daylight savings time?
Message-Id: <49136c0f$0$33214$815e3792@news.qwest.net>
Ted Byers wrote:
> NB: I have seen information about using the system's settings, but
> that is not relevant to this problem.
Could the subject be a little longer???
>
> I have a number of DB tables that have datetime values defined WRT UTC
> time. If all users could/would work with UTC, there'd be no problem.
> I have stored, in a users table, the users' specific timezones. So
> far so good. I can use Date::Manip to convert from UTC to each user's
> timezone easily. That is great!
>
> However, in many localities, there is a need to switch to and from a
> daylight savings time, and I can use the time zones defined in
> Date::Manip to specify which users would be using daylight savings
[...]
It's saving daylight, so there's only one 's' in daylight saving time.
Lots of help/discussions/people who can help at:
http://datetime.perl.org/
------------------------------
Date: Thu, 6 Nov 2008 02:28:06 -0800 (PST)
From: Jon Combe <jcombe@gmail.com>
Subject: Odd regular expression behaviour
Message-Id: <531aaf96-4ddf-473e-bc37-70e1847772d6@x16g2000prn.googlegroups.com>
Can anyone explain why the following code is not doing what I expect
it to do ?
#!/usr/bin/perl -w
use strict;
my $inputDateFormat = "DD-MM-YY";
if ( $inputDateFormat =~ m/YY/g )
{
print "GOT YEAR \n";
}
print "ABOUT TO MATCH WITH [$inputDateFormat]\n";
if ( $inputDateFormat =~ m/MM/g )
{
print "GOT MONTH\n";
}
The output I get is
GOT YEAR
ABOUT TO MATCH WITH [DD-MM-YY]
I would expect it to also output "GOT MONTH"
With some expermentation I have found that removing the "g" modifier
from the end of the second match gives the correct result, but once
matched I want to use the "pos" function which seems to only work
correctly when you have the g modifier.
Oddly if I also do a match for DD:-
#!/usr/bin/perl -w
use strict;
my $inputDateFormat = "DD-MM-YY";
if ( $inputDateFormat =~ m/YY/g )
{
print "GOT YEAR \n";
}
print "ABOUT TO MATCH MONTH WITH [$inputDateFormat]\n";
if ( $inputDateFormat =~ m/MM/g )
{
print "GOT MONTH\n";
}
print "ABOUT TO MATCH DAY WITH [$inputDateFormat]\n";
if ( $inputDateFormat =~ m/DD/g )
{
print "GOT DAY\n";
}
I get output
GOT YEAR
ABOUT TO MATCH MONTH WITH [DD-MM-YY]
ABOUT TO MATCH DAY WITH [DD-MM-YY]
GOT DAY
So it matches DD but still won't match MM.
I've tried on perl 5.8.0, 5.8.7 and 5.6.1 with identical results.
I'm not sure if this is a bug or some subtle behaviour of regular
expressions I'm not aware of, but it certainly seems odd to me.
Also if I don't do the check for "YY" first it then matches MM but
fails to match DD
Jon
------------------------------
Date: Thu, 6 Nov 2008 12:27:31 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Odd regular expression behaviour
Message-Id: <pan.2008.11.06.11.27.29@rtij.nl.invlalid>
On Thu, 06 Nov 2008 02:28:06 -0800, Jon Combe wrote:
> Can anyone explain why the following code is not doing what I expect it
> to do ?
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $inputDateFormat = "DD-MM-YY";
>
> if ( $inputDateFormat =~ m/YY/g )
> {
> print "GOT YEAR \n";
> }
> print "ABOUT TO MATCH WITH [$inputDateFormat]\n"; if ( $inputDateFormat
> =~ m/MM/g )
> {
> print "GOT MONTH\n";
> }
>
> The output I get is
>
> GOT YEAR
> ABOUT TO MATCH WITH [DD-MM-YY]
>
> I would expect it to also output "GOT MONTH"
>
> With some expermentation I have found that removing the "g" modifier
> from the end of the second match gives the correct result, but once
> matched I want to use the "pos" function which seems to only work
> correctly when you have the g modifier.
Yes, /g starts from where the last match left. IIRC, reset pos to 0 to
avoid that and have a (better) look at perldoc perlre.
M4
------------------------------
Date: Thu, 06 Nov 2008 06:08:34 -0800
From: "John W. Krahn" <someone@example.com>
Subject: Re: Odd regular expression behaviour
Message-Id: <xTCQk.95$LC6.33@newsfe01.iad>
Jon Combe wrote:
> Can anyone explain why the following code is not doing what I expect
> it to do ?
>
> #!/usr/bin/perl -w
>
> use strict;
>
> my $inputDateFormat = "DD-MM-YY";
>
> if ( $inputDateFormat =~ m/YY/g )
> {
> print "GOT YEAR \n";
> }
> print "ABOUT TO MATCH WITH [$inputDateFormat]\n";
> if ( $inputDateFormat =~ m/MM/g )
> {
> print "GOT MONTH\n";
> }
>
> The output I get is
>
> GOT YEAR
> ABOUT TO MATCH WITH [DD-MM-YY]
>
> I would expect it to also output "GOT MONTH"
>
> With some expermentation I have found that removing the "g" modifier
> from the end of the second match gives the correct result, but once
> matched I want to use the "pos" function which seems to only work
> correctly when you have the g modifier.
Maybe you want to use index:
if ( ( $pos = index $inputDateFormat, 'YY' ) >= 0 )
{
print "GOT YEAR \n";
}
print "ABOUT TO MATCH WITH [$inputDateFormat]\n";
if ( ( $pos = index $inputDateFormat, 'MM' ) >= 0 )
{
print "GOT MONTH\n";
}
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: Thu, 6 Nov 2008 00:13:47 -0800 (PST)
From: xiechao <xiechaos@gmail.com>
Subject: Re: Substitution
Message-Id: <0c551fda-193e-46cf-8709-97ac45954f26@v39g2000pro.googlegroups.com>
$dna=3D~s/\*{10,}/"." x length($&)/eg;
On Nov 6, 2:17=A0pm, Vishal G <v3gu...@gmail.com> wrote:
> Hi Guys,
>
> A Simple Substitution Problem
>
> =A0 =A0 my $dna =3D
> "***********acgtgcta*****atctgat******actgtaaa***tttt**cccc******ccccc***=
***";
>
> =A0 =A0 # I want to replace asterisk(*) with dot(.) if 10 or more
> asterisks occur together
>
> =A0 =A0 $dna =3D~ s/\*{10,}/./g;
>
> =A0 =A0 print "$dna\n";
>
> =A0 =A0 # output
>
> =A0 =A0 .acgtgcta*****atctgat******actgtaaa***tttt**cccc******ccccc******
>
> =A0 =A0 As you can see 10 or more asterisk are replaced with dot but what
> I want is this
>
> =A0 =A0 ...........acgtgcta*****atctgat******actgtaaa***tttt**cccc******c=
cccc******
>
> How to do it
>
> Vishal
------------------------------
Date: Thu, 06 Nov 2008 00:22:37 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: Substitution
Message-Id: <iPxQk.877$x51.591@newsfe01.iad>
Vishal G wrote:
> Hi Guys,
>
> A Simple Substitution Problem
>
> my $dna =
>
"***********acgtgcta*****atctgat******actgtaaa***tttt**cccc******ccccc******";
>
> # I want to replace asterisk(*) with dot(.) if 10 or more
> asterisks occur together
>
> $dna =~ s/\*{10,}/./g;
>
> print "$dna\n";
>
> # output
>
> .acgtgcta*****atctgat******actgtaaa***tttt**cccc******ccccc******
>
> As you can see 10 or more asterisk are replaced with dot but what
> I want is this
>
> ...........acgtgcta*****atctgat******actgtaaa***tttt**cccc******ccccc******
>
>
> How to do it
>
> Vishal
Here's one way, off the top of my head:
$dna =~ s/(\*{10,})/'.' x length($1)/eg;
It replaces 10 (or more) instances of \* with ., based on the actual
length of the (\*{10,}) match, replacing each one, with no fixed length
limit (so long as there are 10 or more instances). Just sticking with
your original regex substitution example solution.
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Thu, 06 Nov 2008 13:07:00 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: Substitution
Message-Id: <x73ai4iv97.fsf@mail.sysarch.com>
>>>>> "x" == xiechao <xiechaos@gmail.com> writes:
x> $dna=~s/\*{10,}/"." x length($&)/eg;
don't use $& as it will slow down all the other regexes in your
program. this is a known problem and trivial to get around. just
explicitly grab the matched string and refer to it with $1
$dna =~ s/(\*{10,})/ '.' x length($1) /eg;
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Free Perl Training --- http://perlhunter.com/college.html ---------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
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 1967
***************************************
