[6983] in Perl-Users-Digest
Perl-Users Digest, Issue: 608 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Jun 13 06:17:17 1997
Date: Fri, 13 Jun 97 03:00:20 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 13 Jun 1997 Volume: 8 Number: 608
Today's topics:
Re: analyse passwd on Perl? <sibsib@hotmail.com>
append to htl file <david@gilmartin.uk.com>
Re: CORBA Perl mapping? <msm@iweb.net>
DBM (Monty VanEmmerik)
ENVIRONMENTAL VARIABLES...... how do you access them in (rthomas)
Re: ENVIRONMENTAL VARIABLES...... how do you access the (A. Deckers)
Fastest way to insert an element into a list <dave@cave.gctech.com>
Help me - zombies !!! (Sigi)
Re: Help with Perl print statement <naxos@geocities.com>
horrible idea <alex.t.silverstein@bender.com>
Re: Magical Auto-increment operator <rootbeer@teleport.com>
MS SQL database connector for HTML??? (Clem Dye)
Perl formatting for PL/SQL naxos@rocketmail.com
Re: perl joke of the day ? <ajohnson@gpu.srv.ualberta.ca>
problem with oo new operations <ceh@arcturus.sce.carleton.ca>
Re: regexp needed (A. Deckers)
Re: RFD: comp.lang.perl reorganization <rra@stanford.edu>
Sorry <naxos@rocketmail.com>
SQL formatting with PERL <naxos@rocketmail.com>
Re: Tie Scalar ?? <rootbeer@teleport.com>
Re: Web page access_log or web counter in Perl ... Plea <rootbeer@teleport.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 12 Jun 1997 14:53:15 -0400
From: Scott Blanksteen <sibsib@hotmail.com>
Subject: Re: analyse passwd on Perl?
Message-Id: <33A0459B.24DE0C0F@hotmail.com>
Oleg Bugrov wrote:
> Is there a way on Perl programm to analyse the password
> of user, entering by user from http form?
Perl can:
* find the length of the password entered
* encrypt the password entered
* calculate the frequency of each letter in the password
* do lots of other things with the password
What sort of analysis were you looking for?
Scott
--
Scott I. Blanksteen
sib (at) worldnet (dot) att (dot) net
------------------------------
Date: 12 Jun 97 19:38:10 GMT
From: "DAVID GILMARTIN" <david@gilmartin.uk.com>
Subject: append to htl file
Message-Id: <01badc85$dc5db600$7d053cc3@surgery.powernet.co.uk>
i know how to create a html page using perl
what i want to know if how to add something to an existing page
say to insert 4 lines of address at the end
what is the code
please
david
david@gilmartin.uk.com
------------------------------
Date: Thu, 12 Jun 1997 14:12:56 -0400
From: Mike Mitchell <msm@iweb.net>
To: Yiu Pang <robpang@cs.Stanford.EDU>
Subject: Re: CORBA Perl mapping?
Message-Id: <33A03C28.B48@iweb.net>
> CORBA Perl mapping and I have found one done by
> Bart Schuller.
Could you tell me how I can get my hands on this one? I looked at CPAN
and could find it. I didn't want to bother Bart Schuller directly but...
Mike Mitchell
______________________________________________
"Pull the wool over your own eyes!"
-- J.R. "Bob" Dobbs
------------------------------
Date: Thu, 12 Jun 1997 13:47:34 +0100
From: montyvan@swfla.infi.net (Monty VanEmmerik)
Subject: DBM
Message-Id: <montyvan-1206971347340001@pa1dsp9.rsw.infi.net>
I'm working on a cgi that uses:
dbmopen(%users,"users",0666) || die "Can't open users DBM file\n";
When I run this script on our web server, when the data file is made, the
server puts a '.pag' after the file name. It also creates a second file
called 'filename.dir'. It doesn't do this on my Mac. On my Mac I use
'0700' instead of '0666'.
I'm new to DBM, and I'm trying to find a better way to store my guestbook data.
Any thoughts on what's causing the suffix on the end of the file name, and
the second file? Where can I learn more about DBM and Msql?
To see the script go to:
http://www.swfla.infi.net/~montyvan/docs/perl.html
Please email me at: montyvan@swfla.infi.net
Monty VanEmmerik
------------------------------
Date: Thu, 12 Jun 1997 19:51:25 GMT
From: rthomas9@worldnet.att.net (rthomas)
Subject: ENVIRONMENTAL VARIABLES...... how do you access them in your program
Message-Id: <5npjum$1nh@mtinsc03.worldnet.att.net>
I'm not sure how to pull the current environmental variables into my perl
program. I tried the following:
$user=%ENV(REMOTE_USER);
$host=%ENV(REMOTE_HOST);
also tried,
$user=$ENV(REMOTE_USER);
$host=$ENV(REMOTE_HOST);
no good either way. The perl books don't make this very clear for a newbie
but it seems as though the current environment is stored in an associative
array %ENV and that you must associate a key (which is the name of the variable.
ie %ENV(key).
But if you don't know what the names of the variables ie(keys) are how can
you access the correct elements in the array. I just took an educated quess
on REMOTE_USER, REMOTE_HOST.
Any ideas?
Thank you for taking the time to help me.
Best,
R. Thomas
------------------------------
Date: 12 Jun 1997 19:57:22 GMT
From: deckers@man.ac.uk (A. Deckers)
Subject: Re: ENVIRONMENTAL VARIABLES...... how do you access them in your program
Message-Id: <slrn5q0l51.nj7.deckers@news.rediris.es>
In <5npjum$1nh@mtinsc03.worldnet.att.net>,
rthomas <rthomas9@worldnet.att.net> wrote:
>I'm not sure how to pull the current environmental variables into my perl
>program. I tried the following:
>
>$user=%ENV(REMOTE_USER);
>$host=%ENV(REMOTE_HOST);
>
>also tried,
>$user=$ENV(REMOTE_USER);
>$host=$ENV(REMOTE_HOST);
>
>no good either way.
That's because the key to a hash (also known as an associative array) go in
curly brackets {}, and whern you're accessing a single element the "magic
character" at the front of the hash is a $ rather than a %:
$user = $ENV{'REMOTE_USER'};
This is covered in just about any of the many forms of Perl
documentation that are available. Take it easy: you've got to learn how
to walk before you can run.
HTH,
Alain
--
Perl information: <URL:http://www.perl.com/perl/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
>>>>>>>>>>>>> NB: comp.lang.perl.misc is NOT a CGI group <<<<<<<<<<<<<<
------------------------------
Date: 12 Jun 1997 11:37:13 -0700
From: David Wuertele <dave@cave.gctech.com>
Subject: Fastest way to insert an element into a list
Message-Id: <yge910fbrc6.fsf@cave.gctech.com>
I checked the man and the faq, but found no recommended way to insert an
element into the middle of a big list:
# Make a big list
my @big_list;
for my $i (0 .. $very_large_number) {
$big_list[$i] = some_func($i);
}
# Get some value to insert into the middle of the big list
$value_I_want_to_insert = other_func($very_large_number / 2);
# Inefficiently copy tail of big list out of way for insertion
for my $i ($very_large_number+1 .. $very_large_number/2) {
$big_list[$i] = $big_list[$i - 1];
}
# Plug it
$big_list[$very_large_number/2] = $value_I_want_to_insert;
I am interested in both efficient-in-time and efficient-in-space methods.
Any recommendations?
Thanks,
Dave
------------------------------
Date: Thu, 12 Jun 1997 19:53:24 GMT
From: sigi@remsmurr.de (Sigi)
Subject: Help me - zombies !!!
Message-Id: <33a0523f.53472178@news.seicom.net>
help I have zombies
and I don't know how get them off.
I made the server from the perl camel book (violet). If the server
gets a message it starts an other perl program with this parameter.
The server schould forget then the started programm. I did
"system(...". Is that right ?
The called perl program should aks for some jobs in a database and if
any work is there call an other perl program to work it and wait at
them end to protocol the usage and then kill himself. I think this
works. I made it to with "system(..." and "wait".
The working perl program works and ends with the right message to the
calling program. At the end it shall kill himself.
All works fine. At the working line I have then always a zombie
prozess. Where does it comes from? How can I eliminate him?
Maybe the server doesn't forget the called program?
Any idea? Thanks
Sigi sigi@remsmurr.de
------------------------------
Date: Thu, 12 Jun 1997 10:53:44 -0700
From: chris smith <naxos@geocities.com>
To: Colleen <bricr01@execpc.com>
Subject: Re: Help with Perl print statement
Message-Id: <33A037A8.37CF@geocities.com>
Since the 'exit;' statement doesn't seem to be returning a value, try
yanking it out. I tried this, and the program ran just fine.
Chris Smith
naxos@rocketmail.com
------------------------------
Date: Mon, 09 Jun 1997 19:51:41 -0700
From: Rubbish <alex.t.silverstein@bender.com>
Subject: horrible idea
Message-Id: <339CC13D.2351@bender.com>
I want to quantify the exact number of
times a substitution is performed;
I am also curious if the number of times
a function like 'eval' can be easily set.
Ok, so maybe it's not a horrible idea,
but I am learning perl on my own, so
it seems so.
------------------------------
Date: Thu, 12 Jun 1997 13:10:35 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Rob Perelman <robp@electriciti.com>
Subject: Re: Magical Auto-increment operator
Message-Id: <Pine.GSO.3.96.970612123634.17120G-100000@kelly.teleport.com>
On Wed, 11 Jun 1997, Rob Perelman wrote, about the ongoing idea of
enhancing the magical ++ to do more:
> my new proposal is as follows:
>
> 1. If the argument has already been used as a number,
> increment it as a number.
> 2. If the argument begins with a number ('7', '3/9', '1a9z')
> increment it as a number (to 8, 4, and 2).
> 3. Otherwise, increment it as a string.
> (using my extended rules for extending a string)
Oh, let's not forget that it might start with a negative sign. I think
you'd want to put "-10" in category two, so that it wouldn't increment to
"-11"! :-) And I think you'll need to allow for some other characters in
front, such as whitespace or a plus sign. Those should be in category two
as well. How about ".25", which I think should become 1.25?
Here's my revision of the rules.
1. If the argument has already been used as a number,
or if the first character is in [\d\-\s+.] , or
if no character is in [A-Za-z0-9], then
increment it as a number.
2. Otherwise, use magical autoincrementing.
> This would allow '.' to get autoincremented to '..' instead of 1, '..e1'
> to '..e2', 'cs2#09' to 'cs2#10', 'a1z9' to 'a2a0' and 'cats 12' to 'cats
> 13'.
Except for the ones starting with decimal points, my revision would allow
that. There are still a few fuzzy patches around the edges, but this might
work as a rule. The last rule needs to be explicit: Is there a simple rule
for understanding how something is magically incremented? (It needs to be
simple enough to put in the docs; we don't want readers to have to run
code to see what it does!)
Here's my idea of what I _think_ you want for a simple rule. (Not that I
call this simple. :-)
a. "Digits" come from one of the sequences [0-9], [a-z], [A-Z], and
spacers are all other characters.
b. Spacers are left unchanged in a magical autoincrement.
c. Beginning with the last character, Perl tries to increment one "digit"
within its range. If it succeeds, it's done.
d. If a "digit" would go out of range, Perl sets it to the start of its
range ('0', 'a', or 'A') and tries again with the character to the left.
e. If Perl runs out of digits to increment, Perl will presume a
"suppressed leading zero" was in front of the string, so it will prepend a
'1' to the string and be done.
'cs2#08' => 'cs2#09' illustrating rule c
'cs2#09' => 'cs2#10' illustrating rule d
'cs2#99' => 'cs3#00' illustrating rule b
'cs9#99' => 'ct0#00'
'zz9#99' => '1aa0#00' illustrating rule e
Are we getting close to having the same idea? If so, the next step is to
see whose code would break... :-)
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 12 Jun 1997 19:32:54 +0100
From: clem@bastet.dircon.co.uk (Clem Dye)
Subject: MS SQL database connector for HTML???
Message-Id: <1.5.4.32.19970612193323.0030462c@popmail.dircon.co.uk>
I wonder if the collective wisdom of the newsgroup readers could possibly
steer me in the right direction?
I'm looking for a database 'connector' (if that's the correct term) which
will allow me to connect to and execute queries in/from a Microsoft SQL
database (SQL 6.5) from within a perl script embedded in an HTML/web page.
I've found useful-looking bits for SyBase, Oracle etc. databases but so far,
am having no real luck with MS SQL tools.
I'm attempting to keep things as 'standard' as possible and would rather not
therefore use another Microsoft product such as VisualInterdev/VBScript etc.
at this time. I'm aware that a Win32::ODBC module exists for Windows 95/NT,
but as I understand it, this requires that the system running Perl has ODBC
drivers loaded. This is fine for a Microsoft shop, but what about
cross-platform connections say from a Unix system? Ideally, I want to keep
everything server-based.
As a thought, will the Win32::ODBC module run fine on a server back-end
only, or am I getting confused here?
Does anyone have any ideas, or am I going to have to resolve myself to learn
and use yet another Microsoft product?
Direct mail replies are most welcome if this post is considered
'inappropriate' for the group.
Regards
Clem Dye
clem@bastet.dircon.co.uk
------------------------------
Date: Thu, 12 Jun 1997 12:22:35 -0600
From: naxos@rocketmail.com
Subject: Perl formatting for PL/SQL
Message-Id: <866135406.13065@dejanews.com>
Howdy,
I need to format a whole flog of PL/SQL programs so that all SQL
statements (SELECT, FROM, WHERE, LIKE, etc...) are capitalized, while the
remainder of the statements (field names, table names, etc) remain
lowercase. Needless to say, the formatting for these programs is sketchy
at best. I also need to make sure all indenting is properly set up (aka
in IF, THEN, WHILE or IF, ELSIF, ELSE statements, indenting at each nest
of a looping statement, then backing out of the indent when it is
completed.). Any ideas? I was thinking of first making an arry of all
the reserved words, and then running through the file to transliterate all
these to uppercase, and I have a high-level idea how to do this stuff, but
some guidance would be much appreciated.
Please post and email me back, as I can't always check newsgroups.
Thanks
Chris Smith
naxos@rocketmail.com
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Thu, 12 Jun 1997 01:05:17 -0500
From: Andrew Johnson <ajohnson@gpu.srv.ualberta.ca>
Subject: Re: perl joke of the day ?
Message-Id: <339F919D.66041967@gpu.srv.ualberta.ca>
Michael J Cameron wrote:
>
> Steffen Beyer wrote:
> >
>
> Or maybe the guy just needs some help.
maybe he gave the guy/girl some help...
> Why poke fun at those who are less experienced than yourself?
>
> Can't a newsgroup be educating instead of humiliating. People like you
> make this forum a platform for elitist views instead of a free and frank
> exchange of ideas.
A) I saw no mention of anyone singled out for humiliation...
just an un-attributed snippet of code.
B) How do you know a few 'less experienced' folk out there
didn't actually learn something (or remind themselves of
something) as a result of puzzling over that snippet?
C) People like you might make this forum a platform for humourless
elitist views instead of a free and frank exchange of
ideas.
regards
andrew
------------------------------
Date: 11 Jun 1997 14:51:30 -0400
From: Curtis Hrischuk <ceh@arcturus.sce.carleton.ca>
Subject: problem with oo new operations
Message-Id: <wkdpvttx9al.fsf@arcturus.sce.carleton.ca>
Hi. Could someone explain to me why the following code executes
differently for CASE (1) and CASE (2).
- With only one item in the hash table CASE 1 works but CASE 2) fails.
- With two items in the hash table CASE 2 works but CASE 1 fails.
I am running perl 5.004.
Curtis
################################################################
$anode1 = new ActivityNode(DATA =>$val);
$anode2 = new ActivityNode(DATA =>$val, MOREDATA => $val2);
################################################################
# CASE 1)
################################################################
use Graph::Node;
package ActivityNode; @ISA = qw(Graph::Node);
require 5.001;
require 'mystd.pm';
use diagnostics;
use strict "refs";
use strict "vars";
sub new {
my $type = shift;
my %params = @_;
my $self = Graph::Node->new();
$self->{DATA} = $params{DATA};
bless $self, $type;
return $self;
}
################################################################
# CASE 2)
################################################################
use Graph::Node;
package ActivityNode; @ISA = qw(Graph::Node);
require 5.001;
require 'mystd.pm';
use diagnostics;
use strict "refs";
use strict "vars";
sub new {
my $type = shift;
my %params = %{$_[0]}; # <=== Different here
my $self = Graph::Node->new();
$self->{DATA} = $params{DATA};
$self->{MOREDATA} = $params{MOREDATA};
bless $self, $type;
return $self;
}
--
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
_/ Curtis Hrischuk (PhD Cand) "in reality that comes from above _/
_/ ceh@sce.carleton.ca God is calling _/
_/ Carleton University there's no bigger love _/
_/ Ottawa, On., Canada, K1S-5B6 It's his reality that welcomes us back_/
_/ Ph (613) 520-2600 x1762 Trust and obey _/
_/ FAX (613) 520-5727 there is no other way..." the newsboys_/
_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/
------------------------------
Date: 12 Jun 1997 18:03:12 GMT
From: deckers@man.ac.uk (A. Deckers)
Subject: Re: regexp needed
Message-Id: <slrn5q0eev.nj7.deckers@news.rediris.es>
In <33A02449.FB06ED76@prestel.net>,
webadmin <webadmin@prestel.net> wrote:
>Hi
>
>I have the following line
>
>www.domain.co.uk, 19.87 6.03 253526 153 | /
>
>I need to split it. the thing is that I have several lines, but the no.
>of spaces in between the elements variies, so I can't have a fixed
>split. The number I am interested in getting is the one before the pipe
>symbol.
Provided there is _always_ a pipe symbol and one or more spaces between
it and the preceeding number, how about:
while (<>) {
m/(\d+)\s+\|/ and $num = $1;
}
or
while (<>) {
chomp;
# You can split on a regex:
@fields = split /\s+/, $_;
$num = $fields[4];
}
HTH,
Alain
--
Perl information: <URL:http://www.perl.com/perl/>
Perl archive: <URL:http://www.perl.com/CPAN/>
Perl FAQ: <URL:http://www.perl.com/CPAN/doc/FAQs/FAQ/>
>>>>>>>>>>>>> NB: comp.lang.perl.misc is NOT a CGI group <<<<<<<<<<<<<<
------------------------------
Date: 12 Jun 1997 11:21:54 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: RFD: comp.lang.perl reorganization
Message-Id: <m3rae7fzr1.fsf@windlord.Stanford.EDU>
In news.groups, Mike Stok <mike@stok.co.uk> writes:
> A. Deckers <deckers@man.ac.uk> wrote:
>> Good. Then you're exactly the sort of person this reorg is designed to
>> bring back to comp.lang.perl.*.
> Sometimes it seems to me that there's more volume of people following up
> an off topic post to say it's off topic, or "witty" non-answers than
> there are off topic posts...
That's a common problem, unfortunately. The good news is that if one can
eliminate the off-topic posts, all of that traffic tends to go away as
well.
--
Russ Allbery (rra@stanford.edu) <URL:http://www.eyrie.org/~eagle/>
------------------------------
Date: Thu, 12 Jun 1997 10:25:49 -0700
From: chris smith <naxos@rocketmail.com>
Subject: Sorry
Message-Id: <33A0311D.4939@rocketmail.com>
I sent an article on SQL formatting, but formatted the request so that
it sent it off twice. So sorry. :)
CS
------------------------------
Date: Thu, 12 Jun 1997 10:24:01 -0700
From: chris smith <naxos@rocketmail.com>
Subject: SQL formatting with PERL
Message-Id: <33A030B1.65E8@rocketmail.com>
Howdy,
I need to format a whole flog of PL/SQL programs so that all SQL
statements (SELECT, FROM, WHERE, LIKE, etc...) are capitalized, while
the remainder of the statements (field names, table names, etc) remain
lowercase. Needless to say, the formatting for these programs is
sketchy at best. I also need to make sure all indenting is properly set
up (aka in IF, THEN, WHILE or IF, ELSIF, ELSE statements, indenting at
each nest of a looping statement, then backing out of the indent when it
is completed.). Any ideas? I was thinking of first making an arry of
all the reserved words, and then running through the file to
transliterate all these to uppercase, and I have a high-level idea how
to do this stuff, but some guidance would be much appreciated.
Please post and email me back, as I can't always check newsgroups.
Thanks
Chris Smith
naxos@rocketmail.com
------------------------------
Date: Thu, 12 Jun 1997 13:13:55 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: David Tauzell <tauzell@math.umn.edu>
Subject: Re: Tie Scalar ??
Message-Id: <Pine.GSO.3.96.970612131256.17120I-100000@kelly.teleport.com>
On 11 Jun 1997, David Tauzell wrote:
> I would like to create a tied scalar that can return an array if
> used in array context.
I don't think scalars can do that. But you might be able to make a tied
array that acts like a scalar in a scalar context, so that might do what
you want. Hope this helps!
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Thu, 12 Jun 1997 13:12:07 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Dongmien Vuong <dongmien@cs.washington.edu>
Subject: Re: Web page access_log or web counter in Perl ... Please help!!!
Message-Id: <Pine.GSO.3.96.970612131104.17120H-100000@kelly.teleport.com>
On Wed, 11 Jun 1997, Dongmien Vuong wrote:
> Could someone please give me some hints on how to create a
> web access_log or web counter in perl?
Download one of the many existing ones, and you're done. Wasn't that easy?
You don't even have to learn Perl! :-)
-- Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 608
*************************************
