[23431] in Perl-Users-Digest
Perl-Users Digest, Issue: 5648 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 12 03:05:53 2003
Date: Sun, 12 Oct 2003 00:05:11 -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 Sun, 12 Oct 2003 Volume: 10 Number: 5648
Today's topics:
Archive::Zip use? <geoff.cox@blueyonder.co.uk>
Re: Creating hyperlinks from text (Tad McClellan)
Re: Creating hyperlinks from text <dreamer@cox.net>
embedding Variable <mike_solomon@lineone.net>
Re: embedding Variable <cenxnfu@rpr.nevmban.rqh>
Re: embedding Variable <me@privacy.net>
Re: embedding Variable <hawkesm@on3etel.n5et.u9k>
Re: embedding Variable (Jay Tilton)
Re: End Record Charcter <bruce.dobson@xtra.co.nz>
Extracting specific info from a string <nobody@nowhere.com>
Re: Extracting specific info from a string <nospam_for_jkeen@concentric.net>
Re: How to parse e-mail messages? <e02@removethis.toao.net>
Re: mod_perl / Apache problem <konny@waitrose.com>
Re: Old CGI scripts do not work under Mandrake 9.1 <kalinaubears@iinet.net.au>
Re: perl - cgi - how to displ a block of records with n (Bill)
Perl equivalent to a JavaBean <kbass@midsouth.rr.com>
Re: Perl Examples <kristoffhahns@*NOSPAM*lycos.com>
previous & next buttons <psybar_phreak@yahoo.com>
Re: previous & next buttons <mbudash@sonic.net>
silicon valley venture funding url (Seldon Wells)
Re: Teach me how to fish, regexp <henryn@zzzspacebbs.com>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 11 Oct 2003 20:28:12 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Archive::Zip use?
Message-Id: <4kpgovogp6qdhnjmoart4i55aq15i6u0p6@4ax.com>
Hello,
With excellent help from this group I have been able to use the
following code to change a zip file to a doc file with the same name
as the zip file ...
would now like to do the reverse of this in a slightly different way
.. I have say 20 doc files in a folder which I would like to zip and
name as doc1.zip, doc2.zip etc ... I am guessing that the code will
not be too different from that below but would appreciate some help on
which Archive::Zip method would be appropriate here...
Thanks
Geoff
use warnings;
use strict;
use File::Find;
use Archive::Zip;
my $dir = 'c:/atemp9';
find( sub {
( my $name = $_ ) =~ s/\.zip$/.doc/i or return;
my $zip = Archive::Zip->new( $_ );
$zip->extractMember( ($zip->memberNames)[ 0 ], $name );
unlink $_ or warn "Cannot delete $_: $!";
}, $dir );
------------------------------
Date: Sat, 11 Oct 2003 14:44:39 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Creating hyperlinks from text
Message-Id: <slrnbognd7.241.tadmc@magna.augustmail.com>
Fred <dreamer@cox.net> wrote:
> local $/;
>
> while (<>){
What is the point of having a loop that will execute
one (or none) time?
> Question: How could I do the conversion to hyperlinks with a module?
perldoc -q module
How do I create a module?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 11 Oct 2003 15:44:44 -0700
From: Fred <dreamer@cox.net>
Subject: Re: Creating hyperlinks from text
Message-Id: <3F8887DC.C641A155@cox.net>
Tad McClellan wrote:
>
> Fred <dreamer@cox.net> wrote:
>
> > local $/;
> >
> > while (<>){
>
> What is the point of having a loop that will execute
> one (or none) time?
>
> > Question: How could I do the conversion to hyperlinks with a module?
>
> perldoc -q module
>
> How do I create a module?
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
Actually I do not want to create a new module.
I am looking for an existing module, and how to use it.
---
Fred
------------------------------
Date: Sat, 11 Oct 2003 21:37:11 +0100
From: Mike Solomon <mike_solomon@lineone.net>
Subject: embedding Variable
Message-Id: <3f8868ac$1_1@mk-nntp-2.news.uk.tiscali.com>
If I write the following code
my $test = "test";
my $output "my test = $test\n";
$test = "NEW TEST";
print $output;
then I will get : my test = test";
is there any way of writing this so as I change $test , $output also changes
Sorry if this a stupid question
Regards Mike
------------------------------
Date: Sat, 11 Oct 2003 13:57:02 -0700
From: Cognition Peon <cenxnfu@rpr.nevmban.rqh>
Subject: Re: embedding Variable
Message-Id: <Pine.LNX.4.58.0310111354480.1257@jayap.linux>
#!/usr/bin/perl -w
my $test = "test";
my $output = output();
print $output;
$test = "NEW TEST";
$output = output();
print $output;
sub output {
return "my test = $test\n";
}
9:37pm, IP packets from Mike Solomon delivered:
>
>
> If I write the following code
>
> my $test = "test";
>
> my $output "my test = $test\n";
>
> $test = "NEW TEST";
>
> print $output;
>
> then I will get : my test = test";
>
> is there any way of writing this so as I change $test , $output also changes
>
> Sorry if this a stupid question
>
>
> Regards Mike
>
>
------------------------------
Date: Sun, 12 Oct 2003 13:09:49 +1300
From: "Tintin" <me@privacy.net>
Subject: Re: embedding Variable
Message-Id: <bma6bk$kc5r7$1@ID-172104.news.uni-berlin.de>
"Mike Solomon" <mike_solomon@lineone.net> wrote in message
news:3f8868ac$1_1@mk-nntp-2.news.uk.tiscali.com...
> If I write the following code
>
> my $test = "test";
>
> my $output "my test = $test\n";
>
> $test = "NEW TEST";
>
> print $output;
>
> then I will get : my test = test";
>
> is there any way of writing this so as I change $test , $output also
changes
>
> Sorry if this a stupid question
My question would be to ask what you are trying to acheive.
I'm almost certain that once we know the problem, there will be a much
better solution/approach to take.
------------------------------
Date: Sun, 12 Oct 2003 03:56:53 +0100
From: Marco <hawkesm@on3etel.n5et.u9k>
Subject: Re: embedding Variable
Message-Id: <xj3ib.2550$_54.300640@newsfep2-win.server.ntli.net>
Mike Solomon wrote:
> If I write the following code
>
> my $test = "test";
> my $output = "my test = $test\n";
> $test = "NEW TEST";
> print $output;
>
> then I will get : my test = test";
>
> is there any way of writing this so as I change $test , $output also
> changes
Hi Mike,
$output needs to be something that dynamically binds
to the latest value of $test every time. Try this:
my $test = "test";
my $output = sub { "my test = $test\n" };
$test = "NEW TEST";
print $output->(); # or print &$output;
In line 2, $output is initialized to point to an
anonymous subroutine that will re-evaluate $test
every time it's called. Technically, this is known
as a closure.
Line 4 also differs because I now have to dereference
$output to make it behave like the subroutine it
points to.
Marco
----------------------------------------------------
Please remove digits from e-mail address (tr/0-9//d)
------------------------------
Date: Sun, 12 Oct 2003 03:27:08 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: embedding Variable
Message-Id: <3f88c868.66279602@news.erols.com>
Mike Solomon <mike_solomon@lineone.net> wrote:
: If I write the following code
:
: my $test = "test";
:
: my $output "my test = $test\n";
:
: $test = "NEW TEST";
:
: print $output;
:
: then I will get : my test = test";
:
: is there any way of writing this so as I change $test , $output also changes
You could do that with a tied scalar.
#!perl
use warnings;
use strict;
package MyString;
sub TIESCALAR {
my $class = shift;
my($fmt, @srefs) = @_;
bless sub{ sprintf $fmt, map $$_, @srefs }, $class;
}
sub FETCH{ shift->() }
package main;
tie my($output), 'MyString', "my test = %s", \(my $test);
$test = 'test';
print "$output\n";
$test = $test = "NEW TEST";
print "$output\n";
tie $output, 'MyString', "My %s has %s.\n", \(my($pet, $pest));
($pet, $pest) = ('dog', 'fleas');
print $output;
($pet, $pest) = ('program', 'bugs');
print $output;
------------------------------
Date: Sun, 12 Oct 2003 12:09:04 +1300
From: "Bruce.Dobson" <bruce.dobson@xtra.co.nz>
Subject: Re: End Record Charcter
Message-Id: <840ib.175448$JA5.4403361@news.xtra.co.nz>
Bob, thanks for your reply - <Cntrl>+Z works fine! Thank you also for your
advice regarding adding the info using a text editor file - I think that
process is coming up shortly in the exercises I am working on in the book
"Perl - Weekend Crash Course". I am learning Perl for a student assignment
that I am doing building an auction site.
It is mid spring here and the weather is slowly improving - I hope I can say
the same for my Perl programming!
It is really good to know that there is great help available at this
Newsgroup site.
Cheers
--
Bruce Dobson
8 Prescott Place,
Hamilton,
New Zealand.
Ph 064 7 856 8804 Fax 064 856 8845
Mobile 027 230 7509
"Bob Walton" <invalid-email@rochester.rr.com> wrote in message
news:3F877F1E.2060506@rochester.rr.com...
> Bruce.Dobson wrote:
>
> > I am trying to learn some Perl and doing a tutorial which has the
following
> > code.
> > %grades = ();
> > print "Enter student names (press <cntrl>+D when done:";
> > @names = <STDIN>;
> > chomp @names;
> > print "\n\n";
> > print "Enter corresponding grades (press <cntrl>+D when done):";
> > @scores = <STDIN>;
> > @grades{@names} = @scores;
> >
> > It refers to <cntrl>+D as the "end record character", but this does not
seem
> > to work for me when I run the programme.
> > I installed ActivePerl-5.8.0.806-MSWin32-x86.msi on Windows XP.
> > Can anybody tell me why I cannot get <Cntrl>+D to work or what I use for
the
> > end record character instead of <Cntrl>+D.
> >
>
> Control-D has nothing to do with Perl per se, but is an operating system
> feature. Generally control-D may be used to give an end-of-file
> indication on console input to an application on a Unix system. On
> Windoze, it is more or less a control-Z. Your mileage might vary
> depending upon your version of Windoze -- some versions have a bug which
> hides the next line of output from your program following a control-Z,
> which can be most highly confusing. This is a Windoze bug, since other
> programs besides Perl do it too. A workaround is to simply output an
> extra blank line before printing anything else after a control-Z.
> Better yet (paricularly in the case with data like you've got) would be
> to key the data into a file using an editor, and then read that file
> with Perl. That way one typo doesn't ruin a long series of data input,
> and you get to run various versions of your program, or even other
> programs, on the data without having to type it all in again.
>
> --
> Bob Walton
> Email: http://bwalton.com/cgi-bin/emailbob.pl
>
------------------------------
Date: Sat, 11 Oct 2003 23:39:30 -0400
From: "Yannick Turgeon" <nobody@nowhere.com>
Subject: Extracting specific info from a string
Message-Id: <pan.2003.10.12.03.39.29.988041@nowhere.com>
Hello all,
I just started to use perl and I'm having a string manipulation question:
Say we've got a file (which I load into a variable) with these data in it:
---- Beginning of file after this line --------
My list
A: cat
B: dog
C: horse
A: cow
C: bird
---- End of file before this line --------
or the equivalent:
$myFileString = "My list\nA: cat\nB: dog\nC: horse\nA: cow\nC: bird";
What I'd like to do is to extract the animal associated with the FIRST
occurence of a label. Here with the label "A:" I'd like to remove
everything before and after "cat" (not "cow").
How could I do that? Using regexp? I tryed the following to remove what
was before "cat":
$myFileString =~ s/ ^ .* A:\ //sx;
but this remove everything before "cow" instead of "cat".
Anybody can help?
One more thing. I use the "s" option but I don't undestand it quite well.
On the net, I've found the following:
"This option treats the string as a single line."
in which situation this could be a problem or something we don't want?
TIA
Yannick
------------------------------
Date: 12 Oct 2003 04:08:47 GMT
From: "James E Keenan" <nospam_for_jkeen@concentric.net>
Subject: Re: Extracting specific info from a string
Message-Id: <bmak4f$b8m@dispatch.concentric.net>
"Yannick Turgeon" <nobody@nowhere.com> wrote in message
news:pan.2003.10.12.03.39.29.988041@nowhere.com...
> Hello all,
>
> I just started to use perl and I'm having a string manipulation question:
>
> Say we've got a file (which I load into a variable) with these data in it:
> ---- Beginning of file after this line --------
> My list
> A: cat
> B: dog
> C: horse
> A: cow
> C: bird
> ---- End of file before this line --------
>
> or the equivalent:
> $myFileString = "My list\nA: cat\nB: dog\nC: horse\nA: cow\nC: bird";
>
> What I'd like to do is to extract the animal associated with the FIRST
> occurence of a label. Here with the label "A:" I'd like to remove
> everything before and after "cat" (not "cow").
>
> How could I do that? Using regexp? I tryed the following to remove what
> was before "cat":
>
> $myFileString =~ s/ ^ .* A:\ //sx;
>
> but this remove everything before "cow" instead of "cat".
>
> Anybody can help?
Read up on non-greedy matching:
$myFileString =~ m|^.*?A:\s(.*?)\n|sx;
>
> One more thing. I use the "s" option but I don't undestand it quite well.
> On the net, I've found the following:
> "This option treats the string as a single line."
> in which situation this could be a problem or something we don't want?
>
Your situation is a case of a multi-line string, i.e., a string with
embedded newlines. Hence, it is an appropriate case for use of the /s
modifier. It is probably more common, however, to parse a file
line-by-line, attempting pattern matches on each line in succession. This
latter would *not* be a likely place to use the /s modifier.
jimk
------------------------------
Date: Sat, 11 Oct 2003 23:59:31 GMT
From: "Experienced but Undocumented" <e02@removethis.toao.net>
Subject: Re: How to parse e-mail messages?
Message-Id: <DP0ib.70098$9l5.48332@pd7tw2no>
I found a module to do the work. Mime::Parser works well. Thanks, Anno,
for your suggestions, too :)
Graham
"Experienced but Undocumented" <e02@removethis.toao.net> wrote in message
news:J%Ihb.65435$pl3.62702@pd7tw3no...
> Is there a PERL module that will parse raw e-mail messages? I'm using
> Net::POP3 to download them off a server, but I would like to strip any
HTML
> or Rich Text and just leave plain text.
>
> Thanks if anyone can offer suggestions.
>
>
------------------------------
Date: Sat, 11 Oct 2003 23:02:22 +0100
From: Mr I <konny@waitrose.com>
Subject: Re: mod_perl / Apache problem
Message-Id: <fabm51-7pb.ln1@sam.amaretti.net>
David wrote:
> Thanks to all ...
>
> I ended up phyiscally moving the location of Registry.pm into one of
> the paths that I knew it could see, but also needed to change
> httpd.conf references to Apache::Registry to be ModPerl::Registry
>
> Also, per the above comments, the startup file (on XP) under
> /Apache/confs/ also needed to be amended too.
>
> Anyway, tested it and it all works fine now... Thanks!
Your solution works... for now.
But you'll have problems with the rest of the modules in the directory
you moved Registry.pm from and also if you decide to upgrade.
But its your system.
The *best* solution is actually in the pages I gave and / tutorials /
Manuals.
But it's your system :)
K
------------------------------
Date: Sun, 12 Oct 2003 05:04:28 +1000
From: Sisyphus <kalinaubears@iinet.net.au>
Subject: Re: Old CGI scripts do not work under Mandrake 9.1
Message-Id: <3f8854f0$0$23608$5a62ac22@freenews.iinet.net.au>
Ceri Hankey wrote:
> Tks for reply...
> Yeah, it sure looks like an http config problem. Sure would like to know
> which file cannot be found - I have tried everything to try to trace this.
> Is there any way to get more data in the log files - I have set the LogLevel
> to debug, but still do net get not much info on the 'missing' file!
>
I think the folks at comp.infosystems.www.authoring.cgi are pretty well
versed in Apache configuration issues. Beyond that, *I* can't really help.
Cheers,
Rob
--
To reply by email u have to take out the u in kalinaubears.
------------------------------
Date: 11 Oct 2003 13:42:00 -0700
From: wherrera@lynxview.com (Bill)
Subject: Re: perl - cgi - how to displ a block of records with navigational hyperlinks
Message-Id: <239ce42f.0310111242.701a41db@posting.google.com>
srigowrisn@hotmail.com (shree) wrote in message news:<49b5740e.0310110652.6223ce71@posting.google.com>...
>
> Objective:
> How to get a block of records at a time from a flat file database and
> display it as an html table, with navigational hyperlinks to index
> forward to the next block of records, or index backward to a previous
> block of records.
>
> My workaround previously was to import flatfile into a MySQL database
> and modify SQL stmts in my perl-cgi scripts. I don't have the luxury
> of this option currently..hence, I'm stuck and would appreciate
> hearing suggestions.
Well, if you already have working MySQL database code, is that coded with DBI?
If so, why not use DBD::CSV with DBI on a flat file and recyle your old code?
------------------------------
Date: Sat, 11 Oct 2003 23:43:29 GMT
From: "kbass" <kbass@midsouth.rr.com>
Subject: Perl equivalent to a JavaBean
Message-Id: <BA0ib.5243$oC5.4386@clmboh1-nws5.columbus.rr.com>
Is there a module within Perl that has the equivalent functionality of a
JavaBean?
I would like to use this functionality within CGI without having to go using
Java. Thanks!
Kevin
------------------------------
Date: Sat, 11 Oct 2003 14:08:21 -0700
From: Kristoff <kristoffhahns@*NOSPAM*lycos.com>
Subject: Re: Perl Examples
Message-Id: <bj_hb.68121$Ms2.38823@fed1read03>
Julia,
Which book would you recommend for a Perl newbie? I'll heed your advice
on the elements that Castro's book neglects to mention.
Julia deSilva wrote:
>>I'm learning Perl and CGI with the book Visual Quickstart Guide by
>>Elizabeth Castro. The problem is that I have the first edition book,
>>while Castro only has Perl and CGI example files for her second edition
>>book (available from her web site). Does anybody out there happen to
>>still have the Perl and CGI examples from Castro's first book??
>>
>>I've emailed Castro, but have not received a response, as of yet.
>>
>
>
> While that book is OK for the most basic elements it doesn't mention
> my, cgi.pm or strict, or warnings or slurping or ...........
> and can get you off on the wrong track if you're not careful.
>
> j
>
>
>
------------------------------
Date: Sun, 12 Oct 2003 07:53:50 +1000
From: "Psybar Phreak" <psybar_phreak@yahoo.com>
Subject: previous & next buttons
Message-Id: <3f887bee$0$15134$afc38c87@news.optusnet.com.au>
hi all,
im developing a site in perl with mason on a postgreSQL backend.
i currently have a page that lists all items in a table, but would like to
do the
" << PREVIOUS 1 2 3 4 NEXT>> "
sort of thing - say LIMIT of 10 records to a page.
can someone help me out.
thanks
PP
------------------------------
Date: Sat, 11 Oct 2003 23:15:14 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: previous & next buttons
Message-Id: <mbudash-30836D.16151311102003@typhoon.sonic.net>
In article <3f887bee$0$15134$afc38c87@news.optusnet.com.au>,
"Psybar Phreak" <psybar_phreak@yahoo.com> wrote:
> hi all,
>
> im developing a site in perl with mason on a postgreSQL backend.
>
> i currently have a page that lists all items in a table, but would like to
> do the
> " << PREVIOUS 1 2 3 4 NEXT>> "
>
> sort of thing - say LIMIT of 10 records to a page.
>
> can someone help me out.
HTML::PageIndex looks like it'd be of asistance to you. available at
your friendly neighborhood cpan.org ...
--
Michael Budash
------------------------------
Date: 11 Oct 2003 17:19:52 -0700
From: venturefinance4@yahoo.com (Seldon Wells)
Subject: silicon valley venture funding url
Message-Id: <f3464f80.0310111619.5dc52cb4@posting.google.com>
http://groups.yahoo.com/group/SandHillEC/
------------------------------
Date: Sat, 11 Oct 2003 21:17:30 GMT
From: Henry <henryn@zzzspacebbs.com>
Subject: Re: Teach me how to fish, regexp
Message-Id: <BBADC17B.15AC1%henryn@zzzspacebbs.com>
Tad McClellan:
Thanks for your post on this thread:
in article slrnbof3et.6nu.tadmc@magna.augustmail.com, Tad McClellan at
tadmc@augustmail.com wrote on 10/10/03 9:58 PM:
> Henry <henryn@zzzspacebbs.com> wrote: in article
> slrnboehdb.6fl.tadmc@magna.augustmail.com, Tad McClellan at
> tadmc@augustmail.com wrote on 10/10/03 4:50 PM:
>
>
>>> I prefer to use vi and grep to read the raw *.pod files.
>>>
>> I'm perfectly willing to use grep, but vi is pushing it.
>>
>
> vi is "meta" there.
>
> Substitute "my favorite editor" where I said "vi".
OK. (Unfortunately, I haven't found the right editor for MacOS yet, but
_that_ is a completely different subject.)
>
>
>> either brilliant or appallingly chaotic, I'm not sure yet.
>>
>
> We get that a lot here. :-)
>
> I remember when I first learned Perl too...
>
> Just in case you don't have enough to read yet (heh), here's Larry talking
> about how Perl is more like natural language that most "conventional"
> programming languages:
>
> http://www.wall.org/~larry/natural.html
>
>
> Perl is a bit of a shift in thinking if you are used to other programming
> languages.
(We seem to be diverging form the original topic a bit. I'd be willing to
take this off line, if that makes sense.)
I read Larry Wall's piece on "Natural Language Principals in Perl" as you
recommend. I would have to say that his personal approach --flexibility,
humor, and modesty-- are very refreshing.
Since he discusses "natural language" I'm wondering why he didn't write perl
in actual natural language, e.g., for my issue maybe something like this:
"Slurp standard input in paragraph mode. Split at every at least double
empty line followed by a section number..." One could define "section
number" either in quasi-english terms or --if necessary-- as a regular
expression, or dip deeper via extensions as required.
I don't find his approach wholly convincing, though. I'd like to defer
further comment until I've spent more time using perl, and --in particular--
until after I've solved the problem I set out to do.
Hmmm...I've almost forgotten... Oh, that's it, I was trying to sniff some
legal codes, do some massaging of the content to make it more amenable to
analysis. There's no doubt in my mind that I'll be able to do this with
perl, and nothing but perl. All the components, and much more, are
available. I'm simply worried about mastering chaos in two regimes at
once.
Thanks,
Henry
henryn@zzzspacebbs.com remove 'zzz'
>
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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 5648
***************************************
