[31707] in Perl-Users-Digest
Perl-Users Digest, Issue: 2970 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 2 00:09:27 2010
Date: Tue, 1 Jun 2010 21:09:10 -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 Tue, 1 Jun 2010 Volume: 11 Number: 2970
Today's topics:
Re: Can not locate object method "AddCell" via package <jimsgibson@gmail.com>
Re: How to generate random number without replacement? <hjp-usenet2@hjp.at>
Re: How to generate random number without replacement? <jurgenex@hotmail.com>
Re: How to generate random number without replacement? <john@castleamber.com>
Re: How to generate random number without replacement? <tzz@lifelogs.com>
Re: How to generate random number without replacement? <uri@StemSystems.com>
Re: How to generate random number without replacement? <xhoster@gmail.com>
Re: How to generate random number without replacement? <xhoster@gmail.com>
Re: How to take two input streams? <john@castleamber.com>
Re: How to take two input streams? <m@rtij.nl.invlalid>
reload sub but call an old one from the new <peter@vereshagin.org>
Re: reload sub but call an old one from the new <tzz@lifelogs.com>
Re: running jar file with multiple arguments in perl <tzz@lifelogs.com>
Re: Troubles using Net::Pcap and Net::PcapUtils <r.ted.byers@gmail.com>
Re: Troubles using Net::Pcap and Net::PcapUtils <uri@StemSystems.com>
Where to install perl modules? <pengyu.ut@gmail.com>
Re: Where to install perl modules? <tadmc@seesig.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 01 Jun 2010 09:53:24 -0700
From: Jim Gibson <jimsgibson@gmail.com>
Subject: Re: Can not locate object method "AddCell" via package "Spreadsheet:: ParseExcel ::Workbook"
Message-Id: <010620100953245875%jimsgibson@gmail.com>
In article
<a4a7d362-d739-4cae-9d24-6281c0f49995@o1g2000vbe.googlegroups.com>,
Arindam <arindam.p2@gmail.com> wrote:
> "Hi,
> I am trying to to learn PERL, I am using it for an Automation Tool,
> Selenium RC. My target is to open google. If the operation is
> successful, I will open an existing excel sheet and write PASS, if it
> fails, It will write Fail. I have installed the required library. The
> code is as follows:-
>
> --------------
> use strict;
> use warnings;
...
> use Spreadsheet::WriteExcel;
> use Spreadsheet::ParseExcel;
> use Spreadsheet::ParseExcel::SaveParser;
...
> my $parser = new Spreadsheet::ParseExcel;
This object should be of class Spreadsheet::ParseExcel::SaveParser, as
you will be calling methods of that class below (AddCell), not of
Spreadsheet::ParseExcel.
> ---------------
>
> After running the program, I am getting the following error:-
> Can not locate object method "AddCell" via package "Spreadsheet::
> ParseExcel ::Workbook"
--
Jim Gibson
------------------------------
Date: Tue, 1 Jun 2010 14:18:16 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: How to generate random number without replacement?
Message-Id: <slrni09uk8.7gp.hjp-usenet2@hrunkner.hjp.at>
On 2010-06-01 08:50, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>> "PY" == Peng Yu <pengyu.ut@gmail.com> writes:
> PY> On Jun 1, 12:03 am, "Uri Guttman" <u...@StemSystems.com> wrote:
> >> JE> Ok. For those like me not familiar with this term: he means random
> >> JE> numbers with and without repetition.
> >>
> >> and i told him how to do it. i won't tell him again. it is a simple
> >> problem and hashes solve it.
>
> PY> What do you mean? I didn't ask you to tell me again.
>
> i told you how to do it. either you didn't read it or you didn't get the
> solution.
Uri, nobody asked you to tell him again. Why do insist on telling us
three times that you won't do it? Nobody asked me to write a haiku, but
I don't feel the slightest urge to tell you all that I won't write a
haiku,
hp
------------------------------
Date: Tue, 01 Jun 2010 05:46:51 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <8iv9065vpbkd8uv5s4v69atqdf5t5jbqda@4ax.com>
Peng Yu <pengyu.ut@gmail.com> wrote:
>On Jun 1, 12:03 am, "Uri Guttman" <u...@StemSystems.com> wrote:
>> >>>>> "JE" == Jürgen Exner <jurge...@hotmail.com> writes:
>>
>> JE> Peng Yu <pengyu...@gmail.com> wrote:
>> >> On May 31, 10:25 pm, Jürgen Exner <jurge...@hotmail.com> wrote:
>> >>> Peng Yu <pengyu...@gmail.com> wrote:
>> >>> >It seems that the int(rand(10)) generate random with replacement. I'm
>> >>> >wondering how to generate random number without replacement in perl.
>> >>>
>> >>> Could you please explain what you mean by "with/without replacement"?
>> >>> A number is a number, it doesn't replace anything....
>> >>
>> >> These are standard concepts in statistics. Please see the following
>> >> webpage for the explanations on sampling 'with/without replacement'.
>> >>
>> >>http://www.ma.utexas.edu/users/parker/sampling/repl.htm
>>
>> JE> Ok. For those like me not familiar with this term: he means random
>> JE> numbers with and without repetition.
>
>But I feel sorry that perl doesn't provide such a function out of the
>box.
I feel neither sorry nor that Perl should provide such a function. You
are confusing generating random numbers with sampling a given data set.
Now, you could argue that beside equal distribution Perl should also
provide additional distributions of random numbers like e.g. Gaussian
distributions or random number without repetition or any other
distribution.
However IMNSHO Perl is a general purpose programming language and
functions like that are WAAAAYYYY to subject matter specific. If you
want them, then put them in a module. And of course you very welcome to
submit such a module to CPAN.
jue
------------------------------
Date: Tue, 01 Jun 2010 08:41:53 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <874ohmx42m.fsf@castleamber.com>
"Peter J. Holzer" <hjp-usenet2@hjp.at> writes:
> On 2010-06-01 08:50, Uri Guttman <uri@StemSystems.com> wrote:
>>>>>>> "PY" == Peng Yu <pengyu.ut@gmail.com> writes:
>> PY> On Jun 1, 12:03Â am, "Uri Guttman" <u...@StemSystems.com> wrote:
>> >> Â JE> Ok. For those like me not familiar with this term: he means random
>> >> Â JE> numbers with and without repetition.
>> >>
>> >> and i told him how to do it. i won't tell him again. it is a simple
>> >> problem and hashes solve it.
>>
>> PY> What do you mean? I didn't ask you to tell me again.
>>
>> i told you how to do it. either you didn't read it or you didn't get the
>> solution.
>
> Uri, nobody asked you to tell him again.
It's exactly this Ogrish behavior of a few regulars that makes this
place such a pain in the ass. :-(.
Luckily for the newbies there are sites like stackoverflow.com where at
least they can vote down such behaviour.
Again: Dear regular, you /don't have to post/. If a newbie pisses you
off, just move on to the next message in this group. You will make this
group a way more friendlier place, and hey, maybe it gets a bit more
traffic that way.
Ah, well, one can only hope...
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Tue, 01 Jun 2010 13:18:19 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <87zkzey5uc.fsf@lifelogs.com>
On Tue, 01 Jun 2010 04:50:36 -0400 "Uri Guttman" <uri@StemSystems.com> wrote:
UG> my %seen ;
UG> while( 1 ) { $x = int rand( 100_000_000 ) ; $seen{$x} and next ;
UG> $seen{$x} = 1; print $x }
This will grow pretty quickly with a hash. Bit::Vector already has
Bit_On($index) and bit_test($index) so memory usage and probably
performance will be a bit (heh) better.
Ted
------------------------------
Date: Tue, 01 Jun 2010 15:37:34 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <87ocfuk0ht.fsf@quad.sysarch.com>
>>>>> "TZ" == Ted Zlatanov <tzz@lifelogs.com> writes:
TZ> On Tue, 01 Jun 2010 04:50:36 -0400 "Uri Guttman" <uri@StemSystems.com> wrote:
UG> my %seen ;
UG> while( 1 ) { $x = int rand( 100_000_000 ) ; $seen{$x} and next ;
UG> $seen{$x} = 1; print $x }
TZ> This will grow pretty quickly with a hash. Bit::Vector already has
TZ> Bit_On($index) and bit_test($index) so memory usage and probably
TZ> performance will be a bit (heh) better.
he said he wanted 1k random numbers out of a large range so a hash would
be fine for that.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Tue, 01 Jun 2010 20:54:29 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <4c05daa3$0$21238$ed362ca5@nr5-q3a.newsreader.com>
Ted Zlatanov wrote:
> On Tue, 01 Jun 2010 04:50:36 -0400 "Uri Guttman" <uri@StemSystems.com> wrote:
>
> UG> my %seen ;
> UG> while( 1 ) { $x = int rand( 100_000_000 ) ; $seen{$x} and next ;
> UG> $seen{$x} = 1; print $x }
>
> This will grow pretty quickly with a hash. Bit::Vector already has
> Bit_On($index) and bit_test($index) so memory usage and probably
> performance will be a bit (heh) better.
I'd be very surprised if Bit::Vector had faster performance, at least
until the other method started swapping.
Xho
------------------------------
Date: Tue, 01 Jun 2010 21:00:15 -0700
From: Xho Jingleheimerschmidt <xhoster@gmail.com>
Subject: Re: How to generate random number without replacement?
Message-Id: <4c05daa4$0$21238$ed362ca5@nr5-q3a.newsreader.com>
Peng Yu wrote:
>
> But I feel sorry that perl doesn't provide such a function out of the
> box.
There are many ways to implement this, and which is best depends on how
large of a set you are sampling and how densely you are sampling it, as
well as perhaps other things (do you know how many you need in advance,
or will you know when you get there? Are you happy with standard rand()
or do you want something better, etc.). I'm entirely unsurprised Perl
doesn't provide this out of the box, as it is so context dependent, plus
not all that common. It is trivial to implement for yourself, and throw
your implementation into a toolkit module you use for all your code.
Xho
------------------------------
Date: Tue, 01 Jun 2010 08:48:02 -0500
From: John Bokma <john@castleamber.com>
Subject: Re: How to take two input streams?
Message-Id: <87zkzevp7x.fsf@castleamber.com>
Peng Yu <pengyu.ut@gmail.com> writes:
> $ cat main.pl
> #!/usr/bin/env perl
Also add this one:
use strict;
> use warnings;
> open(IN1, $ARGV[0]);
Use the 3 argument version of open, and it's often a very good idea to
report if the file actually couldn't be opened for reading:
open my $fh, '<', $ARGV[0]
or die "Can't open '$ARGV[0]' for reading: $!";
^--- explains why
--
John Bokma j3b
Hacking & Hiking in Mexico - http://johnbokma.com/
http://castleamber.com/ - Perl & Python Development
------------------------------
Date: Tue, 1 Jun 2010 19:22:06 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: How to take two input streams?
Message-Id: <u6sfd7-s3m.ln1@news.rtij.nl>
On Tue, 01 Jun 2010 02:26:59 -0700, Peng Yu wrote:
> On Jun 1, 3:24Â am, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
>> On Mon, 31 May 2010 20:47:22 -0700, Peng Yu wrote:
>> > diff can take two input streams in the following example (if my
>> > interpretation is correct).
>>
>> > diff <(gunzip <a.gz) <(gunzip b.gz)
>>
>> > I'm wondering how to take two streams in a perl program.
>>
>> This has nothing to do with diff or with perl, it's a function of your
>> shell. So it works the same for diff as for perl.
>
> I think that I understand what you mean. <(cmd) is just like a filename,
> right?
It actually gets passed to your program as a filename, although it really
is a pipe to the command between the brackets.
[martijn@cow t]$ perl -e 'print "@ARGV\n"' <(cat t.pl) <(cat t.pl~)
/proc/self/fd/63 /proc/self/fd/62
[martijn@cow t]$
HTH,
M4
------------------------------
Date: Tue, 1 Jun 2010 11:17:35 +0000 (UTC)
From: Peter Vereshagin <peter@vereshagin.org>
Subject: reload sub but call an old one from the new
Message-Id: <20100601111731.GA3233@screwed.box>
I have a sub in a package and I need to tweak its environment before it to be called.
I supposed I could do it klike this:
*old_sub = *some_sub;
sub some_sub{
$ENV{ FOO } = 'BAR';
&old_sub( @_ );
}
But it doesn't work.
Looking at Sub::Override I can say it is possible but the real thing spoils from me on it source code. I cannot use Sub::Override for this either because I need to use the replaced sub inside the overriding one.
The whole thing is on the sources below:
=== Test07.pm ===
package Test07;
use strict;
use warnings;
use Test09;
sub testing07{
print $Test09::test09."07\n";
}
1;
=== Test08.pm ===
package Test08;
use strict;
use warnings;
1;
package Test07;
use strict;
use warnings;
sub testing07{
print "EFGH"."07\n";
}
1;
package Test11;
use strict;
use warnings;
use base qw/Test07/;
*mod_test07 = *Test07::testing07;
1;
=== Test09.pm ===
package Test09;
use strict;
use warnings;
our $test09 = "ABCD";
1;
=== test10.pl ===
#!usr/bin/perl
use strict;
use warnings;
use lib qw/./;
use Test08;
Test11::mod_test07;
=== output of test10.pl ===
Subroutine testing07 redefined at Test07.pm line 8.
ABCD07
===
The what I need here for Test07 package is:
===
sub testing07{
$Test09::test09 = "EFGH";
some_old_testing07;
}
===
to have "EFGH07" as the output. Is it any way possible? I can achieve this by something like:
===
sub testing07{
$Test09::test09 = "EFGH";
Test11::mod_test07; # the old testing07() is saved here
}
===
but this is a pretty bad style, isn't it?
Thank you.
73! Peter pgp: A0E26627 (4A42 6841 2871 5EA7 52AB 12F8 0CE1 4AAC A0E2 6627)
--
http://vereshagin.org
------------------------------
Date: Tue, 01 Jun 2010 13:27:19 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: reload sub but call an old one from the new
Message-Id: <87pr0ay5fc.fsf@lifelogs.com>
On Tue, 1 Jun 2010 11:17:35 +0000 (UTC) Peter Vereshagin <peter@vereshagin.org> wrote:
PV> I have a sub in a package and I need to tweak its environment before it to be called.
PV> I supposed I could do it klike this:
PV> *old_sub = *some_sub;
PV> sub some_sub{
PV> $ENV{ FOO } = 'BAR';
PV> &old_sub( @_ );
PV> }
PV> But it doesn't work.
PV> Looking at Sub::Override I can say it is possible but the real thing
PV> spoils from me on it source code. I cannot use Sub::Override for
PV> this either because I need to use the replaced sub inside the
PV> overriding one.
Have you tried Aspect from CPAN? Its "advice" facility is, I think,
what you're looking for.
Ted
------------------------------
Date: Tue, 01 Jun 2010 13:28:20 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: running jar file with multiple arguments in perl
Message-Id: <87ljayy5dn.fsf@lifelogs.com>
On Sat, 29 May 2010 16:10:53 -0700 Xho Jingleheimerschmidt <xhoster@gmail.com> wrote:
XJ> Kulit Ko wrote:
>> btw, ive also try :
>> OPEN PIPE, "|java -jar program.jar";
>> open FH, /abc.txt
>> while (my $res = <FH>)
>> print PIPE "$res";
>> close FH;
>> close PIPE;
XJ> You should check to see if your "open" succeeds.
XJ> Getting the syntax right would also help,
XJ> Search pattern not terminated at <something> line 2
XJ> Does your Java program want to talk directly with a tty, rather than
XJ> an ordinary stream?
... and if it does, look into the Expect module :)
Ted
------------------------------
Date: Tue, 1 Jun 2010 06:43:40 -0700 (PDT)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Troubles using Net::Pcap and Net::PcapUtils
Message-Id: <96bb76fc-b393-4663-9f51-9cb06119ed4d@q13g2000vbm.googlegroups.com>
On May 31, 10:47=A0pm, "Uri Guttman" <u...@StemSystems.com> wrote:
> >>>>> "TB" =3D=3D Ted Byers <r.ted.by...@gmail.com> writes:
>
> =A0 TB> use Net::PcapUtils;
>
> did you read the docs for that module? always do so.
>
> =A0 TB> sub process_pkt =A0 =A0 =A0 #Packet processing routine.
> =A0 TB> {
> =A0 TB> =A0 =A0 =A0print("Got a packet!\n");
> =A0 TB> }
>
> =A0 TB> Net::PcapUtils::loop(\&process_pkt,
> =A0 TB> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0SNAPLEN =3D> 65535=
, =A0 #Size of data to get from
> =A0 TB> packet
> =A0 TB> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0PROMISC =3D> 1,); =
=A0 =A0#Promiscuous means look at
> =A0 TB> ALL packets
>
> from the docs:
>
> =A0 =A0 =A0 =A0 On error, this function returns an error string describin=
g the
> =A0 =A0 =A0 =A0 error. An empty string is returned upon success.
>
> you aren't checking of the call succeeds nor are you printing out any
> error messages.
>
OK, adding that still results in no output at all.
> do you know if it found the net device correctly?
>
It appears it hasn't, though there is no message to that effect.
> also try doing something with net::pcap itself as that is what is doing
> all the real work. if that works, then you can focus on why this module
> isn't working.
>
OK, I tried John Brozycki's pickinterface script from 08/11/2009, and
it too produces no output at all.
Here is his script (it is short and sweet), with my comments added:
use strict;
use warnings;
use Net::PcapUtils;
$, =3D ' ';
$|++;
$settings =3D "k:\\webcap\\interface.txt";
open (SETTINGSFILE,">$settings");
my ( $error, %description );
my @adapter =3D Net::Pcap::findalldevs( \$error, \%description );
@adapter > 0 or die "No adapter installed !\n";
#At this point, the message "No Adapter installed!" is NOT printed, so
findalldevs must have returned something
# or the script is failing somewhere within the findalldevs call
(because nothing of significance happens
# before it), but it is failing without any error message being
produced.
my $i =3D 1;
if ( @adapter > 0 ) { #Change 1 to 0 if you want prompt even if
only 1 adapter
# I changed this so that even if only one adapter is found, it would
print something, however, none
# of the following print statements actually prints anything.
print "\nThis utility needs to be run before running webcap for the
first time\n";
print "and then when you change the network adapters in your system
or want to\n";
print "capture from a different adapter.\n\n";
print "It outputs the selected adapter to a settings file. Webcap
reads\n";
print "this file at startup.\n\n";
print "Here are the adapters found:\n\n";
print $i++, " - $description{$_}\n $_\n" foreach @adapter;
do {
print "\nPlease select the number of the adapter to set as the
capture device:";
$i =3D <STDIN>;
chomp $i;
} until ( $i =3D~ /^(\d)+$/ and 0 < $i and $i <=3D @adapter );
}
print "\nSet to Listen to $description{$adapter[$i-1]}\n\n";
print "...which is referenced by the system as:\n\n".$adapter[ $i -
1]."\n";
print SETTINGSFILE ($adapter[ $i - 1]);
close SETTINGSFILE;
Then, I try the same thig with Net::Pcal
use strict;
use warnings;
use Net::Pcap;
$| =3D 1;
my $err =3D '';
my $dev =3D Net::Pcap::pcap_lookupdev(\$err); # find a device
if (length $err > 0) {
print "Device lookup error: $err\n\n";
exit;
}
print $dev,"\n";
exit;
And THIS trivially simple script produces no output. Both $err and
$dev appear to be empty!
This could hardly be more elementary in that all this script does is
use Pcaps to find a NIC. But we know that WinPcap is installed and
working correctly since WinDump finds 3 devices (as described in my
previous post.
Thanks
Ted
> =A0 TB> Is there a forum specific to network programming where I can find=
out
> =A0 TB> what is awry? =A0Or is there someone here who knows these package=
s who
> =A0 TB> can advise on resolving this problem. =A0The searches, using goog=
le, I
> =A0 TB> have done so far have proved fruitless.
>
> this is dark magic stuff. the pcap lib and module do work but i have
> seen many people struggle with issues. all are surmountable but they do
> take some time and effort.
>
> uri
>
> --
> Uri Guttman =A0------ =A0u...@stemsystems.com =A0-------- =A0http://www.s=
ysarch.com--
> ----- =A0Perl Code Review , Architecture, Development, Training, Support =
------
> --------- =A0Gourmet Hot Cocoa Mix =A0---- =A0http://bestfriendscocoa.com=
---------
------------------------------
Date: Tue, 01 Jun 2010 12:09:55 -0400
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Troubles using Net::Pcap and Net::PcapUtils
Message-Id: <87hblmn38s.fsf@quad.sysarch.com>
not much more i can do since i don't have winblows running anywhere.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Tue, 1 Jun 2010 18:54:07 -0700 (PDT)
From: Peng Yu <pengyu.ut@gmail.com>
Subject: Where to install perl modules?
Message-Id: <90510250-4eb1-4629-af1e-0be24aecf7b7@e6g2000vbm.googlegroups.com>
I have a package that will install the perl modules to /usr/local/lib/
package_name. However, perl is installed in ~/perl-5.10.1/ on my
machine.
In ~/perl-5.10.1/lib, there are site_perl/ and 5.10.1/ directories.
I'm wondering where the package should install the perl modules to.
What are the difference between site_perl/ and 5.10.1/ directories?
------------------------------
Date: Tue, 01 Jun 2010 21:37:18 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Where to install perl modules?
Message-Id: <slrni0bgiq.ovj.tadmc@tadbox.sbcglobal.net>
Peng Yu <pengyu.ut@gmail.com> wrote:
> What are the difference between site_perl/
That is where modules that did not ship with the perl distribution
should be installed.
(they are part of your specific "site")
> and 5.10.1/ directories?
That is where modules that did ship with the perl distribution
should be installed.
(they are part of perl itself, ie. "core modules")
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.liamg\100cm.j.dat/"
The above message is a Usenet post.
I don't recall having given anyone permission to use it on a Web site.
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 2970
***************************************
