[11276] in Perl-Users-Digest
Perl-Users Digest, Issue: 4876 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Feb 12 01:14:47 1999
Date: Thu, 11 Feb 99 22:00:18 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 11 Feb 1999 Volume: 8 Number: 4876
Today's topics:
Re: "cloning" tied hashes <ebohlman@netcom.com>
Re: \n won't work <kswong@bigpond.com>
Re: ActiveState GDBM or Equivalent? <ebohlman@netcom.com>
Re: Announce: Perl Function Repository (was Re: Calcula <rra@stanford.edu>
Re: Announce: Perl Function Repository (was Re: Calcula (Randal L. Schwartz)
Re: CGI::Push & IE 4.0 problem. (Abigail)
Re: Comments in Perl code (Tad McClellan)
Re: Content-type: application/pdf breaks in MS IE3.02 <ebohlman@netcom.com>
Re: cut and paste between windows programs <ebohlman@netcom.com>
Re: Easy Q for a Perl Pro (Abigail)
Re: Easy Q for a Perl Pro <kswong@bigpond.com>
Re: Easy Q for a Perl Pro (Larry Rosler)
Re: email to data base script (David R. Conrad)
Fast Text Search <zack44@altavista.net>
File Creation ? <no_amaring@jps.net>
Re: File Creation ? (Sam Holden)
Re: how do I get a date in perl? <thelma@alpha2.csd.uwm.edu>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 12 Feb 1999 04:36:41 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: "cloning" tied hashes
Message-Id: <ebohlmanF70y55.FrH@netcom.com>
Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
: I have implemented a TIEHASH class the details of which may or may not be
: important. I am tie'ing %sgmlrecs1 in such a way that it interfaces an
: 8000+ record file. I am tie'ing %sgmlrecs2 (using the same class) in such
: a way that it creates a new file.
: Using the first block of code, from 2 to 6 of the 8000+ keys generate
: calls to the STORE method in which the third parameter (the value) is
: undefined. The second block of code does not do this. Is there a
: known problem doing block 1) with two tied hashes?
: 1) %sgmlrecs2 = %sgmlrecs1;
: 2) while( my( $key, $val ) = each %sgmlrecs1 ) {
: $sgmlrecs2{ $key } = $val;
: }
Not that I know of, if your class is implemented correctly. Without
looking at the code, I can't tell, but make sure that you aren't using
package globals where you should be using instance variables.
------------------------------
Date: Fri, 12 Feb 1999 16:16:18 +1100
From: Ka-shu Wong <kswong@bigpond.com>
Subject: Re: \n won't work
Message-Id: <Pine.LNX.4.03.9902121606500.2774-100000@goose>
On Thu, 11 Feb 1999, Bill Garrett wrote:
> #!/usr/local/bin/perl
> print "Content-type: text/html\n\n";
> print "hello world\n";
> print "how come the new line character won't work?\n";
> print "I sure wish it would!\n";
>
> Could someone please tell me why \n doesn't cause this to go onto a new
> line. I created this script and \n doesn't work but on some other
> scripts I have installed it worked. hwat is wrong with this one??
I assume this is a CGI script...
The script is actually meant to be outputting HTML code ("Content-type:
text/html" in the header). However, in HTML \n is whitespace, and
whitespace is rendered as a space in the browser. To actually go to a new
line, an HTML tag must be used, eg <BR> or <P>.
Replacing the \n with <BR> would fix the problem:
#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "hello world<BR>";
print "new line characters are whitespace in HTML<BR>";
print "thats why they dont work<BR>";
KS
------------------------------
Date: Fri, 12 Feb 1999 04:54:44 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: ActiveState GDBM or Equivalent?
Message-Id: <ebohlmanF70yz8.GJw@netcom.com>
[removed non-existent comp.lang.perl from newsgroups and followups]
John Kane <jdkane@akanewmedia.com> wrote:
: Can anyone tell me if a GDBM hash file module (or equivalent) exists for
: ActiveState PERL on the Windows platform?
AFAICT, there's no port of GDBM, but there *is* a port of DB_File.
: SDBM (and others) limit the hash value to 1000 characters. GDBM on UNIX
: allows much larger values. I want to use a hash file that allows large
: values on the windows platform.
DB_File should meet your needs.
------------------------------
Date: 11 Feb 1999 13:42:06 -0800
From: Russ Allbery <rra@stanford.edu>
Subject: Re: Announce: Perl Function Repository (was Re: Calculate yesterdays date)
Message-Id: <yl3e4c7h3l.fsf@windlord.stanford.edu>
[ Posted and mailed. ]
Daniel Grisinger <dgris@moiraine.dimensional.com> writes:
> The Perl Function Repository-
> http://moiraine.dimensional.com/~dgris/perl/pfr/
> Right now the only piece of code included in the PFR is Russ Allbery's
> yesterday() subroutine that was posted here yesterday. (Russ, if you
> don't want the code in there, let me know).
Great with me. Here's a new version incorporating some suggestions from
Larry Rosler and with a clear copyright statement.
sub yesterday {
my $now = defined $_[0] ? $_[0] : time;
my $then = time - 60 * 60 * 24;
my $ndst = (localtime $now)[8] > 0;
my $tdst = (localtime $then)[8] > 0;
$then - ($tdst - $ndst) * 60 * 60;
}
# Should give you "this time yesterday" in seconds since epoch relative to
# the first argument or the current time if no argument is given and
# suitable for passing to localtime or whatever else you need to do with
# it. $ndst is whether we're currently in daylight savings time; $tdst is
# whether the point 24 hours ago was in daylight savings time. If $tdst
# and $ndst are the same, a boundary wasn't crossed, and the correction
# will subtract 0. If $tdst is 1 and $ndst is 0, subtract an hour more
# from yesterday's time since we gained an extra hour while going off
# daylight savings time. If $tdst is 0 and $ndst is 1, subtract a
# negative hour (add an hour) to yesterday's time since we lost an hour.
#
# All of this is because during those days when one switches off or onto
# DST, a "day" isn't 24 hours long; it's either 23 or 25.
#
# The explicit settings of $ndst and $tdst are necessary because localtime
# only says it returns the system tm struct, and the system tm struct at
# least on Solaris doesn't guarantee any particuliar positive value (like,
# say, 1) for isdst, just a positive value. And that value can
# potentially be negative, if DST information isn't available (this sub
# just treats those cases like no DST).
#
# Note that between 2am and 3am on the day after the time zone switches
# off daylight savings time, the exact hour of "yesterday" corresponding
# to the current hour is not clearly defined. Note also that if used
# between 2am and 3am the day after the change to daylight savings time,
# the result will be between 3am and 4am of the previous day; it's
# arguable whether this is correct.
#
# This sub does not attempt to deal with leap seconds (most things don't).
#
# Copyright relinquished 1999 by Russ Allbery <rra@stanford.edu>
# This code is in the public domain
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: 11 Feb 1999 13:26:49 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Announce: Perl Function Repository (was Re: Calculate yesterdays date)
Message-Id: <m1pv7gfx7q.fsf@halfdome.holdit.com>
>>>>> "Daniel" == Daniel Grisinger <dgris@moiraine.dimensional.com> writes:
Daniel> Right now the only piece of code included in the PFR is Russ
Daniel> Allbery's yesterday() subroutine that was posted here yesterday.
Daniel> (Russ, if you don't want the code in there, let me know).
Will it be changed to thedaybefore() tomorrow? :)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: Fri, 12 Feb 1999 04:56:40 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: CGI::Push & IE 4.0 problem.
Message-Id: <cwOw2.2719$rs2.2404179@client.news.psi.net>
Kandarp Sevak (kksv@bellatlantic.net) wrote on MCMXCI September MCMXCIII
in <URL:news:36C3A223.DAB0E4EC@bellatlantic.net>:
-- I am looking for solutions to following two problems.
--
-- 1. I have a 'nph-' server-push script, which pushes an GIF image on the
-- current browser page and keeps-on updating it. With Netscape 4.5 it
-- seems to work and the animation can be seen. But with Internet Explorer
-- 4.0, it goes into 'file download' mode. I tried to look for
-- programs/application setup change, but could not find it in IE 4.0. The
-- 'nph-' script resides in 'cgi-bin' on a AIX box, and netscape/IE is on a
-- NT 4.0 client. The perl version is 5.004 with CGI.pm and CGI::Push.pm.
-- The GIF is created 'inline' and not coming from a file.
That looks like a browser bug, or a server misconfiguration. Certainly
not a perl problem.
-- 2. Another problem I have is with the same script for netscape 4.5. When
-- the script is invoked typing full URL in the browser, the script
-- executes only once and exits. But clicking on 'reload' loads the image
-- and keeps on updating, giving proper animation. This problem does not
-- occur if the contents of the page are 'text/html' instead of
-- 'image/gif' as specified in the 'do_push' method of CGI::Push.
And your perl problem is?
-- I'll appreciate any help solving these problems.
-- Send reply to kksv@bellatlantic.net or post it to the group.
You're probably better off in york.philosophy.course.phil2080!
Abigail
--
perl -we '$@="\145\143\150\157\040\042\112\165\163\164\040\141\156\157\164".
"\150\145\162\040\120\145\162\154\040\110\141\143\153\145\162".
"\042\040\076\040\057\144\145\166\057\164\164\171";`$@`'
------------------------------
Date: Thu, 11 Feb 1999 22:43:45 -0600
From: tadmc@metronet.com (Tad McClellan)
Subject: Re: Comments in Perl code
Message-Id: <1ib0a7.0pr.ln@magna.metronet.com>
Ala Qumsieh (aqumsieh@matrox.com) wrote:
: Eric Kihn <kihn@mindspring.com> writes:
: > As a final thought. Has anyone considered how simple it would be to
: > write a script called deploy.pl that simply
: > strips all the comments (and even white space if you want) so that the
: > "user" version is as fast as can be, but the coder get's his comments?
: Yeah .. it's extremly simple ..
: % perl -pi.bak -e 's/\#.*$//' file.pl
You forgot a smiley there, I think.
It is indeed not the least little bit simple.
Only perl can parse Perl.
What's that gonna do to this?
print "use a #2 lead pencil\n";
What's it gonna do to the shebang line?
--
Tad McClellan SGML Consulting
tadmc@metronet.com Perl programming
Fort Worth, Texas
------------------------------
Date: Fri, 12 Feb 1999 05:04:54 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Content-type: application/pdf breaks in MS IE3.02
Message-Id: <ebohlmanF70zG6.H4r@netcom.com>
Steve_Shriver@scp14.bcbsnc.com wrote:
: Greetings, I wrote a program to securely provide access to PDF files on our
: intranet. Basically, the user (a manager) deposits a token into a web page
: that returns a PDF file of a resume. The cgi works wonderfully with NN4.0 but
: intermittantly or not at all in IE3.02 (the corporate standard).
: Any clues as to why this code wouldn't work with IE?
MSIE is known to ignore content-type headers and try to guess at the file
type instead.
If your script is running on a Win32 server, you should invoke binmode()
on the handle for the PDF file before serving it.
------------------------------
Date: Fri, 12 Feb 1999 05:01:18 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: cut and paste between windows programs
Message-Id: <ebohlmanF70zA6.H1M@netcom.com>
jhunpingco@my-dejanews.com wrote:
: I've used PERL on unix machines for some time. However, now that I have
: to use winNT machines, I find myself cutting and pasting interactively
: between two windows applications. I probably do this a hundred times a day or
: more
: and was wondering if there were a way to do this with PERL in winNT. Ideally,
: I'd like to highlight the text in one application, hit a key, and have that
: text pasted into the other application immediately.
: There must be a way to do this, but I don't know how. Do you?
Win32::Clipboard
------------------------------
Date: Fri, 12 Feb 1999 04:58:54 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Easy Q for a Perl Pro
Message-Id: <iyOw2.2720$rs2.2404179@client.news.psi.net>
Dustin Christopher Preuitt (preuitt@ix.cs.uoregon.edu) wrote on MCMXCI
September MCMXCIII in <URL:news:79vug4$dof$1@helix.cs.uoregon.edu>:
--
-- I want to take a line of text and translate everything in parenthesis to uppercase and everything else to lower case.
--
($str = lc $str) =~ s/\((.*))/uc $1/e;
Understand?
Abigail
--
sub f{sprintf'%c%s',$_[0],$_[1]}print f(74,f(117,f(115,f(116,f(32,f(97,
f(110,f(111,f(116,f(104,f(0x65,f(114,f(32,f(80,f(101,f(114,f(0x6c,f(32,
f(0x48,f(97,f(99,f(107,f(101,f(114,f(10,q ff)))))))))))))))))))))))))
------------------------------
Date: Fri, 12 Feb 1999 16:30:18 +1100
From: Ka-shu Wong <kswong@bigpond.com>
Subject: Re: Easy Q for a Perl Pro
Message-Id: <Pine.LNX.4.03.9902121624590.2774-100000@goose>
On Fri, 12 Feb 1999, Abigail wrote:
> ($str = lc $str) =~ s/\((.*))/uc $1/e;
($str = lc $str) =~ s/\((.*?)\)/'('.uc $1.')'/eg;
You forgot the ?
and the g - there might be more than one set of parenthesis...
oh... and the backslash for the ) too :)
and the () around the uppercased string... :))
KS
------------------------------
Date: Thu, 11 Feb 1999 11:52:31 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Easy Q for a Perl Pro
Message-Id: <MPG.112cd4cef74f610e989a25@nntp.hpl.hp.com>
In article <iyOw2.2720$rs2.2404179@client.news.psi.net> on Fri, 12 Feb
1999 04:58:54 GMT, Abigail <abigail@fnx.com> says...
> Dustin Christopher Preuitt (preuitt@ix.cs.uoregon.edu) wrote on MCMXCI
> September MCMXCIII in <URL:news:79vug4$dof$1@helix.cs.uoregon.edu>:
> --
> -- I want to take a line of text and translate everything in parenthesis
> -- to uppercase and everything else to lower case.
>
> ($str = lc $str) =~ s/\((.*))/uc $1/e;
There is an obvious typo there. Also, I would prepare it to cope with
more than one set of parentheses in the line.
($str = lc $str) =~ s/\((.*?)\)/uc $1/eg;
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Fri, 12 Feb 1999 04:34:58 GMT
From: drc@adni.net (David R. Conrad)
Subject: Re: email to data base script
Message-Id: <slrn7c7bre.oku.drc@x2-2-det-ppp268.adni.net>
James Alspach wrote:
>I am looking for an e-mail to database (mysql, etc...) script. I have
>an activation form on a web page that needs to populate a database. The
>web page is served by my ISP so I don't have direct access between my
>database and the web form. The activation form currently mails the form
>to me and I manually enter this info into the database. This looks like
>a job for a perl script but I may be wrong. I have never used perl but
>it seems like it may be a good fit. My other catch is that this page
>will be on a secure site and, thus, will encrypt the e-mail before it is
>sent to me. Basically the steps I need to take, as I see them, are:
>1> receive the email
You may want to use procmail here. For instance, in .procmailrc:
:0 : /tmp/db_mail.lock
* From:.*nobody@your-server.com
|/usr/bin/receive.pl
(This is just off the top of my head, and I haven't used procmail to
send mail to programs rather than mail folders before. If the email
address the mail is coming to isn't used for anything other than
these database requests then you could just put "|/usr/bin/receive.pl"
in the .forward file for the account.)
>2> decrypt the email
You don't mention how the mail is encrypted. I've had success calling
PGP from Perl. You may want to look at the pgp-integration man page
that comes with PGP 5.0+.
>3> parse the email
Perl is excellent for parsing all kinds of things.
>4> place the resulting data into the database
I really don't know about SQL, but I'll bet there's a Perl module
for interfacing with it. Otherwise, the database will have to have
some kind of simple, command-line driver that you can use to access it.
>5> respond to the message with an e-mail that gives very basic status on
>the submitted form (OK, duplicate name, missing field, etc...)
Calling sendmail -t or mail from Perl is no problem.
>some where in there I also need to ensure that this is not a duplicate
>e-mail (perhaps the database could handle that by setting one of the
>fields to unique), I also need to collect the messages from the database
>regarding whether or not the message was entered correctly.
It isn't clear to me what you mean. That the message *itself* is not
a duplicate, or that the contents of the message aren't duplicates of
items already entered in the database?
For the former, you could maintain a log of Message-ID's of messages
that had been received and processed.
The latter, of course, is a database programming problem. The interface
between the message parser and the database needs to have not only a
method to set data in the database, but also to retrieve and/or check
whether a record with a given key exists.
(I know "record" and "key" aren't the proper SQL jargon. Feh.)
--
David R. Conrad <drc@adni.net> PGP keys (0x1993E1AE and 0xA0B83D31):
DSS Fingerprint20 = 9942 E27C 3966 9FB8 5058 73A4 83CE 62EF 1993 E1AE
RSA Fingerprint16 = 1D F2 F3 90 DA CA 35 5D 91 E4 09 45 95 C8 20 F1
Note: Due to frequent spam abuse, I accept no email from *.da.uu.net.
------------------------------
Date: Fri, 12 Feb 1999 00:53:44 -0500
From: Zack <zack44@altavista.net>
Subject: Fast Text Search
Message-Id: <36C3C1E8.5F25C5FD@altavista.net>
What's the fastest way to search through a delimited text database. Line by line and checking the individual fields after a split is fine up to about 5,000 records or so, but I really need to use bigger databases (up to 50-100,000 records) and a DBI database is not an option.
Better to store the data in some sort of binary format?
What about indexing? Is it possible? Feasable?
Zack
------------------------------
Date: Thu, 11 Feb 1999 20:38:35 -0800
From: "amaring" <no_amaring@jps.net>
Subject: File Creation ?
Message-Id: <36c425b4.0@news1.jps.net>
For some reason this code creates a file called "$file" instead of what it
is supposed to create. Could someone please give me a quick reason for
this?
$file = "file.tmp";
open(TMP, ">$file")||die("Etc");
Thank You,
--Remove no_ from my email--
------------------------------
Date: 12 Feb 1999 04:50:24 GMT
From: sholden@pgrad.cs.usyd.edu.au (Sam Holden)
Subject: Re: File Creation ?
Message-Id: <slrn7c7cog.52q.sholden@pgrad.cs.usyd.edu.au>
On Thu, 11 Feb 1999 20:38:35 -0800, amaring <no_amaring@jps.net> wrote:
>For some reason this code creates a file called "$file" instead of what it
>is supposed to create. Could someone please give me a quick reason for
>this?
>
>$file = "file.tmp";
>open(TMP, ">$file")||die("Etc");
It creates a file called "file.tmp" as you would expect. (OK it opens the
file for writing creating it if possible and needed)...
Now what was your question again?
--
Sam
You can blame it all on the internet. I do...
--Larry Wall
------------------------------
Date: 12 Feb 1999 05:11:55 GMT
From: Thelma Lubkin <thelma@alpha2.csd.uwm.edu>
Subject: Re: how do I get a date in perl?
Message-Id: <7a0d6r$hrt$1@uwm.edu>
But you need to be careful when using these 'black boxes'.
I've written several programs using the Date::Manip functions
and it's saved me a lot of work.
So when I needed exactly what you're asking about, the day of
the week for a particular date, I went again to Date::Manip.
But this time I was working with very large files and after the
program failed to run in the 7.5 minute time that the batch
processor on the system allowed it, I tried it on a relatively
small file of about 10000 entries: that took 76 seconds, so I
tried it on a really small file and it took a proportionately
shorter time, so there wasn't a large initial overhead involved.
This translated to a 12.5hour runtime for the file that I
really needed to process.
That's when I removed Date::Manip and wrote a short date to
weekday function of my own (I don't need a truly precise
translation here, which is what makes it fast and short)
... the new version ran on the large file in 1.5minutes
--thelma
Chad M. Townsend <chad@vcn.net> wrote:
: Believe me when I tell you there is a perl function, module or package for
: anything you might need. You need to hang around CPAN and http://www.perl.com
: more.
: -chad
:> Duc Le <bamboo@best.com> wrote:
:> >Hi!
:> >
:> >I don't know if Perl has any function for date manipulation besides
:> >localtime(). I just want to do a simple task like getting the week date
:> >from any given day of the month. For example, given "02/12/1999", I
:> >would like to know what date of the week this day falls on.
:>
:> There are various Date modules on CPAN.
:>
:> http://www.cpan.org/modules/by-module/Date/
:>
:> HTH.
:>
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4876
**************************************
