[29348] in Perl-Users-Digest
Perl-Users Digest, Issue: 592 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jun 28 00:10:03 2007
Date: Wed, 27 Jun 2007 21:09:05 -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 Wed, 27 Jun 2007 Volume: 11 Number: 592
Today's topics:
Re: "Out of memory!" ??? <savagebeaste@yahoo.com>
Re: "Out of memory!" ??? <bik.mido@tiscalinet.it>
Re: "Out of memory!" ??? <bik.mido@tiscalinet.it>
Re: "Out of memory!" ??? <bik.mido@tiscalinet.it>
Re: "Out of memory!" ??? <bik.mido@tiscalinet.it>
Re: FAQ 1.6 What is perl6? <tadmc@seesig.invalid>
Re: FAQ 1.6 What is perl6? <savagebeaste@yahoo.com>
Re: Help: Binary <tadmc@seesig.invalid>
Re: Help: Binary <attn.steven.kuo@gmail.com>
Re: Oh great gurus of the list, I need help with a regu <baxter.brad@gmail.com>
Re: Perl Best Practices - Code Formatting. <baxter.brad@gmail.com>
Re: Perl Best Practices - Code Formatting. <baxter.brad@gmail.com>
Re: Read File into multi-dimensional array ignore white <tadmc@seesig.invalid>
Re: Read File into multi-dimensional array ignore white <bik.mido@tiscalinet.it>
Re: skip first N lines when reading file <baxter.brad@gmail.com>
Re: using wildcards with -e <dummy@example.com>
Re: using wildcards with -e <bik.mido@tiscalinet.it>
Re: using wildcards with -e <bik.mido@tiscalinet.it>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 27 Jun 2007 15:51:57 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: "Out of memory!" ???
Message-Id: <5eg80kF37u8blU1@mid.individual.net>
xhoster@gmail.com wrote:
> Jie <jiehuang001@gmail.com> wrote:
>> Hi, I have this script trying to do something for an array of files.
>> The script is posted at http://www.humanbee.com/CHE/MERGE.txt
>>
>> As you can see, for each file in
>> ("1","2","3","4","5","6","7","8","9"....
>> some processing will be carried out. Even though my Mac has 6G
>> memory, the program will give this following message after
>> processing file "4". My question is, if there is enough memory to
>> process each one individually, why there is not enough memory to
>> process the array in a loop by using "foreach". I assume within this
>> foreach loop, when one file is finished processing and the output
>> file is written, the memory will be released, to begin processing
>> the next one. Isn't that true??
>
> No. You make heavy use symbolic references. They aren't
> automatically cleaned up, as Perl has no way of knowing when they
> won't be used again. This is one of the reasons (probably a lesser
> one of them) why symbolic references are usually not a good thing.
I seem to recall something like the following can be one solution:
foreach $f (@files) {
local(*IN);
local(*OUT);
...
open OUT, "> OUTPUT-cc/$f" . ".ped";
...
open IN, "< cc555k/$map";
...
...
Would localize the symbolic references (file handles in this case) for
each iteration of the outer most foreach loop, IIRC.
Of cource it may just be better to declare lexical variables and use
those as handles:
foreach $f (@files) {
my ($in, $out);
...
open $out, "> OUTPUT-cc/$f" . ".ped";
...
open $in, "< cc555k/$map";
...
...
I think you could even use a hash or array instead of individual scalars
if you wanted as well.
--
CL
------------------------------
Date: Thu, 28 Jun 2007 01:29:32 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: "Out of memory!" ???
Message-Id: <rls583l9vmi514085r8mmtbgc6brt39qhg@4ax.com>
On Wed, 27 Jun 2007 20:10:04 GMT, "Jürgen Exner"
<jurgenex@hotmail.com> wrote:
>Jie wrote:
[snip]
>Solution: rewrite your code in a clean way that does not use symbolic
>references (which are evil to begin with).
(To Jie:) just read about real references at
perldoc perlref
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, 28 Jun 2007 01:33:15 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: "Out of memory!" ???
Message-Id: <rrs583dna7mjg378us0fmrkb8j70hbpkua@4ax.com>
On Wed, 27 Jun 2007 15:51:57 -0700, "Clenna Lumina"
<savagebeaste@yahoo.com> wrote:
> foreach $f (@files) {
> local(*IN);
> local(*OUT);
No need for these with modern enough perls. One can just use lexical
filehandles.
>Would localize the symbolic references (file handles in this case) for
>each iteration of the outer most foreach loop, IIRC.
The symrefs which probably eat up memory for the OP are stuff like
${$sample_ID} in his code.
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, 28 Jun 2007 01:28:21 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: "Out of memory!" ???
Message-Id: <cis583ptqge5qbdpc70ac877v8fdq5spgb@4ax.com>
On Wed, 27 Jun 2007 12:47:52 -0700, Jie <jiehuang001@gmail.com> wrote:
>loop? ..... I realize there is too much computation for each file,
>that is why i write the output for each file into a temp file under
>the "OUTPUT" folder..
Not too much computation, but too much memory usage. Now is it all
*necessary*? If so, then you could go the way of trading speed
execution for disk space perhaps thanks to some Tie::* module,
otherwise just don't waste it!
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, 28 Jun 2007 01:25:39 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: "Out of memory!" ???
Message-Id: <0es5831sgm9cdjqlod5glh72883ps0fesa@4ax.com>
On Wed, 27 Jun 2007 11:07:28 -0700, Jie <jiehuang001@gmail.com> wrote:
>Also, for another program, when I use "foreach <IN-FILE>", it runs out
>of memory. but when I change to "while<IN-FILE>", it works fine...
>Strange....
Not that strange. In fact we recommend doing so all the time. Perl 6
will be different in this regard, but then the iterator over a
filehandle won't be given by angular parentheses either.
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: Wed, 27 Jun 2007 17:27:04 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: FAQ 1.6 What is perl6?
Message-Id: <slrnf85p1o.6vj.tadmc@tadmc30.sbcglobal.net>
Jim Carlock <anonymous@127.0.0.1> wrote:
> "Tad McClellan" wrote:
>: Like acceptable spelling.
>:
>: If some famous Perl guy would of jsut implemented a spell-correcting
>: 'bot, then things would of been a lot better around here...
>
> Acceptable grammar? "would have been" or "would of been"?
Yes, I know. You missed the joke.
I was mocking the troll by repeating his characteristic foibles
from earlier appearances here.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 27 Jun 2007 15:59:30 -0700
From: "Clenna Lumina" <savagebeaste@yahoo.com>
Subject: Re: FAQ 1.6 What is perl6?
Message-Id: <5eg8eoF35o79kU1@mid.individual.net>
Tad McClellan wrote:
> Jim Carlock <anonymous@127.0.0.1> wrote:
>> "Tad McClellan" wrote:
>>> Like acceptable spelling.
>>>
>>> If some famous Perl guy would of jsut implemented a spell-correcting
>>> 'bot, then things would of been a lot better around here...
>>
>> Acceptable grammar? "would have been" or "would of been"?
>
>
> Yes, I know. You missed the joke.
>
> I was mocking the troll by repeating his characteristic foibles
> from earlier appearances here.
With respect, you were (and still are) making an ass of yourself,
continuing to perpetuate you have a solid case based solely on
fallacies. It's no different then convicting someone because they
tripped while walking down the street. It occurs by the millions every
day, yet, using Tad's logic, can somehow be just one person. A digital
pile of manure if I ever saw one.
--
CL
------------------------------
Date: Wed, 27 Jun 2007 17:28:50 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Help: Binary
Message-Id: <slrnf85p52.6vj.tadmc@tadmc30.sbcglobal.net>
Amy Lee <openlinuxsource@gmail.com> wrote:
> Is there any programs that can convert perl codes to binary mode?
Yes. (I think)
> I use Linux system.
Me too.
> Thanks in advance~
You're welcome.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 27 Jun 2007 17:08:37 -0700
From: "attn.steven.kuo@gmail.com" <attn.steven.kuo@gmail.com>
Subject: Re: Help: Binary
Message-Id: <1182989317.579995.189260@z28g2000prd.googlegroups.com>
On Jun 27, 7:39 am, "Amy Lee" <openlinuxsou...@gmail.com> wrote:
> Hi,
>
> Is there any programs that can convert perl codes to binary mode?
>
> I use Linux system.
>
> Thanks in advance~
Actually, I don't clearly understand this question either.
Other have pointed out 'binmode'. I, on the other hand,
interpreted your question as being related to this FAQ:
$ perldoc -q "byte code"
--
Hope this helps,
Steven
------------------------------
Date: Thu, 28 Jun 2007 02:08:58 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: Oh great gurus of the list, I need help with a regular expression please
Message-Id: <1182996538.146693.14970@u2g2000hsc.googlegroups.com>
On Jun 27, 12:15 pm, "Clenna Lumina" <savagebea...@yahoo.com> wrote:
> Paul Lalli wrote:
> > On Jun 27, 9:52 am, cate <cate.donog...@gmail.com> wrote:
> >> right. After this one I gave up:
> >> $/='<'.$ARGV[1].' loc="\w+">';
>
> > $/ is a string. You cannot put a regular expression into it. (Though
> > see File::Stream for a way around that restriction)
>
> Although being able to use $/ as a regex would be rather nifty, if you
> think about it. True, it would mimic split() in some ways, but the big
> difference would be every 'line' read would be delimited by the regex
> rather than "\n", in which you'd have to read in either big chunks or
> the whole file entirely and _then_ apply the split, because trying to
> apply a split like this on normal ("\n" delimited) lines cannot catch
> multi-line delimited data. At least nowhere as elegant and cleanly as
> this potentially would.
>
> Bottom line: applying regex as an $INPUT_RECORD_SEPARATOR would be
> infinitely useful, and to me seems right up Perl's alley.
>
> An idea for Perl 6 perhaps?
Remember: the value of $/ is a string, not a regex.
awk has to be better for something. :-)
-- perlvar
Apparently, it was a (rejected) idea for Perl 5 way back when ...
--
Brad
------------------------------
Date: Thu, 28 Jun 2007 01:47:57 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <1182995277.320484.220730@m36g2000hse.googlegroups.com>
On Jun 23, 12:38 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "MD" == Michele Dondi <bik.m...@tiscalinet.it> writes:
>
> MD> On Fri, 22 Jun 2007 12:10:20 -0700, "Wayne M. Poe"
> MD> <louisREM...@REMOVEh4h.com> wrote:
>
> >> Personally I find a greator problem in working with code that uses one
> >> or more differnce intent spacings (I tend to use 3, but have worked with
> >> people who prefer 4, 5 or even 8, and soemtiems they are raw spaces and
> >> soemtiems raw tabs.
>
> MD> Yep, and then there' a *fantastic* PM freak exposing his "arguement in
> MD> favor of tabs" at <http://perlmonks.org/?node_id=576936>.
>
> actually damian (and myself) support raw tabs for indent. the reason is
> that the actual tab count is the actual indent in all cases. there is no
> need to deal with variable spaces or mixed spaces and tabs. almost all
> decent editors can display the tabs as any width of spaces so you can
> see it the way you want but the indent is just tabs.
I'm a bit relieved. I had been coding with tabs for all of those
reason for a number of years. I stopped when a) no one else in our
group did, and b) I found that CPAN in general frowned on the
practice. :-(
In truth, I'm agnostic. I thought I was doing a Good Thing, but
spaces are fine with me.
--
Brad
------------------------------
Date: Thu, 28 Jun 2007 01:56:54 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: Perl Best Practices - Code Formatting.
Message-Id: <1182995814.161782.234310@m36g2000hse.googlegroups.com>
On Jun 22, 9:00 am, Abigail <abig...@abigail.be> wrote:
> What always amazes me is dat discussions about coding standards always
> rapidly focusses on layout nitpicks and other trivial things.
>
> I don't care whether code I inherit use K&R bracing style, or BSD bracing
> style, or whether is uses 3 or 4 space indent, or whether it uses single
> or double quotes to delimit constant strings.
>
> I *do* care about readable, structured code. And such code *IS NOT* about
> always using /x in your regexp, or not using postfix 'if' or most of the
> guidelines about PBP. Nor is about most of the stuff perlcritic warns about.
>
> Proper encapsulation, the right abstraction, sensible variable names, useful
> comments, etc, that's important.
>
> Forget the trivial formatting stuff.
I'll add a couple: documented API, test suite. I've learned from
resistant experience that, without these, no matter how pretty one's
code is, it's probably wrong.
--
Brad
------------------------------
Date: Wed, 27 Jun 2007 17:40:58 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Read File into multi-dimensional array ignore whitespace
Message-Id: <slrnf85prq.6vj.tadmc@tadmc30.sbcglobal.net>
vorticitywolfe@gmail.com <vorticitywolfe@gmail.com> wrote:
> Hello, a newbie question...
>
> I have a file that looks like this:
> ########test.txt#########
> 28 0742 1715 0656 1800 0602 1839 0506 1920 0430 1956 0427 2011
> 29 0741 1716 0600 1840 0505 1922 0429 1957 0427 2011
> 0454
> 30 0740 1718 0558 1842 0503 1923 0429 1958 0428 2011
> 0455
> 31 0739 1719 0556 1843 0428
> 1959 0457
> #######################
>
> and I read it with this code:
>
> ###########test.pl###########
> while(my $line = <INPUT>){
> push @AoA, [ split ];
Errr, you are splitting the string that is in $_ .
Where is it that you put a string into $_ ?
> 3.) If I print @AoA; I get the: ARRAY(BLAH BLAH) ARRAY(BLAH BLAH). I
> know this is because I am not printing a scalar.
No, it is because you _are_ printing a scalar (a reference).
> But the question here
> is: Is there a way to print an array without for looping through each
> element?
No.
local $" = ',';
print map "@$_\n", @AoA;
but map() is just a foreach() in disguise, so you are still looping.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 28 Jun 2007 01:39:49 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Read File into multi-dimensional array ignore whitespace
Message-Id: <g1t583hi6eiha6gb87nbg29mrd6p38ibbh@4ax.com>
On Wed, 27 Jun 2007 11:26:19 -0700, vorticitywolfe@gmail.com wrote:
>1.) What does this mean in the documentation, i.e. I don't get what
>function the line should be calling , and it is not explained? I see
>that it is trying to index $AoA with row $x and column $y, but the
>function is throwing me off.
>
> for $x (1 .. 10) {
> for $y (1 .. 10) {
> $AoA[$x][$y] = func($x, $y);
> }
> }
It is a *generic* subroutine or builtin function. It's an example
after all. Try any expression involving $x and $y e.g. $x*($y-$x).
>2) the push@AoA, [ split ]; thinks the 3rd column is blank space and
>combines the array into 8 elements (for the last line ) as opposed to
>13 for the first).
Well, that's because the first line contains 13 whitespace separated
numbers and the last one 8. Did you expect something different? From
your sample it is not entirely possible to understand whether your
data is supposed to be whitespace-separated or has fixed width fields
(with possibly blank ones). In the latter case, you have to follow a
radically different approach.
>3.) If I print @AoA; I get the: ARRAY(BLAH BLAH) ARRAY(BLAH BLAH). I
>know this is because I am not printing a scalar. But the question here
>is: Is there a way to print an array without for looping through each
>element?
perldoc Data::Dumper
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, 28 Jun 2007 02:34:38 -0000
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: skip first N lines when reading file
Message-Id: <1182998078.707156.13930@g4g2000hsf.googlegroups.com>
On Jun 27, 11:59 am, Jie <jiehuang...@gmail.com> wrote:
> Hi,
>
> can someone please let me know how to skip first N lines when reading
> a file in perl? I know that I can write something like below, but too
> much coding and computing is involved.
>
> also, can someone please let me know if there is a master pdf file
> that has all the perl documentation content. right now, from
> perldoc.per.org i found it is divided into many many files..
>
> ======my code to skip first N lines======
>
> $line = 0;
> while(<IN>) {
> if ($line <= N) {
> } else {
> do something
> }
>
> }
Too much coding? Do I hear that right?
perl -ne'BEGIN{$n=4}print if$.>$n' file
perl -pe'INIT{$n=4}$_=""if$.<=$n' file
--
Brad
------------------------------
Date: Wed, 27 Jun 2007 22:18:02 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: using wildcards with -e
Message-Id: <umBgi.12332$tB5.11536@edtnps90>
Peter Makholm wrote:
> DMB <dummymb@hotmail.com> writes:
>
>> I'd like to make it so that it doesn't matter what the filename is.
>> I'm only interested in the suffix. I was thinking along the lines
>> of...
>>
>> if (-e $done_dir."*.DOC") {
>> print "found it\n";
>> } else {
>> print "nope\n";
>> }
>
> You might want to look at the glob function which expands these kinds
> of wildcards into a list of files. So something like
>
> if (grep { -e $_ } glob("$donedir/*.DOC") ) {
> print "Found it";
> }
You shouldn't need the grep, this should work:
if ( glob "$donedir/*.DOC" ) {
print "Found it";
}
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, 28 Jun 2007 01:43:41 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: using wildcards with -e
Message-Id: <4ft58392lb2p5b1p6vv8vnblpo02e90rpt@4ax.com>
On Wed, 27 Jun 2007 21:07:40 -0000, DMB <dummymb@hotmail.com> wrote:
>if (-e $done_dir."*.DOC") {
> print "found it\n";
>} else {
> print "nope\n";
>}
>
>but of course this does not work in perl. I'm sure there is an easy
>solution to this, but I can't seem to find a example online or in any
>of my books of using -e and wildcards.
if (grep -e, glob "$done_dir*.DOC") {
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, 28 Jun 2007 01:44:58 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: using wildcards with -e
Message-Id: <5jt583d7jhhicalng3v1amulog17abbshf@4ax.com>
On Wed, 27 Jun 2007 22:18:02 GMT, "John W. Krahn" <dummy@example.com>
wrote:
>You shouldn't need the grep, this should work:
>
>if ( glob "$donedir/*.DOC" ) {
> print "Found it";
>}
D'Oh! Just as obvious as I also missed that!
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: 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 592
**************************************
