[30618] in Perl-Users-Digest
Perl-Users Digest, Issue: 1863 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Sep 19 03:09:43 2008
Date: Fri, 19 Sep 2008 00:09:07 -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 Fri, 19 Sep 2008 Volume: 11 Number: 1863
Today's topics:
Re: Accessing an Array Stored in a File <ced@blv-sam-01.ca.boeing.com>
Re: Accessing an Array Stored in a File <cartercc@gmail.com>
Re: check columns /tabs between two patterns <m@rtij.nl.invlalid>
Re: check columns /tabs between two patterns <tim@burlyhost.com>
Easiest way to do this? <void.no.spam.com@gmail.com>
Re: editor in perl <john@castleamber.com>
Re: editor in perl <john@castleamber.com>
Re: editor in perl <cartercc@gmail.com>
Re: eval, "adding up" words to create a variable? <spamtrap@dot-app.org>
Re: eval, "adding up" words to create a variable? <joost@zeekat.nl>
new CPAN modules on Fri Sep 19 2008 (Randal Schwartz)
Re: Problem using Data::Translate to convert hex to dec <ajcrm125@gmail.com>
Re: simple perl question <cartercc@gmail.com>
Re: simple perl question <tadmc@seesig.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 Sep 2008 12:16:17 -0700 (PDT)
From: "C.DeRykus" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Accessing an Array Stored in a File
Message-Id: <ad6c7b32-35a0-4ead-a802-6fccc15bbd47@l33g2000pri.googlegroups.com>
On Sep 18, 6:50 am, hamidre...@yahoo.com wrote:
> Hi all:
>
> I have a BIG array. I store it in a file using Storable::store.
>
> I want to use it in another Perl program. The BIG array cannot be
> loaded into memory since it is just too BIG.
>
> Any trick to use its copy in the file as an object and access it? It
> might be very slow but I don't care about speed. I just want to get
> over this memory problem.
>
> In otherwords, can Perl access an object stored in a file as if it
> were in memory?
>
> NOTE: I know I can load it in memory. I don't want to. I want to
> access it while it sits in the file.
>
DB_File or MLDBM (if multi-level)
are other possible options.
--
Charles DeRykus
------------------------------
Date: Thu, 18 Sep 2008 12:32:56 -0700 (PDT)
From: cartercc <cartercc@gmail.com>
Subject: Re: Accessing an Array Stored in a File
Message-Id: <fcffb8e9-1051-4817-be10-48b5c0cebf86@z6g2000pre.googlegroups.com>
On Sep 18, 9:50=A0am, hamidre...@yahoo.com wrote:
> I want to use it in another Perl program. The BIG array cannot be
> loaded into memory since it is just too BIG.
>
> Any trick to use its copy in the file as an object and access it? It
> might be very slow but I don't care about speed. I just want to get
> over this memory problem.
>
> In otherwords, can Perl access an object stored in a file as if it
> were in memory?
>
> NOTE: I know I can load it in memory. I don't want to. I want to
> access it while it sits in the file.
In an array, individual elements are accessed sequentially according
to the subscript. Do the same thing with your file.
my $subscript =3D 0;
open BIGFILE, "<bigfile.dat";
while(<BIGFILE>)
{
if ($subscript eq $target) { process_element($_); }
elsif (/$match/) { process_element($_); }
$subscript++;
}
close BIGFILE;
}
CC
------------------------------
Date: Thu, 18 Sep 2008 22:43:45 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: check columns /tabs between two patterns
Message-Id: <pan.2008.09.18.20.43.45@rtij.nl.invlalid>
On Mon, 15 Sep 2008 11:46:13 -0700, Marek wrote:
> But Tad's suggestion I don't understand!
>
> If something is *not* matching
>
> elsif ( ! /(pattern3)\t{3}(number3)\s*/i ) { ... }
>
> it will always match. Consider first line of __DATA__
>
> pattern1 number1
>
> this would match already, because it *does not* match, because of > ! <
>
> But I am a simple beginner; probably I did not understand something
> here!
No, you're quite right and I was quite wrong, as well as Tad. Sorry,
brain misfiring I guess.
M4
------------------------------
Date: Thu, 18 Sep 2008 19:52:09 -0700
From: Tim Greer <tim@burlyhost.com>
Subject: Re: check columns /tabs between two patterns
Message-Id: <utEAk.13331$rV4.1833@newsfe03.iad>
Marek wrote:
> Sorry Tad,
>
... snip...
>
> And this is not working. Certainly a misunderstanding? And here the
> version, how I understood Petr and Martjin ...
>
> #! /usr/local/bin/perl
>
> use warnings;
> use strict;
>
> while (<DATA>) {
>
> s/\s+#.+//;
> next if /^\s*$/;
>
> if (/(pattern1)(\t+)(number1)\s*/i) {
> print
> "Wrong number of tabs between \"$1\" and the number \"$2\" in the
> line: \n\t$.: $_\n\n" if length($2) !=1 ;
>
> }
> elsif (/(pattern2)(\t+)(number2)\s*/i) {
> print
> "Wrong number of tabs between \"$1\" and the number \"$2\" in the
> line: \n\t$.: $_\n\n" if length($2) !=2 ;
>
> }
> elsif (/(pattern3)(\t+)(number3)\s*/i) {
> print
> "Wrong number of tabs between \"$1\" and the number \"$2\" in the
> line: \n\t$.: $_\n\n" if length($2) !=3 ;
>
> }
> else {
>
> print "\nno match!\n\n";
>
> }
> }
>
> __DATA__
>
> pattern1 number1
> pattern2 number2
> pattern3 number3
> pattern1 number1 # wrong number of tabs (2tabs)
> pattern2 number2 # wrong number of tabs (3tabs)
> pattern3 number3 # wrong number of tabs (4tabs)
> pattern2 number2 # wrong number of tabs (1tab)
> pattern3 number3 # wrong number of tabs (2tabs)
You are capturing $2 and printing the tab(s) as the number in your
output when the number is wrong. You should use $3 for the actual
number in the output.
Also, just for the sake of getting rid of all of the if/else's, I've
modified the example to use one line and capture the number itself
(from pattern) to work more dynamically:
Note: Watch for word wrapping in the below code example:
#!/usr/bin/perl
use warnings;
use strict;
while (<DATA>) {
s/\s+#.+//;
next if /^\s*$/;
if (/pattern(\d+)(\t+)number(\d+)\s*/i) {
print "Wrong number of tabs between \"pattern$1\" ",
"and the number \"number$3\" in the line:\n\t$.:
",
" $_\n\n" if length($2) != $1;
} else {
print "\nno match!\n\n";
}
}
__DATA__
pattern1 number1
pattern2 number2
pattern3 number3
pattern1 number1 # wrong number
of tabs (2tabs)
pattern2 number2 # wrong number
of tabs        (3tabs)
pattern3 number3 # wrong number
of tabs        (4tabs)
pattern2 number2 # wrong number
of tabs (1tab)
pattern3 number3
# wrong number of tabs        (2tabs)
--
Tim Greer, CEO/Founder/CTO, BurlyHost.com, Inc.
Shared Hosting, Reseller Hosting, Dedicated & Semi-Dedicated servers
and Custom Hosting. 24/7 support, 30 day guarantee, secure servers.
Industry's most experienced staff! -- Web Hosting With Muscle!
------------------------------
Date: Thu, 18 Sep 2008 22:23:51 -0700 (PDT)
From: "void.no.spam.com@gmail.com" <void.no.spam.com@gmail.com>
Subject: Easiest way to do this?
Message-Id: <aa7e6368-c77e-4162-8abc-40ad49c185e7@m3g2000hsc.googlegroups.com>
I need to be able to take any dollar amount, such as 25103.34, and
multiply it by 0.0000056. Then I need to take the result and truncate
everything after the fifth decimal place, so if the result is
0.140578704, then I will have 0.14057. Then I need to round up to the
nearest cent (ceiling function), so if I have 0.14057, then the result
will be 0.15. What would be the easiest way to achieve this?
------------------------------
Date: 18 Sep 2008 18:29:11 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: editor in perl
Message-Id: <Xns9B1D8930EAB4Dcastleamber@130.133.1.4>
RedGrittyBrick <RedGrittyBrick@spamweary.invalid> wrote:
> Worked for me a while ago, works for me now.
> Firefox.
Thanks. It seems that my hosting provider has "some time ago" changed the
IP address of the server, and for some reason today is the day that it
breaks for a lot of my visitors, *sigh*.
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: 18 Sep 2008 18:35:25 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: editor in perl
Message-Id: <Xns9B1D8A3F514ADcastleamber@130.133.1.4>
Jürgen Exner <jurgenex@hotmail.com> wrote:
> asit <lipun4u@gmail.com> wrote:
>>I am a newbie in perl. I mostly write scripts in windows platform.
>>Can anyone tell me which is the best editor in perl ????
>
> I don't know of any editor in Perl.
Scintilla + Wx makes that possible in an easy way as far as I know, and
indeed:
http://kephra.sourceforge.net/site/en/home_news.shtml
http://padre.perlide.org/
--
John http://johnbokma.com/ - Hacking & Hiking in Mexico
Perl help in exchange for a gift:
http://johnbokma.com/perl/help-in-exchange-for-a-gift.html
------------------------------
Date: Thu, 18 Sep 2008 12:20:39 -0700 (PDT)
From: cartercc <cartercc@gmail.com>
Subject: Re: editor in perl
Message-Id: <d5a75515-3011-4012-95f0-d92b3daac8f6@v16g2000prc.googlegroups.com>
I like gvim, a Windows port of vim (vi). This is my editor of choice
for both Linux and Windows.
http://www.vim.org/download.php
I also use notepad and Textpad.
CC
asit wrote:
> I am a newbie in perl. I mostly write scripts in windows platform.
>
> Can anyone tell me which is the best editor in perl ????
------------------------------
Date: Thu, 18 Sep 2008 15:12:54 -0400
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: eval, "adding up" words to create a variable?
Message-Id: <m1k5d9s1xl.fsf@dot-app.org>
Tomasz Chmielewski <tch@nospam.wpkg.org> writes:
> Joost Diepenmaat schrieb:
>
>> also: IMHO it's bad style to use the &foo() construct to call
>> functions. foo() is a little shorted and has less potential problems.
>
> Besides being "bad style", what potential problems can it make?
& was the norm for Perl 4. It's still supported for compatibility, but
it has side-effects that you probably don't want when you're writing
new code. It circumvents prototypes, and it doesn't localize @_ for
arguments.
In general, if you don't know whether you need to use &foo(), then you
don't need to. Its uses are few and very specific.
Have a look at 'perldoc perlsub' for details.
sherm--
--
My blog: http://shermspace.blogspot.com
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 18 Sep 2008 21:17:52 +0200
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: eval, "adding up" words to create a variable?
Message-Id: <8763otb6vz.fsf@zeekat.nl>
RedGrittyBrick <RedGrittyBrick@spamweary.invalid> writes:
> Tomasz Chmielewski wrote:
>> Joost Diepenmaat schrieb:
>>> also: IMHO it's bad style to use the &foo() construct to call
>>> functions. foo() is a little shorted and has less potential problems.
>>
>> Besides being "bad style", what potential problems can it make?
>> (code readability? something else?)
>>
>
> See perldoc perlsub. It circumvents prototypes and causes current @_
> to be visible to the called subroutine. In 99% of cases you don't want
> this.
Exactly, but note that passing on @_ only happens if you don't specify
parentheses and no arguments, like this:
sub mything {
my ($arg) = @_;
&something_else; # this passes on @_ to something_else
}
> Using the &sub call notation was common in Perl 4 days but IIRC that
> was superseded back in 1993, more than fifteen years ago.
>
> Presumably you are learning Perl from something that is 15 years out
> of date.
I would think so too.
--
Joost Diepenmaat | blog: http://joost.zeekat.nl/ | work: http://zeekat.nl/
------------------------------
Date: Fri, 19 Sep 2008 04:42:21 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Fri Sep 19 2008
Message-Id: <K7FEEL.1xEG@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
AI-Genetic-Pro-0.17
http://search.cpan.org/~strzelec/AI-Genetic-Pro-0.17/
Efficient genetic algorithms for professional purpose.
----
Audio-Ecasound-Multitrack-0.95
http://search.cpan.org/~ganglion/Audio-Ecasound-Multitrack-0.95/
Perl libraries for multitrack audio processing using the Ecasound signal-processing engine.
----
Bundle-DBD-PO-0.08
http://search.cpan.org/~steffenw/Bundle-DBD-PO-0.08/
A bundle to install all DBD::PO related modules
----
CPAN-IndexPod-0.25
http://search.cpan.org/~lbrocard/CPAN-IndexPod-0.25/
Index the POD from an unpacked CPAN
----
CPAN-Metadata-RDF-1.11
http://search.cpan.org/~lbrocard/CPAN-Metadata-RDF-1.11/
Generate metadata about CPAN in RDF
----
CPAN-Mini-Webserver-0.43
http://search.cpan.org/~lbrocard/CPAN-Mini-Webserver-0.43/
Search and browse Mini CPAN
----
CPAN-Testers-WWW-Statistics-0.49
http://search.cpan.org/~barbie/CPAN-Testers-WWW-Statistics-0.49/
CPAN Testers Statistics website.
----
CPAN-Unpack-0.23
http://search.cpan.org/~lbrocard/CPAN-Unpack-0.23/
Unpack CPAN distributions
----
CPAN-WWW-Testers-Generator-0.28
http://search.cpan.org/~barbie/CPAN-WWW-Testers-Generator-0.28/
Download and summarize CPAN Testers data
----
Coat-0.332
http://search.cpan.org/~sukria/Coat-0.332/
A light and self-dependent meta-class for Perl5
----
Coat-Persistent-0.101
http://search.cpan.org/~sukria/Coat-Persistent-0.101/
Simple Object-Relational mapping for Coat objects
----
DBD-PO-0.08
http://search.cpan.org/~steffenw/DBD-PO-0.08/
DBI driver for PO files
----
DBIx-Compare-1.2
http://search.cpan.org/~cjones/DBIx-Compare-1.2/
Compare database content
----
DBIx-Compare-ContentChecksum-mysql-1.2
http://search.cpan.org/~cjones/DBIx-Compare-ContentChecksum-mysql-1.2/
Extension to DBIx::Compare, enables more detailed comparison of MySQL databases.
----
GD-Convert-2.15
http://search.cpan.org/~srezic/GD-Convert-2.15/
additional output formats for GD
----
IO-Handle-Record-0.10
http://search.cpan.org/~opi/IO-Handle-Record-0.10/
IO::Handle extension to pass perl data structures
----
IPC-Message-Minivan-0.01_06
http://search.cpan.org/~gruber/IPC-Message-Minivan-0.01_06/
a minimalistic message bus
----
Kephra-0.3.10.11
http://search.cpan.org/~lichtkind/Kephra-0.3.10.11/
crossplatform, GUI-Texteditor along perllike Paradigms
----
LaTeX-Table-0.9.2
http://search.cpan.org/~limaone/LaTeX-Table-0.9.2/
Perl extension for the automatic generation of LaTeX tables.
----
Mail-Outlook-0.14
http://search.cpan.org/~barbie/Mail-Outlook-0.14/
mail module to interface with Microsoft (R) Outlook (R).
----
Math-RungeKutta-1.03
http://search.cpan.org/~pjb/Math-RungeKutta-1.03/
Integrating Systems of Differential Equations
----
Math-RungeKutta-1.04
http://search.cpan.org/~pjb/Math-RungeKutta-1.04/
Integrating Systems of Differential Equations
----
Nagios-Plugin-LDAP-0.01
http://search.cpan.org/~gbarr/Nagios-Plugin-LDAP-0.01/
Nagios plugin to observe LDAP.
----
Nagios-Plugin-LDAP-0.02
http://search.cpan.org/~gbarr/Nagios-Plugin-LDAP-0.02/
Nagios plugin to observe LDAP.
----
Pod-Simple-Wiki-Googlecode-0.01
http://search.cpan.org/~fayland/Pod-Simple-Wiki-Googlecode-0.01/
----
Pod-Simple-Wiki-Googlecode-0.02
http://search.cpan.org/~fayland/Pod-Simple-Wiki-Googlecode-0.02/
A class for creating Pod to Google Code Wiki filters.
----
QualysGuard-Request-0.03
http://search.cpan.org/~pdevlin/QualysGuard-Request-0.03/
Simple interface to QualysGuard API
----
Spread-Messaging-0.03
http://search.cpan.org/~kesteb/Spread-Messaging-0.03/
A Perl extension to the Spread Group Communications toolkit
----
Template-Alloy-1.013
http://search.cpan.org/~rhandom/Template-Alloy-1.013/
TT2/3, HT, HTE, Tmpl, and Velocity Engine
----
Template-Provider-Preload-0.04
http://search.cpan.org/~adamk/Template-Provider-Preload-0.04/
Preload templates to save memory when forking
----
Test-Aggregate-0.34_04
http://search.cpan.org/~ovid/Test-Aggregate-0.34_04/
Aggregate *.t tests to make them run faster.
----
Test-DBUnit-0.13
http://search.cpan.org/~adrianwit/Test-DBUnit-0.13/
Database test framework.
----
Tk-EntrySet-0.07
http://search.cpan.org/~lamprecht/Tk-EntrySet-0.07/
display/edit a list of values in a Set of Widgets.
----
Tk-IDElayout-0.32
http://search.cpan.org/~cerney/Tk-IDElayout-0.32/
Tk Widget for Layout of Frames Similar to an IDE.
----
Tk-StyleDialog-0.01
http://search.cpan.org/~kirsle/Tk-StyleDialog-0.01/
Stylish dialog boxes with custom icons.
----
XML-XForms-Validate-0.9
http://search.cpan.org/~jwalt/XML-XForms-Validate-0.9/
Perl extension for validation of XForms submissions
----
XTerm-Conf-0.02
http://search.cpan.org/~srezic/XTerm-Conf-0.02/
change configuration of a running xterm
----
XTerm-Conf-0.03
http://search.cpan.org/~srezic/XTerm-Conf-0.03/
change configuration of a running xterm
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Thu, 18 Sep 2008 11:51:16 -0700 (PDT)
From: ajcrm125 <ajcrm125@gmail.com>
Subject: Re: Problem using Data::Translate to convert hex to decimal
Message-Id: <85b0e483-f5a1-4c19-b6f3-2fc5f5b335b9@a29g2000pra.googlegroups.com>
On Sep 18, 10:58=A0am, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth ajcrm125 <ajcrm...@gmail.com>:
>
> > For whatever reason... the h2d is not converting some characters.
> > Here's an example trying to convert "09":
>
> > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
> > use lib "/afs/btv.ibm.com/u/adamc/usr/lib/perl5/site_perl/5.8.5";
> > use Data::Translate;
> > $data =3D new Translate;
>
> > ($status,$result) =3D $data->h2d("09");
> > print "result is $result\n";
> > =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
>
> Why not just use hex()?
>
> =A0 =A0 ~% perl -le'print hex("0f")
> =A0 =A0 15
>
> Ben
>
> --
> Heracles: Vulture! Here's a titbit for you / A few dried molecules of the=
gall
> =A0 =A0From the liver of a friend of yours. / Excuse the arrow but I have=
no spoon.
> (Ted Hughes, =A0 =A0 =A0 =A0[ Heracles shoots Vulture with arrow. Vulture=
bursts into ]
> =A0'Alcestis') =A0 =A0 =A0 =A0[ flame, and falls out of sight. ] =A0 =A0 =
=A0 =A0 b...@morrow.me.uk
Never even knew that function existed. Thanks!
Wonder why the h2d function is not working as expected though.
??
------------------------------
Date: Thu, 18 Sep 2008 14:42:59 -0700 (PDT)
From: cartercc <cartercc@gmail.com>
Subject: Re: simple perl question
Message-Id: <0d322975-b5c9-401c-a054-d1be2f8ad1dd@f36g2000hsa.googlegroups.com>
Small modification to outline what you actually print and to remove
the "Content-MD5" line.
my $flag = 0;
print "----------------------------\n";
while(<DATA>)
{
if ($_ =~ /^Content-MD5/) { $flag = 1; }
if ($_ =~ /^----/) { $flag = 0; }
if ($flag and /\w/ and !/Content-MD5/) { print; }
}
print "----------------------------\n";
------------------------------
Date: Thu, 18 Sep 2008 21:14:33 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: simple perl question
Message-Id: <slrngd62o9.i1i.tadmc@tadmc30.sbcglobal.net>
Scott <iceaxe@gmail.com> wrote:
> Subject: simple perl question
Please put the subject of your message in the Subject of
your message. That is what it is for.
> I'm writing a program to extract and reconstruct MIME attachments
None of the MIME experts will know that your post is about
MIME, because of your poor choice of Subject.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 1863
***************************************
