[18254] in Perl-Users-Digest
Perl-Users Digest, Issue: 422 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 5 18:10:41 2001
Date: Mon, 5 Mar 2001 15:10:21 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <983833820-v10-i422@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Mon, 5 Mar 2001 Volume: 10 Number: 422
Today's topics:
Re: perl-ize and optimize <mischief@velma.motion.net>
Re: perl-ize and optimize <ren@tivoli.com>
Re: perl-ize and optimize <c_clarkson@hotmail.com>
Re: perlpod docs? <ivo.nospam@yale.edu>
Re: pi day <russ_jones@rac.ray.com>
Re: regexp and parenthesis ... <ren@tivoli.com>
Re: regexp and parenthesis ... (Tad McClellan)
Re: RFC: FAQ3 update -- Using less memory (Chris Fedde)
server (Comserver)
Setting Environment Vars for Win32::Process <anonymous@anonymous.anonymous>
Re: sockets again <mischief@velma.motion.net>
Re: something unique (Craig Berry)
Re: truncate <mischief@velma.motion.net>
why won't "format FILEHANDLE" work?? <administrator@playauction.com>
Re: why won't "format FILEHANDLE" work?? <Jonathan.L.Ericson@jpl.nasa.gov>
Win32::ODBC - can get info from Access97 database, but <mortarandpestle@hotmail.com>
Re: Win32::ODBC - can get info from Access97 database, <marts-spam-me-not-@iname.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 05 Mar 2001 21:15:44 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: perl-ize and optimize
Message-Id: <ta80g0dn2o0ub5@corp.supernews.com>
Bart Lateur <bart.lateur@skynet.be> wrote:
> Bart Lateur wrote:
>>Cut the string into words with split, pick a random position to rotate,
>>and rejoin the array into a string. That's the ticket.
> And now... the code.
> sub randomly_rotate {
> my @words = split / /, shift;
> push @words, splice @words, 0, int rand @words;
> return join ' ', @words;
> }
> I admit, pushing what you cut out of an array back onto the end, is a
> bit obscure. This is less confusing:
> sub randomly_rotate {
> my @words = split / /, shift;
> my @cut = splice @words, 0, int rand @words;
> return join ' ', @words, @cut;
> }
Good code, but more Perlish it would if if Yoda_ize it was called, yes?
Chris
--
Christopher E. Stith
You must not lose faith in humanity. Humanity is an ocean;
if a few drops of the ocean are dirty, the ocean does not
become dirty. -- Mohandas K. Gandhi
------------------------------
Date: 05 Mar 2001 15:03:58 -0600
From: Ren Maddox <ren@tivoli.com>
Subject: Re: perl-ize and optimize
Message-Id: <m3elwcc4ht.fsf@dhcp9-175.support.tivoli.com>
On Mon, 05 Mar 2001, krahnj@acm.org wrote:
> "Charles K. Clarkson" wrote:
>> my $string = shift; $string =~ s/^(\w+?)\s(.+)$/$2 $1/ for 0
>> .. rand 1 + $string =~ tr/ //s;
>
> Try it with this sentence and see how even the distribution is. :-)
>
> print shuffle( q{I calculated O'Brian's pay at $15.00 per hour.} ),
> "\n";
I assume you're just pointing out that the "\w" really should be "\S",
correct?
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 5 Mar 2001 16:40:36 -0600
From: "Charles K. Clarkson" <c_clarkson@hotmail.com>
Subject: Re: perl-ize and optimize
Message-Id: <61A806F7EBC38097.49C6EED032CD95C7.4874E232FE6ADB69@lp.airnews.net>
Ren Maddox <ren@tivoli.com> wrote
: On Mon, 05 Mar 2001, krahnj@acm.org wrote:
:
: > "Charles K. Clarkson" wrote:
: >> my $string = shift; $string =~ s/^(\w+?)\s(.+)$/$2 $1/ for 0
: >> .. rand 1 + $string =~ tr/ //s;
: >
: > Try it with this sentence and see how even the distribution is. :-)
: >
: > print shuffle( q{I calculated O'Brian's pay at $15.00 per hour.} ),
: > "\n";
:
: I assume you're just pointing out that the "\w" really should be "\S",
: correct?
I stand corrected.
[Er - Actually I'm sitting.]
I sit corrected!
Charles K. Clarkson
my $string = shift; $string =~ s/^(\S+?)\s(.+)$/$2 $1/
for 0 .. rand 1 + $string =~ tr/ //s;
------------------------------
Date: Mon, 05 Mar 2001 14:48:44 -0500
From: ivo welch <ivo.nospam@yale.edu>
Subject: Re: perlpod docs?
Message-Id: <3AA3ED9C.514B9BB8@yale.edu>
thanks for all the responses. I must have a buggy version. I
understand that pod2html accepts "--title=" nicely, but the head1
inclusion in the text itself fails:
#!/usr/bin/perl
=head1 NAME
a name
=head1 TITLE
a title
=cut
print "hello world\n";
for me gets
/usr/bin/pod2html: no title for try.pl at
/usr/lib/perl5/5.6.0/Pod/Html.pm line 402.
I tried to figure out what it was looking for in the source, but it was
not too obvious...after all, I am still a perl newbie or else I would
not have such stupid questions...
/iaw
Martien Verbruggen wrote:
>
> On 3 Mar 2001 11:15:46 -0000,
> Jonathan Stowe <gellyfish@gellyfish.com> wrote:
> > On Fri, 02 Mar 2001 23:46:11 -0500 ivo welch wrote:
> >>
> >> ok...so can anyone tell me how to specify a "title" in the pod document
> >> itself, so that pod2html won't complain that it cannot find a title?
> >>
> >
> >=head1 TITLE
> >
> > This is the title
> >
> > However I have never encountered pod2<anything> requiring a TITLE header -
> > though I rarely use pod2html so I probably missed it.
> > pod2man will complain about a missing NAME header though.
>
> That is the one that gets translated to the title. Also see my other
> post. They probably just call it a title there, because that's what the
> thing is called in HTML. In man pages this thing is called the NAME
> section, and that's where most of pod got its terminology.
>
> extract from Pod::Html, 1.03:
>
> if ($title eq '') {
> TITLE_SEARCH: {
> for (my $i = 0; $i < @poddata; $i++) {
> if ($poddata[$i] =~ /^=head1\s*NAME\b/m) {
> for my $para ( @poddata[$i, $i+1] ) {
> last TITLE_SEARCH
> if ($title) = $para =~ /(\S+\s+-+.*\S)/s;
> }
> }
>
> }
> }
> }
>
> The NAME header is pretty much a must for all pod documentation.
>
> Martien
> --
> Martien Verbruggen |
> Interactive Media Division |
> Commercial Dynamics Pty. Ltd. | Curiouser and curiouser, said Alice.
> NSW, Australia |
--
Ivo Welch, Professor of Finance/Economics, Yale/SOM + NBER
http://welch.som.yale.edu/
------------------------------
Date: Mon, 05 Mar 2001 13:36:17 -0600
From: Russ Jones <russ_jones@rac.ray.com>
Subject: Re: pi day
Message-Id: <3AA3EAB1.37EE9E16@rac.ray.com>
Noted Perl Plinker Greg Bacon wrote:
>
> In article <3AA3B179.8D23610@rac.ray.com>,
> Russ Jones <russ_jones@rac.ray.com> wrote:
>
> : I'm working on a web page in honor of the impending global holiday, pi
> : Day, March 14 [...]
>
> Don't forget that it's also the birthday of Albert Einstein, Billy
> Crystal, and noted Perl plinker Greg Bacon. Send Guinness. :-)
>
Also:
Paul Ehrlich (discovered cure for syphilis)
John "Casey" Jones (drivin' that train)
Les Brown (band of renown)
Michael Cain
Quincy Jones (no relation)
the "IPO of the year," Microsoft goes public
Jack Ruby gets death sentence
Coincidence? None of these has anything to do with Perl or pi, but I
really would like to get some Perl versions of pi calculations, the
more screwy the better. Anno's already suggested the "dropping
buckshot onto a circle" method.
And I'll be sending Greg a copy of the 1972 edition of the Guinness
Book of World Records, one page per year, starting on his birthday.
--
Russ Jones - HP OpenView IT/Operatons support
Raytheon Aircraft Company, Wichita KS
russ_jones@rac.ray.com 316-676-0747
Te audire non possum. Musa sapientum fixa est in aure. - Plautus
------------------------------
Date: 05 Mar 2001 14:53:06 -0600
From: Ren Maddox <ren@tivoli.com>
Subject: Re: regexp and parenthesis ...
Message-Id: <m3ofvgc4zx.fsf@dhcp9-175.support.tivoli.com>
On Mon, 05 Mar 2001, netben@free.fr wrote:
[highly snipped and edited for missing "|"]
> if the string is : foo(bar(b)az)|
> and what i wanted was : $1=foo , $2=(bar(b)az)
> but then if the string is : foo(bar)(baz)|
> and what i needed was : $1=foo(bar) and $2=(baz).
> To resume , i'd like to get the last string between parethesis
> before the | , but respecting the syntax of parenthesis!
If you're willing to use experimental features, then perlre(1) has an
example of how to match a balanced parenthetical expression. Using
that as a starting point, this isn't too difficult.
Here it is:
$re = qr{
\(
(?:
(?> [^()]+ ) # Non-parens without backtracking
|
(??{ $re }) # Group with matching parens
)*
\)
}x;
So what you want is:
/(.*)($re)\|/;
Works like a champ!
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Mon, 5 Mar 2001 16:05:29 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: regexp and parenthesis ...
Message-Id: <slrn9a7vsp.5h0.tadmc@tadmc26.august.net>
Ren Maddox <ren@tivoli.com> wrote:
>On Mon, 05 Mar 2001, netben@free.fr wrote:
[snip wants to match balanced parenthesis]
>If you're willing to use experimental features, then perlre(1) has an
>example of how to match a balanced parenthetical expression.
This doesn't answer the OP's question, but it does _appear_ to
be using a pattern match to match balanced parenthesis.
Snippets of a post from 1997, where I am the quoted text:
---------------------------
Date: Sun, 10 Aug 1997 14:53:39 -0700
From: dmi@questrel.com (Dean Inada)
Message-Id: <199708102153.OAA15735@questrel.com>
To: tadmc@flash.net
Subject: Re: can regexp do balanced match?
Newsgroups: comp.lang.perl.misc
In article <b2mhs5.hj.ln@localhost> you write:
>
>Regular expressions cannot match balanced things to an arbitrary
>depth of nesting (can the parens be nested?).
>
warn $@ if( eval{($re=$_)=~s/(\()|(\))|./$2.$1/gs&&/$re/s},$@=~/unmatched/ );
---------------------------
Of course it "cheats" by using the perl parser's stack (so it is not
a "regular expression" (using a mathematician's definition of RE)).
But it is so darn slick, and I haven't pulled it back out for a while,
so there it is :-)
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 05 Mar 2001 20:05:17 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: RFC: FAQ3 update -- Using less memory
Message-Id: <1kSo6.389$T3.189894656@news.frii.net>
In article <3AA3A43D.8320935C@home.com>,
Michael Carman <mjcarman@home.com> wrote:
>Having recently seen yet another question on reducing memory usage
>posted to c.l.p.misc, I reviewed the FAQ entry and decided that the
>answer given there isn't very helpful for most people. (Or at least the
>people most likely to ask this question.) Instead of grumbling about
>it, I decided to fix it. In the spirit of the Perl community, I'd
>appreciate any comments/additions/corrections before I submit this. The
>first three paragraphs are the current text, the rest is my addendum.
>
I've added your changes to my copy of the perl-5.6.1-TRIAL2 perlfaq3.pod
with the following very minor change. I'll post the changes to perl5porters
and the pumpking if there is no further discussion.
diff -c faqaddition.orig faqaddition
*** faqaddition.orig Mon Mar 5 12:37:26 2001
--- faqaddition Mon Mar 5 12:36:25 2001
***************
*** 56,65 ****
=item * Localize!
! Don't make anything global that doesn't have to be. Use my() prodigously
! to localize variables to the smallest possible scope. Memory freed by
! variables that have gone out of scope can be reused elsewhere,
! preventing the need for additional allocations.
=item * Pass by reference
--- 56,66 ----
=item * Localize!
! Don't make anything global that doesn't have to be. Use my()
! prodigiously to localize variables to the smallest possible scope.
! Memory freed by variables that have gone out of scope can be reused
! elsewhere in the current program, preventing the need for additional
! allocations from system memory.
=item * Pass by reference
***************
*** 78,81 ****
--- 79,83 ----
causing your hard disk to thrash due to massive swapping.
=back
+
--
This space intentionally left blank
------------------------------
Date: 05 Mar 2001 20:54:09 GMT
From: comserver@aol.com (Comserver)
Subject: server
Message-Id: <20010305155409.09083.00000624@ng-mp1.aol.com>
If you are looking for a dedicated server,
visit
http://www.maintrade.com
Low Cost Linux or NT servers are all there .
Good Luck.
------------------------------
Date: Mon, 05 Mar 2001 14:06:48 -0500
From: Anonymous <anonymous@anonymous.anonymous>
Subject: Setting Environment Vars for Win32::Process
Message-Id: <spo7atc7lk4akjfs6tku1ug3n4u5loeblo@4ax.com>
Does anyone know how I can set environment variables prior to a call
to Win32::Process so that the called process can see them?
I have tried Win32::SetEnv, but it doesn't seem to so anything
(useful) that I can detect.
TIA
--------== Posted Anonymously via Newsfeeds.Com ==-------
Featuring the worlds only Anonymous Usenet Server
-----------== http://www.newsfeeds.com ==----------
------------------------------
Date: Mon, 05 Mar 2001 21:17:21 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: sockets again
Message-Id: <ta80j150betgd9@corp.supernews.com>
H C <carvdawg@patriot.net> wrote:
>> I am looking to provide two way communication with a port (80 or 23 or
>> both) anyway I want to use IO::Sockets - first is this the right tool?
> Sure. It's one way. It's particularly useful if you want to use sockets.
Another way is Net::Telnet or LWP::UserAgent.
Chris
--
Christopher E. Stith
Programming is a tool. A tool is neither good nor evil. It is
the user who determines how it is used and to what ends.
------------------------------
Date: Mon, 05 Mar 2001 19:35:50 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: something unique
Message-Id: <ta7qkm8sf94i6a@corp.supernews.com>
Waarddebon (Waarddebon@chello.nl) wrote:
: How can I retrieve something unique (there may not be 2 the same) from each
: visitor to my website ? Idea is that I store that data and recall it at a
: later moment.
:
: I heard that not everyone has got an ip number so that isn't what I search.
Easiest way is to set a cookie and look for it later; if someone arrives
without a cookie, issue them a new unique one. Needless to say you'll
exclude people who can't or won't support cookies on their clients.
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "When the going gets weird, the weird turn pro."
| - Hunter S. Thompson
------------------------------
Date: Mon, 05 Mar 2001 20:16:11 -0000
From: Chris Stith <mischief@velma.motion.net>
Subject: Re: truncate
Message-Id: <ta7t0bbmjbhhf0@corp.supernews.com>
Alan Barclay <gorilla@elaine.furryape.com> wrote:
> In article <Pine.A41.4.20.0103041504060.98230-100000@unix1.cc.ysu.edu>,
> NagaPutih <s0218327@unix1.cc.ysu.edu> wrote:
>>On Sun, 4 Mar 2001, Bart Lateur wrote:
>>> It seems like you can skip this whole issue, and truncate the file's
>>> length to 0 before writing the string.
>>
>>your solution seems to work, but now i'm confused!
>>truncating the file to a certain number of bytes
>>doesn't work due to tainting problem, but how come
>>truncating it to 0 works without any warnings/errors?
> It's because you're trying to use a tainted value. When you truncate
> to 0, then that value isn't tainted.
As long as zero is literal and not derived from a user-controlled variable.
If you want to untaint a variable, read perldoc perlsec.
If you're overly eager to untaint a variable, which you shouldn't be, then
just pass it through a transposition operator ( tr/// or y/// ). You don't
even really have to change anything, but that's what untainting is meant to
do.
Chris
--
Christopher E. Stith
Where there's a will, there's a lawyer.
------------------------------
Date: Mon, 05 Mar 2001 19:46:15 GMT
From: "David Charles" <administrator@playauction.com>
Subject: why won't "format FILEHANDLE" work??
Message-Id: <b2So6.14672$CW4.132974@news22.bellglobal.com>
Hello,
I am trying to write a script to take an input file, and format the output
for printing reports. I have rather limited knowledge of perl so far, but I
thought that the best way to do it would be using "format" (if anyone has
any better ideas, please enlighten me). I am using the following code:
--==START OF CODE SNIPPET==--
$answer = "n";
while ($answer ne "y") {
system('cls');
print "Please enter the series: ";
$series_name = <STDIN>;
chomp($series_name);
$series_name = uc($series_name);
print "You entered Series: $series_name\n";
print "Press \"Y\" if this correct, or any other key to reenter the series:
";
$answer = <STDIN>;
chomp($answer);
$answer = lc($answer);
}
open SERIES, "<d:\\aReport\\$series_name.txt" or die "Can't open
$series_name data file: $!";
while (<SERIES>) {
($style, @inventory) = split(/;/, $_);
foreach $num (@inventory) {
$dat{$style} = "$dat{$style}\n$num";
}
print $style.$dat{$style};
}
sort keys %dat;
$ctime = localtime(time);
open REPORT, ">d:\\aReport\\print$series_name.txt" or die "Can't create
report: $!";
format REPORT_TOP =
#2345678901234567890123456789012345678901234567890123456789012345
@<<<<<<<<<<<<<<<<<<<<<<<< @||||| Page: @>>>>>
$ctime, $series_name, $%
-----------------------------------------------------------------
.
format REPORT =
@||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
{ while (($key, $val) = each %dat)
{ $key,"\n",$val }
}
.
$^ = REPORT_TOP;
$~ = REPORT;
write;
close outREPORT;
--==END OF CODE SNIPPET==--
for whatever reason (probably that I just don't understand the use of
"format"), the file that it should be writing to is always empty. I tried
writing to STDIN, which still gave no results. Can someone PLEASE help
me????
Thanks in advance,
David
------------------------------
Date: 05 Mar 2001 22:30:51 +0000
From: Jon Ericson <Jonathan.L.Ericson@jpl.nasa.gov>
Subject: Re: why won't "format FILEHANDLE" work??
Message-Id: <86n1azu9us.fsf@jon_ericson.jpl.nasa.gov>
"David Charles" <administrator@playauction.com> writes:
> I am trying to write a script to take an input file, and format the output
> for printing reports. I have rather limited knowledge of perl so far, but I
> thought that the best way to do it would be using "format" (if anyone has
> any better ideas, please enlighten me). I am using the following code:
http://search.cpan.org/search?dist=Text-Autoformat ?
> --==START OF CODE SNIPPET==--
[snip beggining of script that does not contain a select command]
> write;
perldoc -f write:
...
If FILEHANDLE is unspecified, output goes to the current
default output channel, which starts out as STDOUT but may be
changed by the "select" operator. If the FILEHANDLE is an
EXPR, then the expression is evaluated and the resulting
string is used to look up the name of the FILEHANDLE at run
time. For more on formats, see the perlform manpage.
...
Jon
------------------------------
Date: Mon, 05 Mar 2001 19:34:43 GMT
From: "Denis Hudon" <mortarandpestle@hotmail.com>
Subject: Win32::ODBC - can get info from Access97 database, but can't modify
Message-Id: <nTRo6.188087$v.16963367@typhoon.nyroc.rr.com>
I'm trying to use the perl Win32::ODBC module to manipulate my Microsoft
Access 97 database. I can generate a connection to the database, and can
get information from it using the Sql() function, but cannot modify it using
the Sql() function. In the sample code below, lines 5 through 7
successfully accesses the database, assigning the appropriate value to
$ExistUserID. Lines 9 through 10, however, which seem to execute without
error when I run the program, do not actually modify the database. I'm new
to both perl and SQL, but I believe that this second section of code should
add a new row to the table "Users" in which the column "UserID" has a value
equal to $NewUserID. What am I doing wrong? Is it even a perl problem, or
do I have something improperly configured in my ODBC control panel or in
Microsoft Access? Or is my SQL code just no good? Thanks for taking the
time to read this.
1 use Win32::ODBC;
2
3 $ModifyDatabase = new Win32::ODBC("NorthwayExchange");
4
5 $ModifyDatabase->Sql("SELECT UserID FROM Users WHERE UserID =
'$NewUserID'");
6 $ModifyDatabase->FetchRow();
7 $ExistUserID = $ModifyDatabase->Data("UserID");
8
9 $ModifyDatabase->Sql("INSERT INTO Users (UserID) VALUES ($NewUserID)");
10 $ModifyDatabase->Close();
------------------------------
Date: Mon, 5 Mar 2001 20:21:31 -0000
From: "Mart" <marts-spam-me-not-@iname.com>
Subject: Re: Win32::ODBC - can get info from Access97 database, but can't modify
Message-Id: <980saf$r19n9$1@ID-49266.news.dfncis.de>
Hi Denis,
I'm no SQL programmer, but are you trying to select data from your database
with a new userid (line 5) and then update it with the same data (line9)?
Mart
Denis Hudon <mortarandpestle@hotmail.com> wrote in message
news:nTRo6.188087$v.16963367@typhoon.nyroc.rr.com...
> I'm trying to use the perl Win32::ODBC module to manipulate my Microsoft
> Access 97 database. I can generate a connection to the database, and can
> get information from it using the Sql() function, but cannot modify it
using
> the Sql() function. In the sample code below, lines 5 through 7
> successfully accesses the database, assigning the appropriate value to
> $ExistUserID. Lines 9 through 10, however, which seem to execute without
> error when I run the program, do not actually modify the database. I'm
new
> to both perl and SQL, but I believe that this second section of code
should
> add a new row to the table "Users" in which the column "UserID" has a
value
> equal to $NewUserID. What am I doing wrong? Is it even a perl problem,
or
> do I have something improperly configured in my ODBC control panel or in
> Microsoft Access? Or is my SQL code just no good? Thanks for taking the
> time to read this.
>
> 1 use Win32::ODBC;
> 2
> 3 $ModifyDatabase = new Win32::ODBC("NorthwayExchange");
> 4
> 5 $ModifyDatabase->Sql("SELECT UserID FROM Users WHERE UserID =
> '$NewUserID'");
> 6 $ModifyDatabase->FetchRow();
> 7 $ExistUserID = $ModifyDatabase->Data("UserID");
> 8
> 9 $ModifyDatabase->Sql("INSERT INTO Users (UserID) VALUES
($NewUserID)");
> 10 $ModifyDatabase->Close();
>
>
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 422
**************************************
