[29515] in Perl-Users-Digest
Perl-Users Digest, Issue: 759 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Aug 16 14:19:31 2007
Date: Thu, 16 Aug 2007 11:19:24 -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 Thu, 16 Aug 2007 Volume: 11 Number: 759
Today's topics:
new CPAN modules on Thu Aug 16 2007 (Randal Schwartz)
Newbie Perl question christopher.prowse@gmail.com
Re: Newbie Perl question xhoster@gmail.com
Re: Newbie Perl question <nobull67@gmail.com>
Re: Newbie Perl question cprowse@yahoo.com
Re: Newbie Perl question (Randal L. Schwartz)
Re: Newbie Perl question <jurgenex@hotmail.com>
Re: Newbie Perl question <jurgenex@hotmail.com>
Re: Newbie Perl question cprowse@yahoo.com
OLE::Variant array of strings kevind0718@gmail.com
Palm::PDB: How to compose a PDB? <josef.moellers@fujitsu-siemens.com>
Passing a reference as a reference pamelamishra@gmail.com
Re: Passing a reference as a reference <mritty@gmail.com>
Re: perl DBI OO <tzz@lifelogs.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 16 Aug 2007 04:42:15 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Aug 16 2007
Message-Id: <JMunqF.39K@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.
Acme-ESP-1.002002
http://search.cpan.org/~tyemq/Acme-ESP-1.002002/
The power to implant and extract strings' thoughts.
----
Algorithm-Dependency-Source-DBI-0.02
http://search.cpan.org/~adamk/Algorithm-Dependency-Source-DBI-0.02/
Database source for Algorithm::Dependency
----
Alien-Selenium-0.06
http://search.cpan.org/~domq/Alien-Selenium-0.06/
installing and finding the Selenium Web test framework
----
Alien-wxWidgets-0.32
http://search.cpan.org/~mbarbon/Alien-wxWidgets-0.32/
building, finding and using wxWidgets binaries
----
Archive-Tar-1.34
http://search.cpan.org/~kane/Archive-Tar-1.34/
module for manipulations of tar archives
----
Attribute-GlobalEnable-0.01
http://search.cpan.org/~cmonson/Attribute-GlobalEnable-0.01/
Enable Attrubutes and flags globally across all code.
----
Bio-Grep-v0.9.1
http://search.cpan.org/~limaone/Bio-Grep-v0.9.1/
Perl extension for searching in Fasta files
----
Business-ISBN-2.02
http://search.cpan.org/~bdfoy/Business-ISBN-2.02/
work with International Standard Book Numbers
----
CPAN-SQLite-0.18
http://search.cpan.org/~rkobes/CPAN-SQLite-0.18/
maintain and search a minimal CPAN database
----
Catalyst-Model-HTML-FormFu-0.99999
http://search.cpan.org/~dmaki/Catalyst-Model-HTML-FormFu-0.99999/
FormFu In Your Model
----
Catalyst-Plugin-Session-0.18
http://search.cpan.org/~nuffin/Catalyst-Plugin-Session-0.18/
Generic Session plugin - ties together server side storage and client side state required to maintain session data.
----
Class-Accessor-Children-0.02
http://search.cpan.org/~kawasaki/Class-Accessor-Children-0.02/
Automated child-class/accessor generation
----
Config-INI-0.006
http://search.cpan.org/~rjbs/Config-INI-0.006/
----
Crypt-AON-0.03
http://search.cpan.org/~zandet/Crypt-AON-0.03/
All-Or-Nothing Encryption
----
Crypt-AON-0.04
http://search.cpan.org/~zandet/Crypt-AON-0.04/
All-Or-Nothing Encryption
----
Crypt-AON-0.05
http://search.cpan.org/~zandet/Crypt-AON-0.05/
All-Or-Nothing Encryption
----
Crypt-AON-0.06
http://search.cpan.org/~zandet/Crypt-AON-0.06/
All-Or-Nothing Encryption
----
Crypt-AON-0.07
http://search.cpan.org/~zandet/Crypt-AON-0.07/
All-Or-Nothing Encryption
----
Crypt-AON-Util-0.03
http://search.cpan.org/~zandet/Crypt-AON-Util-0.03/
Util functions for Crypt::AON
----
Crypt-AON-Util-0.04
http://search.cpan.org/~zandet/Crypt-AON-Util-0.04/
Util functions for Crypt::AON
----
Crypt-AON-Util-0.05
http://search.cpan.org/~zandet/Crypt-AON-Util-0.05/
Util functions for Crypt::AON
----
Crypt-AoN-Util-0.02
http://search.cpan.org/~zandet/Crypt-AoN-Util-0.02/
Perl extension for Utility functions for Crypt::AoN
----
Daemon-Generic-0.51
http://search.cpan.org/~muir/Daemon-Generic-0.51/
framework to provide start/stop/reload for a daemon
----
File-PerlMove-0.04
http://search.cpan.org/~jv/File-PerlMove-0.04/
Rename files using Perl expressions
----
IPC-MorseSignals-0.01
http://search.cpan.org/~vpit/IPC-MorseSignals-0.01/
Communicate between processes with Morse signals.
----
Module-Build-Convert-0.49
http://search.cpan.org/~schubiger/Module-Build-Convert-0.49/
Makefile.PL to Build.PL converter
----
Net-FTPServer-XferLog-1.3
http://search.cpan.org/~tbone/Net-FTPServer-XferLog-1.3/
parse FTP server xfer logs.
----
Net-SMS-2Way-0.02
http://search.cpan.org/~lengel/Net-SMS-2Way-0.02/
BulkSMS API
----
Net-Telnet-Brcd-0.19
http://search.cpan.org/~lbendavid/Net-Telnet-Brcd-0.19/
Perl libraries to contact Brocade switch
----
Net-Z3950-SimpleServer-1.06
http://search.cpan.org/~mirk/Net-Z3950-SimpleServer-1.06/
Simple Perl API for building Z39.50 servers.
----
Number-Phone-NO-0.06
http://search.cpan.org/~andremar/Number-Phone-NO-0.06/
Norwegian subclass of Number::Phone
----
Number-Phone-NO-0.07
http://search.cpan.org/~andremar/Number-Phone-NO-0.07/
Norwegian subclass of Number::Phone
----
Number-Phone-NO-0.08
http://search.cpan.org/~andremar/Number-Phone-NO-0.08/
Norwegian subclass of Number::Phone
----
POE-Component-CPAN-YACSmoke-1.01
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.01/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-CPAN-YACSmoke-1.02
http://search.cpan.org/~bingos/POE-Component-CPAN-YACSmoke-1.02/
Bringing the power of POE to CPAN smoke testing.
----
POE-Component-Generic-0.1004
http://search.cpan.org/~gwyn/POE-Component-Generic-0.1004/
A POE component that provides non-blocking access to a blocking object.
----
POE-Component-Generic-0.1005
http://search.cpan.org/~gwyn/POE-Component-Generic-0.1005/
A POE component that provides non-blocking access to a blocking object.
----
Params-Classify-0.003
http://search.cpan.org/~zefram/Params-Classify-0.003/
argument type classification
----
RT-Extension-AttributeWalker-0.01
http://search.cpan.org/~falcone/RT-Extension-AttributeWalker-0.01/
Examining Attributes of a user
----
RT-Extension-AttributeWalker-0.02
http://search.cpan.org/~falcone/RT-Extension-AttributeWalker-0.02/
Examining Attributes of a user
----
Regexp-Genex-0.07
http://search.cpan.org/~bowmanbs/Regexp-Genex-0.07/
get the strings a regex will match, with a regex
----
SVG-2.34
http://search.cpan.org/~ronan/SVG-2.34/
Perl extension for generating Scalable Vector Graphics (SVG) documents
----
Web-Scraper-0.09
http://search.cpan.org/~miyagawa/Web-Scraper-0.09/
Web Scraping Toolkit inspired by Scrapi
----
Wx-0.76
http://search.cpan.org/~mbarbon/Wx-0.76/
interface to the wxWidgets cross-platform GUI toolkit
----
XML-Simple-2.18
http://search.cpan.org/~grantm/XML-Simple-2.18/
Easy API to maintain XML (esp config files)
----
YAML-Tiny-1.14
http://search.cpan.org/~adamk/YAML-Tiny-1.14/
Read/Write YAML files with as little code as possible
----
parent-0.217
http://search.cpan.org/~corion/parent-0.217/
Establish an ISA relationship with base classes at compile time
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/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 16 Aug 2007 09:57:37 -0700
From: christopher.prowse@gmail.com
Subject: Newbie Perl question
Message-Id: <1187283457.277102.145250@22g2000hsm.googlegroups.com>
Hi experts,
A quick (I hope) question...
I want to be able to verify if any directory that matches a simple
regexp exists, but using the -d flag. So for example, I would want:
if (-d "/opt/*abc") {
print "Directory exists\n";
};
to print "Directory exists" if there are any directories such as "/opt/
abc", "/opt/123abc", "/opt/asdfghabc", and only fail the condition if
nothing meets it. More than one directory conforming to the regexp
should also successfully print "Directory exists".
Thanks in advance,
-Chris
------------------------------
Date: 16 Aug 2007 17:14:37 GMT
From: xhoster@gmail.com
Subject: Re: Newbie Perl question
Message-Id: <20070816131439.523$LD@newsreader.com>
christopher.prowse@gmail.com wrote:
> Hi experts,
>
> A quick (I hope) question...
>
> I want to be able to verify if any directory that matches a simple
> regexp exists, but using the -d flag. So for example, I would want:
>
> if (-d "/opt/*abc") {
That isn't a regexp (or at least not a Perl regexp), it is shell expansion
or a glob.
> print "Directory exists\n";
> };
if (grep -d, glob "/opt/*abc") {
That doesn't stop upon finding the first directory. If that bothers you,
you can use List::Util::first.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Thu, 16 Aug 2007 17:15:04 -0000
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: Newbie Perl question
Message-Id: <1187284504.204014.217360@a39g2000hsc.googlegroups.com>
On Aug 16, 5:57 pm, christopher.pro...@gmail.com wrote:
> Subject: Newbie Perl question
Please put the subject of your post in the Subject of your post.
To do otherwise is very rude.
------------------------------
Date: Thu, 16 Aug 2007 10:21:55 -0700
From: cprowse@yahoo.com
Subject: Re: Newbie Perl question
Message-Id: <1187284915.079019.244070@22g2000hsm.googlegroups.com>
On 16 Aug, 18:15, Brian McCauley <nobul...@gmail.com> wrote:
> On Aug 16, 5:57 pm, christopher.pro...@gmail.com wrote:
>
> > Subject: Newbie Perl question
>
> Please put the subject of your post in the Subject of your post.
>
> To do otherwise is very rude.
Apologies - clearly "newbie" applies not just to Perl. Suspect I'm
posting incorrectly to the top or bottom as well.
Xho >> thanks for the clarification and answer, should do exactly what
I want.
Kind Regards,
-Chris
------------------------------
Date: Thu, 16 Aug 2007 10:28:56 -0700
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: Newbie Perl question
Message-Id: <86643fe6cn.fsf@blue.stonehenge.com>
>>>>> "christopher" == christopher prowse <christopher.prowse@gmail.com> writes:
christopher> I want to be able to verify if any directory that matches a simple
christopher> regexp exists, but using the -d flag. So for example, I would want:
christopher> if (-d "/opt/*abc") {
christopher> print "Directory exists\n";
christopher> };
The -d doesn't glob. You need to glob, to glob. :)
my @interesting_dirs = glob "/opt/*abc";
if (@interesting_dirs) {
print "they exist!\n";
}
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/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Thu, 16 Aug 2007 17:44:50 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Newbie Perl question
Message-Id: <m20xi.3719$Be.522@trndny04>
christopher.prowse@gmail.com wrote:
> I want to be able to verify if any directory that matches a simple
> regexp exists, but using the -d flag. So for example, I would want:
Do you mean "but using" or "by using"?
"By using" doesn't work because -d (like all of the file test operators)
takes a file name as argument, not a RE.
> if (-d "/opt/*abc") {
> print "Directory exists\n";
> };
>
> to print "Directory exists" if there are any directories such as
> "/opt/ abc", "/opt/123abc", "/opt/asdfghabc", and only fail the
> condition if nothing meets it. More than one directory conforming to
> the regexp should also successfully print "Directory exists".
Actually, I think this is a non-trivial task.
If you were asking for shell expansion, then the issue would be simple. Just
do a glob() to get all file names and then a grep() with -d to filter for
the directories.
However, glob() doesn't do REs and you specifically asked for REs. I have no
idea how to list any file names based on REs except by walking the directory
tree using e.g. File::Find which of course is slow and cumbersome.
jue
------------------------------
Date: Thu, 16 Aug 2007 17:49:07 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Newbie Perl question
Message-Id: <n60xi.1303$%d.1298@trndny08>
Randal L. Schwartz wrote:
>>>>>> "christopher" == christopher prowse
>>>>>> <christopher.prowse@gmail.com> writes:
>
> christopher> I want to be able to verify if any directory that
> matches a simple christopher> regexp exists, but using the -d flag.
> So for example, I would want:
>
> christopher> if (-d "/opt/*abc") {
> christopher> print "Directory exists\n";
> christopher> };
>
> The -d doesn't glob. You need to glob, to glob. :)
Well, glob does shell filename globbing only, it doesn't do RE matching.
And the OP was explicitely asking for RE matching which makes the task a lot
more complicated.
jue
------------------------------
Date: Thu, 16 Aug 2007 10:57:56 -0700
From: cprowse@yahoo.com
Subject: Re: Newbie Perl question
Message-Id: <1187287076.695432.120630@k79g2000hse.googlegroups.com>
On 16 Aug, 18:49, "J=FCrgen Exner" <jurge...@hotmail.com> wrote:
> Randal L. Schwartz wrote:
> >>>>>> "christopher" =3D=3D christopher prowse
> >>>>>> <christopher.pro...@gmail.com> writes:
>
> > christopher> I want to be able to verify if any directory that
> > matches a simple christopher> regexp exists, but using the -d flag.
> > So for example, I would want:
>
> > christopher> if (-d "/opt/*abc") {
> > christopher> print "Directory exists\n";
> > christopher> };
>
> > The -d doesn't glob. You need to glob, to glob. :)
>
> Well, glob does shell filename globbing only, it doesn't do RE matching.
> And the OP was explicitely asking for RE matching which makes the task a =
lot
> more complicated.
>
> jue
Unfortunately, OP clearly didn't understand his own question.
Apologies, I clearly worded something more confusing than I meant.
Xho's solution seems to do the job, I just want to know if any
directory exists that meets my condition (which I unfortunately called
a regexp, mostly because it has an * in it :S ). Thanks all for your
quick responses.
------------------------------
Date: Thu, 16 Aug 2007 09:17:54 -0700
From: kevind0718@gmail.com
Subject: OLE::Variant array of strings
Message-Id: <1187281074.622052.278110@50g2000hsm.googlegroups.com>
Hello:
I am attempting to access Bloomberg, an ActiveX control (a fincial
data source) via Perl. I can not figure out how to pass a variant
array of strings to the above ActiveX control.
Here is my PERL code.
use Win32::OLE;
use Win32::OLE::Variant;
$blpData = Win32::OLE->new('Bloomberg.Data.1') or
die "can NOT load the blpData" ; #print $blpData->Timeout . "\n";
$aSec = Variant(VT_BSTR, "IBM Equity");
@tmpArray = ("PX_Last");
$aFields = Variant(VT_ARRAY|VT_UI1, "PX_Last" );
$sDate = Variant(VT_DATE, "2007/07/01");
$eDate = Variant(VT_DATE, "2007/07/10");
@bbData = Variant(VT_EMPTY, undef);
@bbData = $blpData->BLPGetHistoricalData($aSec, $aFields, $sDate,
$eDate);
print "Array Size: " , $#bbData . "\n";
foreach $bbData (@bbData) {
print $bbData
}
print "end" ;
Here the documentation on the BLPGetHistoricalData call
VARIANT BLPGetHistoricalData (VARIANT Security, VARIANT Fields,
VARIANT StartDate, VARIANT EndDate,
VARIANT BarSize, VARIANT BarFields);
Security: in Specifies either a single security, or array of
securities as the basis of the request. See Security Syntax
Fields: in An array of Bloomberg field references, or mnemonics. All
applicable fields can be found in the bbfields.tbl data dictionary.
For a list of the three fields which can be used for an Intraday Time-
Bars request, see the Time-Bar Fields page.
StartDate: in Either an absolute date indicating the first date about
which data will be returned, or a numerical value relating to the
number of days back in history to report from. The latter type
indicates an intraday activity request. For more details, click the
StartDate link in the above method signature.
EndDate: in, optional Indicates the final date about which data will
be reported. Omitting this parameter causes all data to be reported up
until the current time of request.
Please note that the Fields parameter expects a variant.
Question: How do I create a variant array of strings?
I am getting an error on the Fields parameter.
Need help to make some VBA macros go away.
Thanks in Advance
KD
------------------------------
Date: Thu, 16 Aug 2007 16:29:47 +0200
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Palm::PDB: How to compose a PDB?
Message-Id: <fa1n10$24a$1@nntp.fujitsu-siemens.com>
Hi,
I am trying to convert between a Palm PDB "database" file and a CSV file.=
Reading the PDB and writing the CSV is pretty easy: I write a helper=20
class which exports the ParseAppInfoBlock() and ParseRecord() methods=20
and registers itself by calling Palm::PDB::RegisterPDBHandlers().
However, when trying to write a PDB file, I get the error message
Can't locate object method "PackAppInfoBlock" via package "Palm::PDB" at =
/usr/local/share/perl/5.8.8/Palm/PDB.pm line 1080.
My helper file does define a PackAppInfoBlock() method, but, apparently, =
this isn't picked up by Palm::PDB.
Here's an attempt at a minimal script which requires Palm::PDB (my=20
version is PDB.pm,v 1.36).
#! /usr/bin/perl
BEGIN { unshift @INC, '.' }
use warnings;
use strict;
use Palm::PDB;
use DBOSDB00;
my $dst =3D Palm::PDB->new({ name =3D> 'TEST',
creator =3D> 'DBOS',
type =3D> 'DB00'});
$dst->Write('TEST.pdb');
exit 0;
This module to be placed in same directory as main script
package DBOSDB00;
use warnings;
use strict;
use Palm::PDB;
sub import {
print STDERR "import of DBOSDB00\n";
&Palm::PDB::RegisterPDBHandlers(__PACKAGE__, [ "DBOS", "DB00" ]);
}
sub PackAppInfoBlock {
my ($self) =3D @_;
my $appinfo;
# construct appinfo from $self->{appinfo}
return $appinfo;
}
1;
--=20
These are my personal views and not those of Fujitsu Siemens Computers!
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize (T. Pratchett)
Company Details: http://www.fujitsu-siemens.com/imprint.html
------------------------------
Date: Thu, 16 Aug 2007 17:04:48 -0000
From: pamelamishra@gmail.com
Subject: Passing a reference as a reference
Message-Id: <1187283888.262480.217480@q4g2000prc.googlegroups.com>
Hi,
I have this question about Perl references.
Suppose i have this %hash which has been populated with key -
values.Subroutine check1 gets the %hash as a refrence from the main
and this refrence has to be passed to another subroutine check2. How
can this be done.Any suggestions would be helpful.
##############################
my %hash;
check1(\%hash);
sub check1
{
my ($hash)=shift;
foreach my $keys (keys $hash)
{
print"$hash{$keys}\n";
}
check2 (I want to send the reference of %hash--which is already a
reference);
}
sub check2
{
my ($hash)=shift;
}
######################
Thanks
------------------------------
Date: Thu, 16 Aug 2007 10:12:39 -0700
From: Paul Lalli <mritty@gmail.com>
Subject: Re: Passing a reference as a reference
Message-Id: <1187284359.615398.238790@b79g2000hse.googlegroups.com>
On Aug 16, 1:04 pm, pamelamis...@gmail.com wrote:
> I have this question about Perl references.
> Suppose i have this %hash which has been populated with key -
> values.Subroutine check1 gets the %hash as a refrence from the main
> and this refrence has to be passed to another subroutine check2. How
> can this be done.Any suggestions would be helpful.
> ##############################
> my %hash;
> check1(\%hash);
>
> sub check1
> {
> my ($hash)=shift;
All fine so far. Only minor problem you have is that you've named
your hash reference $hash. I would call it something like $h_ref or
$hash_ref or something similar.
> foreach my $keys (keys $hash)
Problem here. $hash is not a hash. It's a reference to a hash. If
you want to get at the hash that it references, you have to
dereference the reference:
foreach my $keys (keys %{$hash})
> {
> print"$hash{$keys}\n";
Again. $hash is not a hash. You have to dereference:
print "$hash->{$keys}\n";
> }
> check2 (I want to send the reference of %hash--which is already a
> reference);
No. %hash is the hash that you created in the "main" part of the
script. $hash is a reference to %hash.
There's nothing magical here. Just pass the reference directly:
check2($hash);
>
> }
>
> sub check2
> {
> my ($hash)=shift;
>
> }
Again, though, I rather strongly recommend you choose better names for
your variables. Specifically, name references with some form of
"_ref" on them, to remind you what they actually are.
Paul Lalli
------------------------------
Date: Thu, 16 Aug 2007 12:02:18 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: perl DBI OO
Message-Id: <m2d4xnjtut.fsf@lifelogs.com>
On Mon, 13 Aug 2007 08:34:00 -0700 "jtbutler78@comcast.net" <jtbutler78@comcast.net> wrote:
jn> I will look into [DBIX::Class] - I didnt know about that module. I
jn> basically want to have one place where I make/modify my connections.
I have been happiest with Rose::DB::Object (on CPAN). It uses the
Rose::DB class to hold database connections, so you can at least use
Rose::DB to cache and manage connections. I would consider RDBO as a
whole solution, though. It's very good.
Ted
------------------------------
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 759
**************************************
