[25380] in Perl-Users-Digest
Perl-Users Digest, Issue: 7625 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 10 03:05:33 2005
Date: Mon, 10 Jan 2005 00:05:16 -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, 10 Jan 2005 Volume: 10 Number: 7625
Today's topics:
Re: a new Perl/Python a day <matthew.garrish@sympatico.ca>
Re: a new Perl/Python a day <sbryce@scottbryce.com>
Re: a new Perl/Python a day <bob_smith_17280@hotmail.com>
Re: a new Perl/Python a day <cwilbur@mithril.chromatico.net>
Re: a new Perl/Python a day <sbryce@scottbryce.com>
Re: complex numbers <tadmc@augustmail.com>
Re: Extarcting And Storing a String charley@pulsenet.com
Re: FAQ 4.30: How do I capitalize all the words on one <news@chaos-net.de>
Re: FAQ 4.30: How do I capitalize all the words on one <andy@andyh.co.uk>
Re: FAQ 4.30: How do I capitalize all the words on one <matthew.garrish@sympatico.ca>
Re: FAQ 4.30: How do I capitalize all the words on one <news@chaos-net.de>
Re: FAQ 4.30: How do I capitalize all the words on one <news@chaos-net.de>
Re: FAQ 4.30: How do I capitalize all the words on one <spamtrap@dot-app.org>
Re: FAQ 4.30: How do I capitalize all the words on one <news@chaos-net.de>
File::Find::find() is depth-first? <gargoyle@no.spam>
Re: File::Find::find() is depth-first? <comdog@panix.com>
Re: File::Find::find() is depth-first? <gargoyle@no.spam>
Re: inheritance and order of packages <matthew.garrish@sympatico.ca>
Loading module in another module <vito_corleone@godfather.com>
Re: Loading module in another module <noreply@gunnar.cc>
Re: pack and unpack ? ineverlookatthis@yahoo.com
Re: pack and unpack ? (Michael Fuhr)
perl tutorial <sandhyapochiraju@gmail.com>
Re: perl tutorial <spamtrap@dot-app.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 9 Jan 2005 19:28:17 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: a new Perl/Python a day
Message-Id: <v_jEd.2645$b64.127746@news20.bellglobal.com>
"Xah Lee" <xah@xahlee.org> wrote in message
news:1105315487.389577.254460@c13g2000cwb.googlegroups.com...
> i'm starting a yahoo group for learning python. Each day, a tip of
> python will be shown, with the perl equivalent. For those of you
> perlers who always wanted to learn python, this is suitable. (i started
> it because i always wanted to switch to python but too lazy and always
> falling back to a lang i am an expert at, but frustrated constantly by
> its inanities and incompetences.)
>
What language are you an expert at? It certainly isn't Perl.
Matt
------------------------------
Date: Sun, 09 Jan 2005 18:31:44 -0700
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: a new Perl/Python a day
Message-Id: <ScCdnRY9lbloR3zcRVn-gw@comcast.com>
Xah Lee wrote:
> frustrated constantly by its inanities and incompetences.)
I don't see what this has to do with Perl.
------------------------------
Date: Sun, 09 Jan 2005 21:56:45 -0500
From: Bob Smith <bob_smith_17280@hotmail.com>
Subject: Re: a new Perl/Python a day
Message-Id: <crsqtk$1q9$1@solaris.cc.vt.edu>
Scott Bryce wrote:
> Xah Lee wrote:
>
>> frustrated constantly by its inanities and incompetences.)
>
> I don't see what this has to do with Perl.
You're joking, right?
------------------------------
Date: Mon, 10 Jan 2005 03:49:30 GMT
From: Charlton Wilbur <cwilbur@mithril.chromatico.net>
Subject: Re: a new Perl/Python a day
Message-Id: <87r7ku3pwq.fsf@mithril.chromatico.net>
>>>>> "XL" == Xah Lee <xah@xahlee.org> writes:
XL> i'll cross post to comp.lang.perl.misc and comp.lang.python.
XL> If you spot mistakes, feel free to correct or discourse here.
Error #1: crossposting to those two groups.
(Error #2 is implying that you're a Perl expert, but someone else
already pointed that out.)
Charlton
--
cwilbur at chromatico dot net
cwilbur at mac dot com
------------------------------
Date: Sun, 09 Jan 2005 22:11:58 -0700
From: Scott Bryce <sbryce@scottbryce.com>
Subject: Re: a new Perl/Python a day
Message-Id: <vOKdnZXgD-oJk3_cRVn-pQ@comcast.com>
Bob Smith wrote:
> Scott Bryce wrote:
>
>> Xah Lee wrote:
>>
>>> frustrated constantly by its inanities and incompetences.)
>>
>>
>> I don't see what this has to do with Perl.
>
>
> You're joking, right?
No. Perl may have some interesting idiosyncrasies, especially for a
programmer with little or no Unix experience, but I find it neither
frustrating, inane nor incompetent. The more I use it, the more I like it.
------------------------------
Date: Sun, 9 Jan 2005 13:30:04 -0600
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: complex numbers
Message-Id: <slrncu31hs.4ta.tadmc@magna.augustmail.com>
xah@xahlee.org <xah@xahlee.org> wrote:
> #python supports complex numbers.
> # Perl doesn't support complex numbers.
Then you should use Python and stop Perl programming immediately!
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: 9 Jan 2005 17:28:23 -0800
From: charley@pulsenet.com
Subject: Re: Extarcting And Storing a String
Message-Id: <1105320503.252866.248170@c13g2000cwb.googlegroups.com>
Sorry, my bad. Joe's code was correct for the data example that the
poster provided. I should've read the thread more closely.
------------------------------
Date: 9 Jan 2005 23:53:12 GMT
From: Martin Kissner <news@chaos-net.de>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <slrncu3gv8.4it.news@maki.homeunix.net>
Matt Garrish wrote :
>
> "Martin Kissner" <news@chaos-net.de> wrote in message
> news:slrncu27vh.2hj.news@maki.homeunix.net...
>>
>> How about:
>> $text =~ tr/a-zäöü/A-ZÄÖÜ/;
>> This does the Job.
>>
>
> But what about àáâãçèé, etc.?
>
> That's why the solution posted is so very, very wrong. Please read the faq.
>
> Matt
>
I did.
\U and uc() don't capitalize the german "Umlaute" (I guess because they
are 8-bit ascii).
I can't see whats wrong with my solution if you have to deal with those.
If there is a better solution in the FAQ, I have missed it.
Please help me find the point.
--
Epur Si Muove (Gallileo Gallilei)
------------------------------
Date: Mon, 10 Jan 2005 00:48:38 +0000
From: Andy Hassall <andy@andyh.co.uk>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <eoj3u0t04j6d8887u07n5e5vjlmsk41d2c@4ax.com>
On 9 Jan 2005 23:53:12 GMT, Martin Kissner <news@chaos-net.de> wrote:
>\U and uc() don't capitalize the german "Umlaute"
It does when it's given enough information to determine that a given byte
sequence represents a particular umlauted character.
"
uc EXPR
uc
Returns an uppercased version of EXPR. This is the internal function
implementing the \U escape in double-quoted strings. Respects current LC_CTYPE
locale if use locale in force. See the perllocale manpage and the perlunicode
manpage for more details about locale and Unicode support. It does not attempt
to do titlecase mapping on initial letters. See ucfirst for that.
"
Given that interpretation of anything past the basic 7-bit ASCII range is
dependent on the encoding in use, you'll need a locale set for it to be able to
uppercase a character. See perllocale.
andyh@server:~$ echo $LANG
en_GB.iso885915
andyh@server:~$ perl -e 'print uc chr(252); print "\n";'
ü
andyh@server:~$ perl -e 'use locale; print uc chr(252); print "\n";'
Ü
> (I guess because theyare 8-bit ascii).
There's no such thing; ASCII is 7-bit.
--
Andy Hassall / <andy@andyh.co.uk> / <http://www.andyh.co.uk>
<http://www.andyhsoftware.co.uk/space> Space: disk usage analysis tool
------------------------------
Date: Sun, 9 Jan 2005 20:13:48 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <9FkEd.2832$b64.134303@news20.bellglobal.com>
"Martin Kissner" <news@chaos-net.de> wrote in message
news:slrncu3gv8.4it.news@maki.homeunix.net...
> Matt Garrish wrote :
>>
>> "Martin Kissner" <news@chaos-net.de> wrote in message
>> news:slrncu27vh.2hj.news@maki.homeunix.net...
>>>
>>> How about:
>>> $text =~ tr/a-zäöü/A-ZÄÖÜ/;
>>> This does the Job.
>>>
>>
>> But what about àáâãçèé, etc.?
>>
>> That's why the solution posted is so very, very wrong. Please read the
>> faq.
>>
>
> I did.
Not very closely, or you aren't clear what is at issue here.
> \U and uc() don't capitalize the german "Umlaute" (I guess because they
> are 8-bit ascii).
The point is that they won't capitalize quite a number of characters, and if
you use tr/// you have to specify *every* letter you could possible
encounter. Most people aren't interested in typing in every one of those
letters. If you "use locale", however, you can overcome this problem quite
easily.
> I can't see whats wrong with my solution if you have to deal with those.
> If there is a better solution in the FAQ, I have missed it.
> Please help me find the point.
>
You only added a few more characters, that doesn't address uppercasing an
entire line. Jurgen was simply pointing out one case where the tr/a-z/A-Z/
will fail; he was not asking how to add umlaut characters to the class.
Again, please see the faq for better solutions.
Matt
------------------------------
Date: 10 Jan 2005 02:43:16 GMT
From: Martin Kissner <news@chaos-net.de>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <slrncu3qu4.4q2.news@maki.homeunix.net>
Andy Hassall wrote :
> On 9 Jan 2005 23:53:12 GMT, Martin Kissner <news@chaos-net.de> wrote:
>
>>\U and uc() don't capitalize the german "Umlaute"
>
> It does when it's given enough information to determine that a given byte
> sequence represents a particular umlauted character.
>
[...]
>
> andyh@server:~$ echo $LANG
> en_GB.iso885915
> andyh@server:~$ perl -e 'print uc chr(252); print "\n";'
> ü
> andyh@server:~$ perl -e 'use locale; print uc chr(252); print "\n";'
> Ü
Thank's for all that information and the code-example.
>
>> (I guess because theyare 8-bit ascii).
>
> There's no such thing; ASCII is 7-bit.
>
Well, I thought there is 7-bit (standard) ASCII and 8-bit (extended)
ASCII. Maybe this isn't precisely correct.
--
Epur Si Muove (Gallileo Gallilei)
------------------------------
Date: 10 Jan 2005 03:50:34 GMT
From: Martin Kissner <news@chaos-net.de>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <slrncu3usa.4q2.news@maki.homeunix.net>
Matt Garrish wrote :
>
> "Martin Kissner" <news@chaos-net.de> wrote in message
>
>> \U and uc() don't capitalize the german "Umlaute" (I guess because they
>> are 8-bit ascii).
>
> The point is that they won't capitalize quite a number of characters, and if
> you use tr/// you have to specify *every* letter you could possible
> encounter. Most people aren't interested in typing in every one of those
> letters.
I realized that. If someone wants to handle more than a few additional
characters I agree that tr/// is not handy.
> If you "use locale", however, you can overcome this problem quite
> easily.
>
Okay, with your and Andy Hassall's help (and after reading the FAQ more
closely) I think I got most of it.
With
$ echo $LANG
de_DE.ISO8859-1
this works:
$ perl -e 'use locale; print uc chr(220); print "\n";'
Ü
as well as this does:
$ perl -e 'use locale; print uc("üäöçéá"); print "\n";'
ÜÄÖÇÉÁ
This didn't work as I expected:
$ $ echo $LANG
$ perl -e 'use locale; $ENV{LANG}="de_DE.ISO8859-1"; \
print $ENV{LANG}; print "\n"; print uc("ü");print "\n"'
de_DE.ISO8859-1
ü
When $LANG is set _in_ the script, it seems not to get use.
How can I set $LANG in the script?
--
Epur Si Muove (Gallileo Gallilei)
------------------------------
Date: Sun, 09 Jan 2005 22:59:02 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <hcqdnSGb5rMVYHzcRVn-sQ@adelphia.com>
Martin Kissner wrote:
> When $LANG is set _in_ the script, it seems not to get use.
> How can I set $LANG in the script?
You don't. Have a look in "perldoc perllocale" - you either set up the
environment before your script runs, or use the setlocale() function
within your script.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
Date: 10 Jan 2005 05:08:03 GMT
From: Martin Kissner <news@chaos-net.de>
Subject: Re: FAQ 4.30: How do I capitalize all the words on one line?
Message-Id: <slrncu43dj.55p.news@maki.homeunix.net>
Sherm Pendley wrote :
> Martin Kissner wrote:
>
>> When $LANG is set _in_ the script, it seems not to get use.
>> How can I set $LANG in the script?
>
> You don't. Have a look in "perldoc perllocale" - you either set up the
> environment before your script runs, or use the setlocale() function
> within your script.
>
> sherm--
>
Thank you, sherm.
Your hint made me find the appropriate section in that document.
Now I got this
#!/usr/bin/perl
use warnings;
use strict;
use locale;
use POSIX qw(locale_h);
setlocale(LC_CTYPE, "de_DE.ISO8859-1");
print uc("üäöçéá");
print "\n";
and it works just fine.
Thanks again to everyone who has given advice.
--
Epur Si Muove (Gallileo Gallilei)
------------------------------
Date: Mon, 10 Jan 2005 00:00:33 GMT
From: gargoyle <gargoyle@no.spam>
Subject: File::Find::find() is depth-first?
Message-Id: <BAjEd.4807$vM4.141@bignews3.bellsouth.net>
The File::Find man page says, under DESCRIPTION:
"find()" does a depth-first search over the given
@directories in the order they are given.
What exactly does depth-first mean here? I'm asking because to me it
signifies that filesystem children objects will come before their
parent. But the opposite happens in Perl 5.8.4, both on OpenBSD 3.6,
and the ActiveState 5.8.4 build 810. Well that's the behavior I get out
of this script anyway:
#!/usr/bin/perl -w
use File::Find;
@dirs = @ARGV;
find({ wanted => \&wanted, follow => 0, no_chdir => 1 }, @dirs);
sub wanted {
print "$_\t$File::Find::name\n";
}
Also, I checked an old Debian(3.0) Linux box sitting around here (with
Perl 5.6.1 installed) and its man page doesn't mention find() as being
depth-first.
------------------------------
Date: Sun, 09 Jan 2005 20:19:04 -0600
From: brian d foy <comdog@panix.com>
Subject: Re: File::Find::find() is depth-first?
Message-Id: <090120052019042782%comdog@panix.com>
In article <BAjEd.4807$vM4.141@bignews3.bellsouth.net>, gargoyle
<gargoyle@no.spam> wrote:
> The File::Find man page says, under DESCRIPTION:
>
> "find()" does a depth-first search over the given
> @directories in the order they are given.
>
> What exactly does depth-first mean here? I'm asking because to me it
> signifies that filesystem children objects will come before their
> parent.
"Depth first" has the usual meaning:
http://en.wikipedia.org/wiki/Depth-first_search
Are you thinking about finddepth(), which invokes the callback
on the directory after it has already processed the children?
--
brian d foy, comdog@panix.com
Subscribe to The Perl Review: http://www.theperlreview.com
------------------------------
Date: Mon, 10 Jan 2005 04:12:37 GMT
From: gargoyle <gargoyle@no.spam>
Subject: Re: File::Find::find() is depth-first?
Message-Id: <VgnEd.6133$vM4.2078@bignews3.bellsouth.net>
On 2005-01-10, brian d foy <comdog@panix.com> wrote:
> http://en.wikipedia.org/wiki/Depth-first_search
>
> Are you thinking about finddepth(), which invokes the callback
> on the directory after it has already processed the children?
Ahh that explains it! It's depth-first as opposed to breadth-first.
I was mainly concerned that find() would return parent nodes first,
because the code I'm working on now depends on that behavior. But
either of those algorithms would work fine.
Thanks for clearing that up!
------------------------------
Date: Sun, 9 Jan 2005 21:54:41 -0500
From: "Matt Garrish" <matthew.garrish@sympatico.ca>
Subject: Re: inheritance and order of packages
Message-Id: <J7mEd.3161$b64.152981@news20.bellglobal.com>
<ioneabu@yahoo.com> wrote in message
news:1104813725.627616.31350@f14g2000cwb.googlegroups.com...
> This was a simplified version of what I was playing around with. I am
> trying out a class that generates a table of html widgets to be used
> with CGI.pm and I thought that putting a large amount of initialization
> data inside of new didn't look right.
>
Looks shouldn't always be your judge. Your code will be easier to read (and
therefore maintain) if you don't jump through hoops to initialize your
variables. And there is a more elegant solution to intializing a module,
namely write an initialization function and call it when you create the
object. For example:
use warnings;
use strict;
my $a = one->new;
print $a->to_string(),"\n";
package one;
sub new {
my $class = shift;
my $self = {};
bless $self, $class;
$self->init();
return $self;
}
{
sub init {
my $self = $_[0];
my %init = (one=>1,two=>2);
%$self = %init;
}
}
sub to_string
{
my $self = shift;
join '', map {"$_ = ".$self->{$_}."\n"} keys %{$self};
}
Matt
------------------------------
Date: Mon, 10 Jan 2005 13:59:34 +0900
From: Vito Corleone <vito_corleone@godfather.com>
Subject: Loading module in another module
Message-Id: <20050110135934.065add60.vito_corleone@godfather.com>
Hi,
Sorry if this is newbie question. I am a bit confused about loading
module in another module. Let's say I have a script that look like this.
## script.pl
use strict;
use Module1;
use Module2;
my $m1 = Module1::->new();
print $m1->func1();
my $m2 = Module2::->new(); ## Module2 is also using Module1
print $m2->func2();
## Module2.pm
use strict;
use Module1;
...
The problem is I "use Module1" 2 times, in script.pl and in Module2. I
just wonder is it the right way to do it? Will it takes double memory
(because Module1 is used twice)? Is it better if I only "use Module1" in
script.pl and then pass the reference to Module2 (so I don't need to
"use Module1" in Module2)?
Please enlight me. Thank you in advance.
--Vito
------------------------------
Date: Mon, 10 Jan 2005 06:30:07 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Loading module in another module
Message-Id: <34ei5rF4a7k7dU1@individual.net>
Vito Corleone wrote:
> Sorry if this is newbie question.
No need to apologize for asking a newbie question. :) (Besides, your
question appears to me a little more than that.)
> I am a bit confused about loading module in another module. Let's say
> I have a script that look like this.
>
> ## script.pl
> use strict;
> use Module1;
> use Module2;
> my $m1 = Module1::->new();
> print $m1->func1();
> my $m2 = Module2::->new(); ## Module2 is also using Module1
> print $m2->func2();
>
> ## Module2.pm
> use strict;
> use Module1;
> ...
>
> The problem is I "use Module1" 2 times, in script.pl and in Module2.
> I just wonder is it the right way to do it?
It's at least nothing wrong with it. It's how it's done all the time.
> Will it takes double memory (because Module1 is used twice)?
No. If Module1 exports symbols by default, they will be imported to both
package main and package Module2. That's all that happens.
> Is it better if I only "use Module1" in script.pl and then pass the
> reference to Module2 (so I don't need to "use Module1" in Module2)?
It's merely a matter of taste.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 9 Jan 2005 21:28:51 -0800
From: ineverlookatthis@yahoo.com
Subject: Re: pack and unpack ?
Message-Id: <1105334931.405061.303890@c13g2000cwb.googlegroups.com>
Thanks, that helps and I will play further along those lines. I
suspect that 2.38821e+32 is very close to 24 if I ignore some high end
bits.
>What evidence leads you to that conclusion?
I am reading temperature data from a device which receives data
wirelessly from many transmitters and then sends it via serial to the
PC.
I see a series of characters every time the device receives input from
a sensor, including the identity of the device in plain text and the
time in a series of decomals, so I know I have the comm protocol
right. If I change the temp, only those 4 columns of numbers change, I
know the temperature at the probe, I know the devices own software
shows the temp to 3 decimal places and has a range of -50 to +150 C.
Of course there could be some unique coding in here, but they are very
profligate with data, (sending some 30 characters of text), so I doubt
that they will have bothered to pack it in a cunning way.
The obvious question is 'what does the manufacturer say', the answer is
they don't respond to questions!
------------------------------
Date: 10 Jan 2005 00:21:48 -0700
From: mfuhr@fuhr.org (Michael Fuhr)
Subject: Re: pack and unpack ?
Message-Id: <41e22d0c$1_2@omega.dimensional.com>
ineverlookatthis@yahoo.com writes:
> I see a series of characters every time the device receives input from
> a sensor, including the identity of the device in plain text and the
> time in a series of decomals, so I know I have the comm protocol
> right. If I change the temp, only those 4 columns of numbers change, I
> know the temperature at the probe, I know the devices own software
> shows the temp to 3 decimal places and has a range of -50 to +150 C.
Could you post several samples, showing the data you receive and
the corresponding temperature at the probe? If the numbers do
indeed represent the temperature then maybe we can find the pattern.
--
Michael Fuhr
http://www.fuhr.org/~mfuhr/
------------------------------
Date: 9 Jan 2005 22:35:36 -0800
From: "sandhyapochiraju@gmail.com" <sandhyapochiraju@gmail.com>
Subject: perl tutorial
Message-Id: <1105338936.148363.240330@c13g2000cwb.googlegroups.com>
hi
iam a new member of this group. I would like to learn PERL. Please let
me know about some sites which give free and easy to understand
tutorials on PERL.
Thanks
Sandy
------------------------------
Date: Mon, 10 Jan 2005 03:01:31 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: perl tutorial
Message-Id: <Yq-dnT7LbaPGq3_cRVn-hA@adelphia.com>
sandhyapochiraju@gmail.com wrote:
> iam a new member of this group. I would like to learn PERL. Please let
> me know about some sites which give free and easy to understand
> tutorials on PERL.
Since you're new to the group, if you haven't done so already, please
read the posting guidelines that appear here frequently.
For help getting started, have a look at <http://learn.perl.org>.
sherm--
--
Cocoa programming in Perl: http://camelbones.sourceforge.net
Hire me! My resume: http://www.dot-app.org
------------------------------
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 7625
***************************************
