[31058] in Perl-Users-Digest
Perl-Users Digest, Issue: 2303 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Mar 27 18:09:41 2009
Date: Fri, 27 Mar 2009 15: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, 27 Mar 2009 Volume: 11 Number: 2303
Today's topics:
Can't locate object method error <pakalk@gmail.com>
Re: Can't locate object method error <glex_no-spam@qwest-spam-no.invalid>
Re: Can't locate object method error <ben@morrow.me.uk>
Re: Can't locate object method error <rvtol+usenet@xs4all.nl>
Re: first sentence regexp? <tzz@lifelogs.com>
Re: Net::SSH::Perl Help <vendion@charter.net>
Re: Net::SSH::Perl Help <vendion@charter.net>
Re: Net::SSH::Perl Help <ben@morrow.me.uk>
Re: Net::SSH::Perl Help <vendion@charter.net>
Re: Net::SSH::Perl Help <tadmc@seesig.invalid>
Re: Net::SSH::Perl Help <glex_no-spam@qwest-spam-no.invalid>
Re: Sharing BerkeleyDB among forked children <liarafan@xs4all.nl>
Re: Typeglobs vs References <cwilbur@chromatico.net>
upgrading modules perl 5.8.8 -> 5.10.0 <friendly@yorku.ca>
Re: upgrading modules perl 5.8.8 -> 5.10.0 <noreply@gunnar.cc>
Re: what is the return value type of !1 ? <rvtol+usenet@xs4all.nl>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 27 Mar 2009 07:45:14 -0700 (PDT)
From: pakalk <pakalk@gmail.com>
Subject: Can't locate object method error
Message-Id: <3c02f800-b26a-4d99-a200-96c7c4555fc1@d19g2000yqb.googlegroups.com>
Thank you for responses to my first topic. Here is second one.
Code:
my $xmls = new XML::Simple;
my $xml = $xmls->parse_string( $validXmlString );
Problem:
At localhost everything works. At server I get
Can't locate object method "parse_string" via package "XML::Simple"
error message. When I call
print $xmls;
i get
XML::Simple=HASH(0x1d32d8c)
XML::Simple has parse_string subroutine. What can be wrong? Do you
need more information?
------------------------------
Date: Fri, 27 Mar 2009 10:32:18 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Can't locate object method error
Message-Id: <49ccf182$0$87067$815e3792@news.qwest.net>
pakalk wrote:
> Thank you for responses to my first topic. Here is second one.
>
> Code:
>
Although it doesn't really help, in this case, always
post code that actually runs.
use XML::Simple;
use strict;
my $validXmlString = '<?xml version="1.0"
encoding="UTF-8"?><testing>123</testing>';
> my $xmls = new XML::Simple;
> my $xml = $xmls->parse_string( $validXmlString );
>
> Problem:
>
> At localhost everything works. At server I get
>
> Can't locate object method "parse_string" via package "XML::Simple"
>
> error message. When I call
>
> print $xmls;
>
> i get
>
> XML::Simple=HASH(0x1d32d8c)
Of course you'd get that output. Not very helpful.
use Data::Dumper;
print Dumper( $xmls );
> XML::Simple has parse_string subroutine.
Are you sure?
>What can be wrong? Do you need more information?
It means it can't locate the method 'parse_string' in the package
XML::Simple.
What version of XML::Simple is on the 'server'?
Looks like that method was added in version 2.17:
2.17 Aug 02 2007
- Added parse_string(), parse_file() and parse_fh() methods
------------------------------
Date: Fri, 27 Mar 2009 15:30:42 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Can't locate object method error
Message-Id: <228v96-f32.ln1@osiris.mauzo.dyndns.org>
Quoth pakalk <pakalk@gmail.com>:
> Thank you for responses to my first topic. Here is second one.
>
> Code:
>
> my $xmls = new XML::Simple;
This is considered bad style nowadays, and the form you are using (with
no arguments and no :: after XML::Simple) is definitely ambiguous. Use
my $xmls = XML::Simple->new;
instead.
> my $xml = $xmls->parse_string( $validXmlString );
>
> Problem:
>
> At localhost everything works. At server I get
>
> Can't locate object method "parse_string" via package "XML::Simple"
>
> error message. When I call
>
> print $xmls;
>
> i get
>
> XML::Simple=HASH(0x1d32d8c)
>
> XML::Simple has parse_string subroutine. What can be wrong? Do you
> need more information?
Check what version of XML::Simple is installed on your server.
perl -MXML::Simple -le'print XML::Simple->VERSION'
or the equivalent script if you don't have a command-line. According to
the Changes file in XML-Simple, ->parse_string was added in version
2.17.
Ben
------------------------------
Date: Fri, 27 Mar 2009 23:05:04 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: Can't locate object method error
Message-Id: <49cd4d90$0$200$e4fe514c@news.xs4all.nl>
Ben Morrow wrote:
> pakalk:
>> my $xmls = new XML::Simple;
>
> This is considered bad style nowadays, and the form you are using (with
> no arguments and no :: after XML::Simple) is definitely ambiguous. Use
>
> my $xmls = XML::Simple->new;
>
> instead.
Or even XML::Simple::->new;
perl -wle'
sub new { print __PACKAGE__."::new" }
{ package XML; sub Simple { print __PACKAGE__."::Simple()";
"XML::Simple" } }
{ package XML::Simple; sub new { print __PACKAGE__."::new()" } }
print 1;
my $x1 = new XML::Simple;
print 2;
my $x2 = XML::Simple->new;
print 3;
my $x3 = XML::Simple::->new;
'
1
XML::Simple()
main::new
2
XML::Simple()
XML::Simple::new()
3
XML::Simple::new()
--
Ruud
------------------------------
Date: Fri, 27 Mar 2009 12:22:08 -0500
From: Ted Zlatanov <tzz@lifelogs.com>
Subject: Re: first sentence regexp?
Message-Id: <868wmq285b.fsf@lifelogs.com>
On Thu, 26 Mar 2009 15:32:32 +0000 bugbear <bugbear@trim_papermule.co.uk_trim> wrote:
b> I would like to pick out the first sentence of some
b> text, so that it can be manipulated (displayed, indexed)
b> differently from the rest of the text.
b> The text is HTML (which doesn't help), so there may be tags
b> mixed in. And I'm struggling to avoid getting spurious "ends"
b> from things like the decimal point in numbers, and abbreviations
b> e.g. "e.g."
b> Anyone done this before, and got a decent answer?
b> I'm aware that any regexp will only be an approximate solution,
b> but I'm hoping it will be "good enough"
Though you don't state it, can we assume it's English text?
Do a Google search for "perl nlp" and read up...
http://www.perlmonks.org/?node_id=41281
Finally, this may be obvious, but have you considered
Lingua::EN::Sentence?
http://search.cpan.org/~shlomoy/Lingua-EN-Sentence-0.25/lib/Lingua/EN/Sentence.pm
Ted
------------------------------
Date: Fri, 27 Mar 2009 07:27:43 -0700 (PDT)
From: vendion <vendion@charter.net>
Subject: Re: Net::SSH::Perl Help
Message-Id: <df83d74c-90f8-4872-a248-bede5441ee20@r3g2000vbp.googlegroups.com>
On Mar 26, 5:05=A0pm, j...@toerring.de (Jens Thoms Toerring) wrote:
> vendion <vend...@charter.net> wrote:
> > I am trying to make a script that loops 26 times each time using SSH
> > to remote into a different machine every time and run a second
> > script. =A0When I run the first one with SSH I get this error:
> > Permission denied at /home/e-307-20/bin/upgrader.pl line 13
> > I know that I can SSH into the machine because SSH alone works fine.
> > My code is as follows (user name and password has been replaced for
> > security reasons)
> > #!/usr/bin/perl
> > #upgrader.pl This is the server side of a two part perl script that
> > uses ssh to
> > #get into the lab PCs and have them run the upgrade.
> > use warnings;
> > use strict;
> > use Net::SSH::Perl;
> > my $computer =3D '01'; #set the script for the first out of 26 computer=
s
> > that use
> > #10.18.1.1xx ip scheme
> > while ($computer <=3D 26) {
> > =A0 =A0 =A0 =A0 my $ssh =3D Net::SSH::Perl->new("10.18.1.1$computer");
>
> Did you print out the IP addresses? The first time round you
> get 10.18.1.101, the seond time 10.18.1.12, etc. until $computer
> is 10, then you get 10.18.1.110, 10.18.1.111 etc. That's because
> in order to increment $computer it's converted to an integer,
> and then the leading '0' goes missing.
>
> I would rather guess that this wasn't your intention. Perhaps youd
> =A0should replace this with
>
> my $ssh =3D Net::SSH::Perl->new(sprintf("10.18.1.1%02d",$computer));
>
> to get 101, 102, 103, etc. as the last part of the IP address.
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Regards, Jens
> --
> =A0 \ =A0 Jens Thoms Toerring =A0___ =A0 =A0 =A0j...@toerring.de
> =A0 =A0\__________________________ =A0 =A0 =A0http://toerring.de
No I didn't think of that I didn't know that it would be persevere the
leading 0, but I got the permission error almost right after I ran it
which lead me to think that it didn't even connect to the first
computer which has the 10.18.1.101 ip. For interest in making this
script better I have applied one of the suggestions from the next
post:
for my $computer ( 01 .. 26 ) {
my $ssh =3D Net::SSH::Perl->new("10.18.1.1$computer");
$ssh->login('user', 'password');
my ($stdout, $stderr, $exit) =3D $ssh->cmd('upgrade.pl');
}
A quick question on $stdout and $stderr will I need to add a separate
print line for each of those if I want there contents to be
displayed? It would be nice to be able to see what is being printed
out on the remote machines and see if anything fails while the second
script is running.
------------------------------
Date: Fri, 27 Mar 2009 08:04:59 -0700 (PDT)
From: vendion <vendion@charter.net>
Subject: Re: Net::SSH::Perl Help
Message-Id: <68c6a962-66de-4f9e-a7fc-ad264e7f52a9@v37g2000vbb.googlegroups.com>
On Mar 27, 10:27=A0am, vendion <vend...@charter.net> wrote:
> On Mar 26, 5:05=A0pm, j...@toerring.de (Jens Thoms Toerring) wrote:
>
>
>
> > vendion <vend...@charter.net> wrote:
> > > I am trying to make a script that loops 26 times each time using SSH
> > > to remote into a different machine every time and run a second
> > > script. =A0When I run the first one with SSH I get this error:
> > > Permission denied at /home/e-307-20/bin/upgrader.pl line 13
> > > I know that I can SSH into the machine because SSH alone works fine.
> > > My code is as follows (user name and password has been replaced for
> > > security reasons)
> > > #!/usr/bin/perl
> > > #upgrader.pl This is the server side of a two part perl script that
> > > uses ssh to
> > > #get into the lab PCs and have them run the upgrade.
> > > use warnings;
> > > use strict;
> > > use Net::SSH::Perl;
> > > my $computer =3D '01'; #set the script for the first out of 26 comput=
ers
> > > that use
> > > #10.18.1.1xx ip scheme
> > > while ($computer <=3D 26) {
> > > =A0 =A0 =A0 =A0 my $ssh =3D Net::SSH::Perl->new("10.18.1.1$computer")=
;
>
> > Did you print out the IP addresses? The first time round you
> > get 10.18.1.101, the seond time 10.18.1.12, etc. until $computer
> > is 10, then you get 10.18.1.110, 10.18.1.111 etc. That's because
> > in order to increment $computer it's converted to an integer,
> > and then the leading '0' goes missing.
>
> > I would rather guess that this wasn't your intention. Perhaps youd
> > =A0should replace this with
>
> > my $ssh =3D Net::SSH::Perl->new(sprintf("10.18.1.1%02d",$computer));
>
> > to get 101, 102, 103, etc. as the last part of the IP address.
>
> > =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 Regards, Je=
ns
> > --
> > =A0 \ =A0 Jens Thoms Toerring =A0___ =A0 =A0 =A0j...@toerring.de
> > =A0 =A0\__________________________ =A0 =A0 =A0http://toerring.de
>
> No I didn't think of that I didn't know that it would be persevere the
> leading 0, but I got the permission error almost right after I ran it
> which lead me to think that it didn't even connect to the first
> computer which has the 10.18.1.101 ip. =A0For interest in making this
> script better I have applied one of the suggestions from the next
> post:
>
> for my $computer ( 01 .. 26 ) {
> =A0 =A0 =A0 =A0 my $ssh =3D Net::SSH::Perl->new("10.18.1.1$computer");
> =A0 =A0 =A0 =A0 $ssh->login('user', 'password');
> =A0 =A0 =A0 =A0 my ($stdout, $stderr, $exit) =3D $ssh->cmd('upgrade.pl');
>
> }
>
> A quick question on $stdout and $stderr will I need to add a separate
> print line for each of those if I want there contents to be
> displayed? =A0It would be nice to be able to see what is being printed
> out on the remote machines and see if anything fails while the second
> script is running.
Yes by adding
print "Now connection to machine $computer\n"; (using the 01 .. 26
number scheme)
I was able to verify that the permission problem is happening when
connecting to the first machine.
------------------------------
Date: Fri, 27 Mar 2009 15:26:34 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Net::SSH::Perl Help
Message-Id: <aq7v96-f32.ln1@osiris.mauzo.dyndns.org>
Quoth vendion <vendion@charter.net>:
>
> for my $computer ( 01 .. 26 ) {
> my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
> $ssh->login('user', 'password');
> my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
>
> }
This is not what was suggested.
~% perl -le'print for 01..05'
1
2
3
4
5
~% perl -le'print for "01".."05"
01
02
03
04
05
~%
See "Range Operators" and "Auto-increment and Auto-decrement" in perlop
for the details.
Ben
------------------------------
Date: Fri, 27 Mar 2009 10:55:54 -0700 (PDT)
From: vendion <vendion@charter.net>
Subject: Re: Net::SSH::Perl Help
Message-Id: <0d6a39e5-9863-47f9-9984-33ae958e3603@v12g2000vbb.googlegroups.com>
On Mar 27, 11:26=A0am, Ben Morrow <b...@morrow.me.uk> wrote:
> Quoth vendion <vend...@charter.net>:
>
>
>
> > for my $computer ( 01 .. 26 ) {
> > =A0 =A0 =A0 =A0 my $ssh =3D Net::SSH::Perl->new("10.18.1.1$computer");
> > =A0 =A0 =A0 =A0 $ssh->login('user', 'password');
> > =A0 =A0 =A0 =A0 my ($stdout, $stderr, $exit) =3D $ssh->cmd('upgrade.pl'=
);
>
> > }
>
> This is not what was suggested.
>
> =A0 =A0 ~% perl -le'print for 01..05'
> =A0 =A0 1
> =A0 =A0 2
> =A0 =A0 3
> =A0 =A0 4
> =A0 =A0 5
> =A0 =A0 ~% perl -le'print for "01".."05"
> =A0 =A0 01
> =A0 =A0 02
> =A0 =A0 03
> =A0 =A0 04
> =A0 =A0 05
> =A0 =A0 ~%
>
> See "Range Operators" and "Auto-increment and Auto-decrement" in perlop
> for the details.
>
> Ben
Yea I caught onto that after I posted and I enclosed 01 and 26 in
single quotes which works, but I am still getting the permission
problems.
------------------------------
Date: Fri, 27 Mar 2009 13:59:55 -0500
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: Net::SSH::Perl Help
Message-Id: <slrngsq8hb.sjk.tadmc@tadmc30.sbcglobal.net>
vendion <vendion@charter.net> wrote:
> On Mar 27, 11:26 am, Ben Morrow <b...@morrow.me.uk> wrote:
>> Quoth vendion <vend...@charter.net>:
>>
>> > my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
> Yea I caught onto that after I posted
If you get in the habit of executing code before you copy/paste
it into a post, you won't send folks off into the weeds for problems
that do not really exist.
> but I am still getting the permission
> problems.
Does the user you are logging in as have execute permission on upgrade.pl?
Can you execute some other program, say a shell script, that
has the same permissions and ownership as upgrade.pl?
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Fri, 27 Mar 2009 14:44:28 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: Net::SSH::Perl Help
Message-Id: <49cd2c9d$0$89867$815e3792@news.qwest.net>
vendion wrote:
> On Mar 27, 11:26 am, Ben Morrow <b...@morrow.me.uk> wrote:
>> Quoth vendion <vend...@charter.net>:
>>
>>
>>
>>> for my $computer ( 01 .. 26 ) {
>>> my $ssh = Net::SSH::Perl->new("10.18.1.1$computer");
>>> $ssh->login('user', 'password');
>>> my ($stdout, $stderr, $exit) = $ssh->cmd('upgrade.pl');
>>> }
[...]
> Yea I caught onto that after I posted and I enclosed 01 and 26 in
> single quotes which works, but I am still getting the permission
> problems.
Be more precise.
SSH permission problem or permission problem running upgrade.pl?
For a quick test, change 'upgrade.pl' to 'date'. If that works,
then your SSH is OK and you have a permission problem running
the script. Make sure it's executable by the 'user'. To ensure
the permissions are the same on each server, you could change
'upgrade.pl' to something like: '/bin/ls -l upgrade.pl'.
------------------------------
Date: Fri, 27 Mar 2009 15:12:23 +0100
From: "Mark" <liarafan@xs4all.nl>
Subject: Re: Sharing BerkeleyDB among forked children
Message-Id: <FZKdnbEOIapVQ1HUnZ2dnUVZ8qWdnZ2d@giganews.com>
"Paul Marquess" <paul.marquess@btinternet.com> wrote in message
news:49cbb8e0$0$19013$4d4eb98e@read.news.uk.uu.net...
> You aren't re-initializing the cache - if there is no environment, the
> first process started will create it (along with the cache). Then
> subsequent processes are just joining an existing environment. The
> cache size they specify matches the existing size of the cache in the
> environment so they don't affect it.
Thanks. That's precisely what I needed to know.
------------------------------
Date: Fri, 27 Mar 2009 15:59:37 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Typeglobs vs References
Message-Id: <867i2ag2ja.fsf@mithril.chromatico.net>
>>>>> "KC" == Krishna Chaitanya <schaitan@gmail.com> writes:
KC> But as a matter of curiosity, is it everyone's opinion here that
KC> trying to understand type-globs is totally unproductive and not
KC> worth one's time?
It is my opinion that trying to understand typeglobs is something you
should do only when you need to use typeglobs for something.
This has been my attitude with formats, for instance, and the last time
I looked at them was in 1996. I have no idea how they work, and it
hasn't hampered me in the slightest.
Charlton
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: Fri, 27 Mar 2009 16:13:38 -0400
From: Michael Friendly <friendly@yorku.ca>
Subject: upgrading modules perl 5.8.8 -> 5.10.0
Message-Id: <gqjc1h$t6m$1@sunburst.ccs.yorku.ca>
[Running debian linux]
As part of a routine upgrade of some of my software, apt insisted on
upgrading perl from 5..8.8 to 5.10.0.
I had many CPAN modules installed, under
/usr/local/lib/perl/5.8.8/
/usr/local/share/perl/5.8.8/
and now, of course, my scripts that try to USE them fail. Is there some
simple way to install them so they will work with 5.10.0 without having
to go through the list one by one? Is there something like the perl
package manager for linux?
-Michael
------------------------------
Date: Fri, 27 Mar 2009 23:04:07 +0100
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: upgrading modules perl 5.8.8 -> 5.10.0
Message-Id: <7350quFtc2buU1@mid.individual.net>
Michael Friendly wrote:
> [Running debian linux]
> As part of a routine upgrade of some of my software, apt insisted on
> upgrading perl from 5..8.8 to 5.10.0.
>
> I had many CPAN modules installed, under
> /usr/local/lib/perl/5.8.8/
> /usr/local/share/perl/5.8.8/
>
> and now, of course, my scripts that try to USE them fail.
That's not apparent to me out from your description. Paths containing
pure Perl modules typically should work under 5.10.0 as well. Of course,
you have to make sure that your 5.10.0 perl finds them.
The best way to do that is to install 5.10.0 so that 5.8.8 paths to pure
Perl modules are included in @INC. Try this link for further guidance on
the topic:
http://search.cpan.org/~rgarcia/perl-5.10.0/INSTALL#Coexistence_with_earlier_versions_of_perl_5
Otherwise you may want to play with the PERL5LIB environment variable or
the lib pragma.
Modules that need to be pre-compiled, OTOH, you will probably need to
reinstall.
HTH
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 27 Mar 2009 22:31:30 +0100
From: "Dr.Ruud" <rvtol+usenet@xs4all.nl>
Subject: Re: what is the return value type of !1 ?
Message-Id: <49cd45b2$0$198$e4fe514c@news.xs4all.nl>
Uri Guttman wrote:
> perl -MDevel::Peek -MScalar::Util=dualvar -le' print Dump dualvar 0.0, ""'
> SV = PVNV(0x8161a38) at 0x8163248
> REFCNT = 1
> FLAGS = (TEMP,NOK,POK,pNOK,pPOK)
> IV = 0
> NV = 0
> PV = 0x8173228 ""\0
> CUR = 0
> LEN = 4
>
> dualvar on 0.0 sets NOK and not IOK. so it knows the internal parsed 0.0
> is a number and DWIMs. it still only sets 2 of the possible 3 values.
>
> so this is just a weakness on dualvar's part that it can only set the
> number or integer slot. i can't seem to force that. it always sets the
> string slot (POK).
No IOK either:
perl -MDevel::Peek -wle'
my $x = 0.0; 0 if $x eq ""; print Dump $x;
'
SV = PVNV(0x94ee9f8) at 0x94bbcd4
REFCNT = 1
FLAGS = (PADBUSY,PADMY,NOK,POK,pNOK,pPOK)
IV = 0
NV = 0
PV = 0x94ccc70 "0"\0
CUR = 1
LEN = 35
With IOK:
perl -MDevel::Peek -wle'
my $x = 0.0+0; 0 if $x eq ""; print Dump $x;
'
SV = PVIV(0x9e08308) at 0x9e07cd4
REFCNT = 1
FLAGS = (PADBUSY,PADMY,IOK,POK,pIOK,pPOK)
IV = 0
PV = 0x9e194a8 "0"\0
CUR = 1
LEN = 2
See also Data::Peek::triplevar().
--
Ruud
------------------------------
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 2303
***************************************
