[18511] in Perl-Users-Digest
Perl-Users Digest, Issue: 679 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Apr 11 18:13:22 2001
Date: Wed, 11 Apr 2001 15:10:22 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <987027021-v10-i679@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 11 Apr 2001 Volume: 10 Number: 679
Today's topics:
Re: How to redirect between STDOUT and a file? nobull@mail.com
Re: How to redirect between STDOUT and a file? (Chris Fedde)
Re: How to redirect between STDOUT and a file? <rick.delaney@home.com>
Re: How to redirect between STDOUT and a file? nobull@mail.com
Re: How to redirect between STDOUT and a file? <rick.delaney@home.com>
Re: How to redirect between STDOUT and a file? <bart.lateur@skynet.be>
Re: HTTP_X_FORWARDED_FOR??? nobull@mail.com
Re: HTTP_X_FORWARDED_FOR??? <flavell@mail.cern.ch>
Re: ieee support <nospam@yale.edu>
Re: ieee support (Abigail)
Re: inheritance within one file? (Abigail)
Re: Please Help <paulus86@ascat.de>
Re: Redirecting command output into an array (John R Ramsden)
Re: Redirecting command output into an array (John R Ramsden)
Re: Regex: Finding multiple targets <rick.delaney@home.com>
Re: Regex: Finding multiple targets <p.carmichael@btinternet.com>
Re: Regex: Finding multiple targets nobull@mail.com
Re: Sockets <mtsouk@freemail.gr>
Re: Sort by a given field alphabetically - help :) <juex@deja.com>
Re: Stripping non standard control characters from a fi <krahnj@acm.org>
Re: Why does DynaLoader fail? (Steve K. Brown)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 11 Apr 2001 18:48:38 +0100
From: nobull@mail.com
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <u9wv8r72fd.fsf@wcl-l.bham.ac.uk>
Rick Delaney <rick.delaney@home.com> writes:
> nobull@mail.com wrote:
> >
> > Indirect object syntax for constructors is deprecated.
>
> Sez who?
perldoc perlobj
"The infix arrow notation using ```->''' [...] we recommend
you use it exclusively."
If the standard documentation set that ships with a product describes
two mechanisms to do something and the immediately goes on to advise
the exclusive use of one of these mechanisms, I think it is fair to
conclude that the other should be considered deprecated.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 11 Apr 2001 18:43:08 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <0B1B6.821$T3.193098240@news.frii.net>
In article <u9wv8r72fd.fsf@wcl-l.bham.ac.uk>, <nobull@mail.com> wrote:
>Rick Delaney <rick.delaney@home.com> writes:
>
>> nobull@mail.com wrote:
>> >
>> > Indirect object syntax for constructors is deprecated.
>>
>> Sez who?
>
>[deleted quote from perldoc perlobj]
>
>I think it is fair to
>conclude that the other should be considered deprecated.
>
I know that you are aware that depreciated and deprecated have
specific meanings when talking about software products. I can not
find anywhere in the 5.6.0 manual pages where the word deprecated
is associated with the phrase indirect object syntax. At most
the manual recommends against its casual use but does not say that
the form is going away in some future revision.
Have a nice day
chris
--
This space intentionally left blank
------------------------------
Date: Wed, 11 Apr 2001 18:48:44 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <3AD4AA48.917EEC8F@home.com>
nobull@mail.com wrote:
>
> If the standard documentation set that ships with a product describes
> two mechanisms to do something and the immediately goes on to advise
> the exclusive use of one of these mechanisms, I think it is fair to
> conclude that the other should be considered deprecated.
Until said documentation uses the magic word, "deprecated", the
construct it describes ain't deprecated. Alternatively, when use of
this construct starts spewing out warnings then it will be clearly
deprecated. In the meantime it is merely "contra-indicated" as Chris
points out.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: 11 Apr 2001 20:03:02 +0100
From: nobull@mail.com
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <u9ae5n6yzd.fsf@wcl-l.bham.ac.uk>
cfedde@fedde.littleton.co.us (Chris Fedde) writes:
> I know that you are aware that depreciated and deprecated have
> specific meanings when talking about software products.
That's a rash assumption. Indeed I would have thought it was quite
clear from my statements that I was applying the term inappropriately.
Should I have said 'depreciated'? Or would 'discouraged' have been
better?
I know this is strictly OT but anyone fancy defining the two terms?
(I've looked in Webster's and that doesn't help).
Oh well, at least I get an excuse to give the alternate sig an outing.
--
( )
. _____[oo
.__/ /\@
. l____/
# ll ll
###LL LL
------------------------------
Date: Wed, 11 Apr 2001 19:38:18 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <3AD4B5E5.6F7ECE4A@home.com>
nobull@mail.com wrote:
>
> Should I have said 'depreciated'? Or would 'discouraged' have been
> better?
"Discouraged" sounds good.
> I know this is strictly OT but anyone fancy defining the two terms?
> (I've looked in Webster's and that doesn't help).
From the Jargon File (http://www.tuxedo.org/~esr/jargon/):
deprecated adj.
Said of a program or feature that is considered obsolescent and in the
process of being phased out, usually in favor of a specified
replacement.
Deprecated features can, unfortunately, linger on for many years. This
term appears with distressing frequency in standards documents when the
committees writing the documents realize that large amounts of extant
(and presumably happily working) code depend on the feature(s) that have
passed out of favor. See also dusty deck.
[Usage note: don't confuse this word with `depreciate', or the verb form
`deprecate' with `depreciated`. They are different words; see any
dictionary
for discussion.]
Note: "in the process of being phased out". Indirect object syntax is
not disappearing from Perl anytime soon; not from perl 5 anyway.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 11 Apr 2001 21:36:48 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: How to redirect between STDOUT and a file?
Message-Id: <2kj9dt4mf6sf7v7u9bqlbhg7maah80t14t@4ax.com>
Stephan Gross wrote:
>$OUTFILE = "C:\\BRP_Summary.html";
>open(OUT, "> $OUTFILE") || die "Cannot open $OUTFILE for output:
>$!\n";
>print OUT "<TITLE>$type Report<\/TITLE>\n";
>etc.
>
>Now I want the output to appear in a web browser, so I need to
>redirect OUT to be STDOUT. I can edit the file and remove the OUT
>filehandle, but if I want to go back to producing the standalone html
>file, I have to re-edit the code. Is there a simple way to redefine
>OUT to be STDOUT?
open STDOUT, ">$outfile" if $wantanoutfile;
Remove all references to OUT.
--
Bart.
------------------------------
Date: 11 Apr 2001 18:54:24 +0100
From: nobull@mail.com
Subject: Re: HTTP_X_FORWARDED_FOR???
Message-Id: <u9u23v725r.fsf@wcl-l.bham.ac.uk>
"Chris Hess" <chris.hess@intel.com> writes:
> Newsgroups: comp.lang.perl.misc
> I'm trying to write a perl/cgi page
Yes but this is comp.lang.perl.misc should only post here if you have
questions that pertain to the Perl parts of what you are doing.
> Is there anything special you have to do to Apache...
Apache configuation, for example, is off-topic here.
Please go to the comp.infosystems.www hierachy.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 11 Apr 2001 20:19:55 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: HTTP_X_FORWARDED_FOR???
Message-Id: <Pine.LNX.4.30.0104112018381.15082-100000@lxplus003.cern.ch>
On Wed, 11 Apr 2001, Chris Hess wrote:
> I'm trying to write a perl/cgi page that gets the client's ip address
> through a proxy server.
This is not a Perl language question. See f'up to appropriate group.
[f'ups set]
------------------------------
Date: Wed, 11 Apr 2001 20:20:46 GMT
From: "ivo welch" <nospam@yale.edu>
Subject: Re: ieee support
Message-Id: <9b2eas$4c2$1@news.ycc.yale.edu>
Well, NaN is often used to denote a "missing data" item in a data series.
Naturally, all further computations using this data are also missing. NaN's
are automatically propagated by the IEEE standard into any further
computations.
An NaN is semantically a different thing from receiving a "hello" in a
numerical field. The latter should trigger an error (or a warning), while
the former need not (it is, well, "expected").
Perl is a superb language to manipulate mixed data, but this is a major
distraction.
PS: The glibc standard library (used, e.g., in linux) have handled NaN's
without a problem for a couple of years now. So, with perl being able to
use atof, scanf, printf etc. in its code (at least on linux), this should
not require much extra effort.
/iaw
------------------------------
Date: Wed, 11 Apr 2001 21:39:05 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: ieee support
Message-Id: <slrn9d9jnp.jvh.abigail@tsathoggua.rlyeh.net>
ivo welch (nospam@yale.edu) wrote on MMDCCLXXX September MCMXCIII in
<URL:news:9b2eas$4c2$1@news.ycc.yale.edu>:
))
)) Well, NaN is often used to denote a "missing data" item in a data series.
)) Naturally, all further computations using this data are also missing. NaN's
)) are automatically propagated by the IEEE standard into any further
)) computations.
))
)) An NaN is semantically a different thing from receiving a "hello" in a
)) numerical field. The latter should trigger an error (or a warning), while
)) the former need not (it is, well, "expected").
))
)) Perl is a superb language to manipulate mixed data, but this is a major
)) distraction.
))
)) PS: The glibc standard library (used, e.g., in linux) have handled NaN's
)) without a problem for a couple of years now. So, with perl being able to
)) use atof, scanf, printf etc. in its code (at least on linux), this should
)) not require much extra effort.
Perl runs on a a few more platforms than just Linux. And while I agree
that support of NaN is useful, an argument of "it's easy on Linux" doesn't
say much.
Note however that Perl *does* support 'NaN':
$ perl -wle '$a = 1; $b = "NaN"; print $a + $b'
Argument "NaN" isn't numeric in addition (+) at -e line 1.
nan
$
The emitted warning could be better though.
But, if it's not requiring much extra effort, I'm sure ivo will soon
submit a patch.
Abigail
--
# Perl 5.6.0 broke this.
%0=map{reverse+chop,$_}ABC,ACB,BAC,BCA,CAB,CBA;$_=shift().AC;1while+s/(\d+)((.)
(.))/($0=$1-1)?"$0$3$0{$2}1$2$0$0{$2}$4":"$3 => $4\n"/xeg;print#Towers of Hanoi
------------------------------
Date: Wed, 11 Apr 2001 21:14:27 +0000 (UTC)
From: abigail@foad.org (Abigail)
Subject: Re: inheritance within one file?
Message-Id: <slrn9d9i9j.jvh.abigail@tsathoggua.rlyeh.net>
Uri Guttman (uri@sysarch.com) wrote on MMDCCLXXX September MCMXCIII in
<URL:news:x7wv8rnyhk.fsf@home.sysarch.com>:
$$
$$ that was similar to what i thought you meant. the problem i see is with
$$ constructor name collision. that is why naming constructors 'new' and
$$ using the direct method call with the class name never has a name space
$$ problem or any ambiguity:
$$
$$ $obj = FOO->new() ;
$$
$$ can mean only one thing.
$$
$$ $obj = constructor( blah ... ) ;
$$
$$ is not clear what it is constructing. so the name needs to reflect the
$$ class anyway and needs to be unique enough to not collide with other
$$ similar names.
FUD. Pure FUD. Of course can subs give name clashes, but then, so can
classes. It's easier to deal with a name clash for an exported function
though: don't run import. It's not so easy to deal with class name
collision though.
$$ so i would stay clear of exporting constructors. i feel it is more
$$ trouble than it's worth.
Then the right way to tackle this perceived problem is to stay away
from any module that exports anything. Because anything exported can
lead to name clashes, that's not something that only happens when OO
modules export something.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Wed, 11 Apr 2001 23:00:25 +0200
From: "Florian Paulus" <paulus86@ascat.de>
Subject: Re: Please Help
Message-Id: <9b2gmc$77hb6$1@ID-62217.news.dfncis.de>
"Waarddebon" <Waarddebon@chello.nl> wrote at
news:1PYy6.234312$j_4.3099564@Flipper...
> Why doesn't this work ?
>
> $remote2="today";
> open (THEFILE,"/data1/hm/makers/bezoekers/$remote2");
^^^^
you open for read only how do you think you can write then? try sth like
open THEFILE, ">outfile";
^^^
HTH
> print THEFILE "hi";
> close THEFILE;
>
>
------------------------------
Date: Wed, 11 Apr 2001 21:21:37 GMT
From: jr@redmink.demon.co.uk (John R Ramsden)
Subject: Re: Redirecting command output into an array
Message-Id: <3ad4cad1.97646382@news.demon.co.uk>
gorilla@elaine.furryape.com (Alan Barclay) wrote:
>
> John R Ramsden <jr@redmink.demon.co.uk> wrote:
> >
> > For this purpose I need to grab the output from a line such as
> > system("md5 image.jpg"). Obviously one can redirect the command
> > into a file and then read the file; but I was hoping for a simpler
> > approach. Any suggestions gratefully received.
>
> Go to http://search.cpan.org and enter MD5
>
> Whenever you're trying to do something that someone might have
> done before, this should be your first step.
Thanks, I'll bear that in mind, although my question wasn't about
MD5 as such and I only expanded on this aspect slightly in case
anyone might be interested.
As you may have seen, Gwyn Judd came up with the solution, simple
in retrospect. Just use: @var = `some_command`;
Cheers
---------------------------------------------------------------------------
John R Ramsden (jr@redmink.demon.co.uk)
---------------------------------------------------------------------------
The new is in the old concealed, the old is in the new revealed.
St Augustine.
---------------------------------------------------------------------------
------------------------------
Date: Wed, 11 Apr 2001 21:21:36 GMT
From: jr@redmink.demon.co.uk (John R Ramsden)
Subject: Re: Redirecting command output into an array
Message-Id: <3ad4caad.97610031@news.demon.co.uk>
tjla@guvfybir.qlaqaf.bet (Gwyn Judd) wrote:
>
> I was shocked! How could John R Ramsden <jr@redmink.demon.co.uk>
> say such a terrible thing:
> >
> > It's probably childishly simple to a Perl guru, and I may even
> > figure it out myself before anyone has a chance to reply, but
> > in a Perl program is there a simple method for redirecting the
> > output of a command into an array?
>
> You mean like this:
>
> @array = `some_command`;
Yup, that worked a treat. I tried system("`some_command`") and
several other combinations, but oddly not that one. Thanks.
Cheers
---------------------------------------------------------------------------
John R Ramsden (jr@redmink.demon.co.uk)
---------------------------------------------------------------------------
The new is in the old concealed, the old is in the new revealed.
St Augustine.
---------------------------------------------------------------------------
------------------------------
Date: Wed, 11 Apr 2001 18:27:18 GMT
From: Rick Delaney <rick.delaney@home.com>
Subject: Re: Regex: Finding multiple targets
Message-Id: <3AD4A541.2B59CCA6@home.com>
Rick Delaney wrote:
>
> > pos($string) = 0; # reset position for next match
>
> You only need this because you're using /g in scalar context. Why are
> you using /g?
Just remembered that you need to use /g to set pos in the first place.
--
Rick Delaney
rick.delaney@home.com
------------------------------
Date: Wed, 11 Apr 2001 19:39:01 +0100
From: "Patrick Carmichael" <p.carmichael@btinternet.com>
Subject: Re: Regex: Finding multiple targets
Message-Id: <9b28hh$j9r$1@uranium.btinternet.com>
They've (unfortunately) got to be regexes .. I hadn't thought of using pos()
in that way. Thanks for the help.
------------------------------
Date: 11 Apr 2001 20:04:25 +0100
From: nobull@mail.com
Subject: Re: Regex: Finding multiple targets
Message-Id: <u98zl76yx2.fsf@wcl-l.bham.ac.uk>
"Patrick Carmichael" <p.carmichael@btinternet.com> writes:
> I'm traversing a hash and searching for each value in a block of text. If
> they are found (no problem with that) I want to print them out *in the
> order* in which they *first appear* in the target text.
>
> Is there a simple way of doing this?
In 5.6 yes:
my @seen;
s/(${\join ')|(', @patterns )})/print $patterns[$#- - 1] unless $seen[$#- - 1]++/eg;
Note, this is simple - I didn't say it was efficient.
This assumes that none of the patterns contain capturing subexpressions.
> I can sort them on the length of $`
This is likely to be more efficient (see FAQ).
BTW in 5.6 length($`) is better written as $-[0]
Note: if searching for literal strings not patterns then index() is
preferable to pattern matching.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 11 Apr 2001 22:15:26 +0300
From: "Mihalis Tsoukalos" <mtsouk@freemail.gr>
Subject: Re: Sockets
Message-Id: <9b2amt$2o7k$1@ulysses.noc.ntua.gr>
I would suggest buying the "Network Programming with Perl" book if you want
to deal with sockets and networking.
cheers,
Mihalis.
Simon Stiefel <SiStie@nuclear-network.com> wrote in message
news:Pine.LNX.4.31.0103262137250.2338-100000@server.stiefel.priv...
Hi,
I just tried out the sockets.
I have to add, that I am a newbie on this section.
I've written a client and a server-script (from the Perl Cookbook).
Now, the Client shall send a string to the Server.
How can I do that? ;-))
Here are the scripts:
--- server.pl ----
#!/usr/bin/perl -w
use diagnostics;
$server_port = 1234; # Server-Port
use IO::Socket;
if ($server = IO::Socket::INET->new(LocalPort => $server_port,
Type => SOCK_STREAM,
Reuse => 1,
Listen => 10 )
or die "Couldn't run server on port $server_port: $@\n")
{
print "Server running at port $server_port...\n";
}
while ($client = $server->accept()) {
$server->recv($receive_data, 10);
print "Client connected...\n";
print $receive_data;
}
close($server);
----- client.pl -----
#!/usr/bin/perl -w
use IO::Socket;
use diagnostics;
$socket = IO::Socket::INET->new(PeerAddr => "server.stiefel.priv",
PeerPort => 1234,
Proto => "tcp",
Type => SOCK_STREAM,
Timeout => "1000")
or die "Couldn't etablish connection: $@\n";
$socket->send("Hallo", 10) or die "Couldn't send data...$@\n";
$answer = <$socket>;
print $answer;
close($socket);
---- END ----
So, what have I to do exacly, that the string "Hallo" will be printed on
the server-script?
Thank you.
Mit freundlichen Grüßen, .~. Open Minds.
with best regards /V\ Open Sources.
// \\ Open Future!
Simon Stiefel /( )\_ I N U X
^ ~ ^
--
|Simon Stiefel | Zwerbachstrasse 17 | 72555 Metzingen-Glems | Germany |
|SimonStiefel@nuclear-network.com | http://www.nuclear-network.com |
|ICQ#: 20196644 | phone: +49(0)7123/379070 | fax: +49(0)179/335990106 |
|Tux#: 114751 | PingoS - Linux-User helfen Schulen | Powered by LiNUX |
------------------------------
Date: Wed, 11 Apr 2001 11:31:22 -0700
From: "Jürgen Exner" <juex@deja.com>
Subject: Re: Sort by a given field alphabetically - help :)
Message-Id: <3ad4a2fb@news.microsoft.com>
"Chris Bell" <cbell@interlog.com> wrote in message
news:znPA6.44413$9O3.1244285@news.total.net...
> I simply want to sort Field[4] alphabetically
> [...]
I would split it into an array of single characters, sort the array, and
then join the array elements again:
join('',
sort(
split(//,$Field[4])
)
)
I'm sure there are other ways.
jue
------------------------------
Date: Wed, 11 Apr 2001 19:28:50 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: Stripping non standard control characters from a file
Message-Id: <3AD4B07E.C53D6031@acm.org>
Logan Shaw wrote:
>
> Sure, you can strip all such characters out like this:
>
> perl -pe 'tr/^\x20-\x7F//dc' foo.wordstar > foo.txt
>
> But surely you don't want to do that, because a newline is a control
> character and a very useful one. So maybe this:
>
> perl -pe 'tr/^\x20-\x7F\n//dc' foo.wordstar > foo.txt
*
Do you want the caret [^] (ASCII character 0x5E) in there twice?
> The "tr" operator is a lot like the Unix "tr" command. If that
> doesn't mean anything to you, think of "tr" as being a lot like
> the substitution operator ("s").
>
> For more information, do "perldoc perlop"; the description of "tr" is
> in the "Regexp Quote-Like Operators" section.
John
--
use Perl;
program
fulfillment
------------------------------
Date: 11 Apr 2001 20:59:55 GMT
From: skbrown@vcd.hp.com (Steve K. Brown)
Subject: Re: Why does DynaLoader fail?
Message-Id: <9b2gkb$ibc$1@news.vcd.hp.com>
Logan Shaw (logan@cs.utexas.edu) wrote:
:" "In article <9b24v5$hgp$1@news.vcd.hp.com>,
:" "Steve K. Brown <skbrown@vcd.hp.com> wrote:
:" ">Bjoern Hoehrmann (bjoern@hoehrmann.de) wrote:
:" ">:" "* Steve K. Brown wrote in comp.lang.perl.misc:
:" ">:" ">I received the following error:
:" ">:" ">
:" ">:" ">Can't load '/usr/local/bin/perl5/lib/5.00503/PA-RISC1.1/auto/IO/IO.sl'
:" ">:" ">for module IO: Permission denied at
:" ">
:" ">:" ">So the question is why?
:" ">
:" ">:" "What isn't clear about that?
:" ">:" "--
:" ">Why is permission denied? I am root and I can't load a module?
:" ">Unless this command is trying to write to a file I should be able
:" ">to perform this action. Why not?
:" "Forgetting for a moment that this is a Unix question and not a Perl
:" "question, a few possible reasons come to mind:
I am sorry I posted an off topic article. I was tring to install this
module and got the same error. I have fixed the problem by changing the
permissions on the offending files. I had assumed that CPAN would take
care of these things during the install. Was I wrong?
Thanks for the information,
Steven K Brown
------------------------------
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.
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 679
**************************************
