[29888] in Perl-Users-Digest
Perl-Users Digest, Issue: 1131 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Dec 19 06:10:09 2007
Date: Wed, 19 Dec 2007 03:09:03 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 19 Dec 2007 Volume: 11 Number: 1131
Today's topics:
An XML::Generator Question <no@spam.com>
Re: An XML::Generator Question <ben@morrow.me.uk>
Re: An XML::Generator Question <no@spam.com>
Re: An XML::Generator Question <ben@morrow.me.uk>
Re: How can I name my scalar with a for loop? vorticitywolfe@gmail.com
Re: Need help with leaks <s.denaxas@gmail.com>
new CPAN modules on Wed Dec 19 2007 (Randal Schwartz)
Re: Problem with Perl system() <Julie@nospam.com>
Re: Problem with Perl system() (Doug Miller)
Re: Problem with Perl system() <john@castleamber.com>
Re: Problem with Perl system() <joe@inwap.com>
regex question about ?, *, and $1 vorticitywolfe@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 18 Dec 2007 19:00:25 -0500
From: nospam <no@spam.com>
Subject: An XML::Generator Question
Message-Id: <ko-dndvuSvGEwvXanZ2dnUVZ_hisnZ2d@comcast.com>
In the example below, I've written a sub in which I output additional XML
tags for TAG2. So after the sub AddMoreTagsToTAG2(); is called, the
TAG2 block would have additional tags added, and appear something like
this:
print $xml->TAG2(
$xml->TAG2A("CCC"),
$xml->TAG2B("DDD"),
$xml->TAG2X("ANOTHER TAG"),
$xml->TAG2Y("ANOTHER TAG HERE 2"),
);
How can I call a sub which adds tags, and have them placed in the same XML
block as the previous block, and then continue printing $xml tags?
-Thanks
------------------------
print $xml->TAG1(
$xml->TAG1A("AAA"),
$xml->TAG1B("BBB"),
);
print $xml->TAG2(
$xml->TAG2A("CCC"),
$xml->TAG2B("DDD"),
);
AddMoreTagsToTAG2();
print $xml->TAG3(
$xml->TAG3A("EEE"),
$xml->TAG3B("FFF"),
);
------------------------------
Date: Wed, 19 Dec 2007 01:30:07 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: An XML::Generator Question
Message-Id: <vp8m35-h6c1.ln1@osiris.mauzo.dyndns.org>
Quoth nospam <no@spam.com>:
> In the example below, I've written a sub in which I output additional XML
> tags for TAG2. So after the sub AddMoreTagsToTAG2(); is called, the
> TAG2 block would have additional tags added, and appear something like
> this:
>
>
> print $xml->TAG2(
> $xml->TAG2A("CCC"),
> $xml->TAG2B("DDD"),
> $xml->TAG2X("ANOTHER TAG"),
> $xml->TAG2Y("ANOTHER TAG HERE 2"),
> );
>
>
> How can I call a sub which adds tags, and have them placed in the same XML
> block as the previous block, and then continue printing $xml tags?
>
<snip>
> print $xml->TAG2(
> $xml->TAG2A("CCC"),
> $xml->TAG2B("DDD"),
> );
>
>
> AddMoreTagsToTAG2();
You can't: you've already printed TAG2, including the closing </TAG2>,
so unless you're writing to a seekable file and you back up and
overwrite that (a bad idea) you can't undo it.
Instead write MoreTagsForTAG2, called like this
print $xml->TAG2(
$xml->TAG2A(...),
...
MoreTagsForTAG2(...),
);
or otherwise restructure your program so you don't need to do this. If
you want to perform arbitrary manipulations on the document before
printing it you may want to look at one of the DOM modules or
XML::Simple instead.
Ben
------------------------------
Date: Tue, 18 Dec 2007 22:04:52 -0500
From: nospam <no@spam.com>
Subject: Re: An XML::Generator Question
Message-Id: <x6qdnbjTjfDJF_XanZ2dnUVZ_sejnZ2d@comcast.com>
On Wed, 19 Dec 2007 01:30:07 +0000, Ben Morrow wrote:
> Instead write MoreTagsForTAG2, called like this
>
> print $xml->TAG2(
> $xml->TAG2A(...),
> ...
> MoreTagsForTAG2(...),
> );
>
> or otherwise restructure your program so you don't need to do this. If
> you want to perform arbitrary manipulations on the document before
> printing it you may want to look at one of the DOM modules or
> XML::Simple instead.
>
> Ben
Thanks. That allows me at least to call MoreTagsForTAG2(). But I'm still
creating another TAG2 block in the MoreTagsForTAG2() sub like this:
print $xml->TAG2(
$xml->MORE_TAGS('AAA')),
$xml->EVEN_MORE_TAGS('BBB'),
),
I'm trying to have only one TAG2 block, and add more to it from by calling
the MoreTagsForTAG2() sub routine.
-Thanks again.
------------------------------
Date: Wed, 19 Dec 2007 04:16:59 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: An XML::Generator Question
Message-Id: <riim35-7182.ln1@osiris.mauzo.dyndns.org>
Quoth nospam <no@spam.com>:
> On Wed, 19 Dec 2007 01:30:07 +0000, Ben Morrow wrote:
> > Instead write MoreTagsForTAG2, called like this
> >
> > print $xml->TAG2(
> > $xml->TAG2A(...),
> > ...
> > MoreTagsForTAG2(...),
> > );
> >
> > or otherwise restructure your program so you don't need to do this. If
> > you want to perform arbitrary manipulations on the document before
> > printing it you may want to look at one of the DOM modules or
> > XML::Simple instead.
>
> Thanks. That allows me at least to call MoreTagsForTAG2(). But I'm still
> creating another TAG2 block in the MoreTagsForTAG2() sub like this:
>
> print $xml->TAG2(
> $xml->MORE_TAGS('AAA')),
> $xml->EVEN_MORE_TAGS('BBB'),
> ),
>
>
> I'm trying to have only one TAG2 block, and add more to it from by calling
> the MoreTagsForTAG2() sub routine.
Don't do that then. I think you need to learn a bit more basic Perl
before you start trying relatively complicated things like generating
XML.
You need to return a list of elements from MoreTagsForTAG2, like this:
sub MoreTagsForTAG2 {
return
$XML->MORE_TAGS(...),
$XML->EVEN_MORE(...);
}
This list will then be interpolated into the list passed to ->TAG2,
exactly as though you had specified it there literally.
Ben
------------------------------
Date: Wed, 19 Dec 2007 00:46:44 -0800 (PST)
From: vorticitywolfe@gmail.com
Subject: Re: How can I name my scalar with a for loop?
Message-Id: <6540bf04-da84-4e90-98ad-97fa829f7c29@e10g2000prf.googlegroups.com>
On Dec 12, 11:20 pm, ddun...@taos.com (Darren Dunham) wrote:
> vorticitywo...@gmail.com wrote:
> > Close to what I asked for, didn't quite work for my use, since I'm
> > trying to define the variable as $Q1 not just print Q1.
>
> > My goal is to define a bunch of identical labels in a perl tk gui
> > rather than repeating thousands of lines of code.
> > that is the final result will be like this:
>
> > $Q1=$side->Label(-text=>$stn1)->pack();
>
> > where $Q1 is defined by the for loop.
>
> But the name 'Q1' isn't special, right? Don't use individually named
> scalars, stick the references in an array.
>
> my @label_refs;
> foreach my $stn (@stn)
> {
> push @label_refs, $side->Label(-text=>$stn)->pack();
>
> }
>
> Depending on what you're doing, it might be easier to store in a hash so
> you can pull them by name:
>
> my %label_refs;
> foreach my $stn (@stn)
> {
> $label_refs{$stn}=$side->Label(-text=>$stn)->pack();
>
> }
>
> --
> Darren Dunham ddun...@taos.com
> Senior Technical Consultant TAOS http://www.taos.com/
> Got some Dr Pepper? San Francisco, CA bay area
> < This line left intentionally blank to confuse you. >
Thank you everyone,
That is enough to get me somewhere :-) I'll keep working out the
logistics and go from there! Thanks again!
Jonathan
------------------------------
Date: Wed, 19 Dec 2007 02:48:44 -0800 (PST)
From: Spiros Denaxas <s.denaxas@gmail.com>
Subject: Re: Need help with leaks
Message-Id: <98255eb6-4bb5-41f9-bf72-c40d822038ef@b40g2000prf.googlegroups.com>
On Dec 18, 10:03 pm, Joost Diepenmaat <jo...@zeekat.nl> wrote:
> Abble <g...@comcast.net> writes:
> > Okay, I have about 6,000 lines of Perl code, which generally work
> > GREAT, but I have a big memory leak.
>
> > Yes, I had to do some sloppy coding to leak memory in Perl. I have a
> > LOT of global variables.
> > After each pass of the program a few hundred megabytes get leaked into
> > various variables.
>
> I always think of a memory leak as allocating memory and then losing
> the references to it so you *can't* free it anymore. Forgetting to empty
> out some variable that's still accessible is not a leak. Other people
> may disagree.
>
> > I HAVE added a sub to reset everything to '' and (), but I must be
> > forgetting a few variables, as on each pass the memory usage goes UP
> > and UP and UP, until it gets to about 1.6GB and everything crashes.
>
> AFAIK setting variables to '' and () doesn't necessarily reclaim any
> memory to perl. undef VARIABLE may work better. But it looks like the
> real problem is elsewhere.
You are right, in the vast majority of cases it doesn't.
http://perldoc.perl.org/perlfaq3.html#How-can-I-make-my-Perl-program-take-less-memory%3f
Spiros
>
> You may have some circular structures, which will never get reclaimed
> until the perl interpreter exits.
>
> http://search.cpan.org/~lds/Devel-Cycle-1.07/lib/Devel/Cycle.pm
>
> > Is there some way to view ALL of the Perl symbol tables and see what
> > I'm forgetting to trash?
>
> There's stuff athttp://search.cpan.org/search?query=devel+leak&mode=all
> andhttp://search.cpan.org/search?query=devel&mode=all
>
> This one looks interesting:
>
> http://search.cpan.org/~cgautam/Devel-DumpSizes-0.01/lib/Devel/DumpSi...
>
> HTH,
> Joost.
------------------------------
Date: Wed, 19 Dec 2007 05:42:15 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Dec 19 2007
Message-Id: <JtA7uF.20vF@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.
Apache2-ASP-1.22
http://search.cpan.org/~johnd/Apache2-ASP-1.22/
Perl extension for ASP on mod_perl2.
----
Cache-FastMmap-Tie-0.00_01
http://search.cpan.org/~suzuki/Cache-FastMmap-Tie-0.00_01/
Using Cache::FastMmap as hash
----
Cache-Memcached-Fast-0.05
http://search.cpan.org/~kroki/Cache-Memcached-Fast-0.05/
Perl client for memcached, in C language
----
Captcha-reCAPTCHA-Mailhide-0.93
http://search.cpan.org/~andya/Captcha-reCAPTCHA-Mailhide-0.93/
A Perl implementation of the reCAPTCHA Mailhide API
----
Chart-OFC-0.03
http://search.cpan.org/~drolsky/Chart-OFC-0.03/
Generate data files for use with Open Flash Chart
----
Class-Component-0.09
http://search.cpan.org/~yappo/Class-Component-0.09/
pluggable component framework
----
Class-Dot-2.0.0_06
http://search.cpan.org/~asksh/Class-Dot-2.0.0_06/
Simple and fast properties for Perl 5.
----
Class-Dot-2.0.0_07
http://search.cpan.org/~asksh/Class-Dot-2.0.0_07/
Simple and fast properties for Perl 5.
----
Class-Prototyped-1.11
http://search.cpan.org/~teverett/Class-Prototyped-1.11/
Fast prototype-based OO programming in Perl
----
Devel-PerlySense-0.0135
http://search.cpan.org/~johanl/Devel-PerlySense-0.0135/
IntelliSense for Perl
----
HTTP-Proxy-GreaseMonkey-0.04
http://search.cpan.org/~andya/HTTP-Proxy-GreaseMonkey-0.04/
Run GreaseMonkey scripts in any browser
----
IPC-Cmd-Cached-0.01
http://search.cpan.org/~mschilli/IPC-Cmd-Cached-0.01/
Run expensive commands and cache their output
----
Linux-Apple-Laptop-LED-0.06
http://search.cpan.org/~avar/Linux-Apple-Laptop-LED-0.06/
Turn the front LED on Apple laptops on and off via ADB
----
List-Rotation-Cycle-1.005
http://search.cpan.org/~pelagic/List-Rotation-Cycle-1.005/
Cycle through a list of values via a singleton object implemented as closure.
----
Microarray-0.32
http://search.cpan.org/~cjones/Microarray-0.32/
A Perl module for creating and manipulating microarray objects
----
MooseX-ConfigFromFile-0.01
http://search.cpan.org/~blblack/MooseX-ConfigFromFile-0.01/
An abstract Moose role for setting attributes from a configfile
----
MooseX-SimpleConfig-0.01
http://search.cpan.org/~blblack/MooseX-SimpleConfig-0.01/
A Moose role for setting attributes from a simple configfile
----
Music-Audioscrobbler-MPD-0.05
http://search.cpan.org/~ealleniii/Music-Audioscrobbler-MPD-0.05/
Module providing routines to submit songs to last.fm from MPD.
----
POE-Component-Client-NSCA-0.04
http://search.cpan.org/~bingos/POE-Component-Client-NSCA-0.04/
a POE Component that implements send_nsca functionality
----
POE-Loop-Glib-0.0030
http://search.cpan.org/~martijn/POE-Loop-Glib-0.0030/
a bridge that supports Glib's event loop from POE
----
POE-Loop-Glib-0.0031
http://search.cpan.org/~martijn/POE-Loop-Glib-0.0031/
a bridge that supports Glib's event loop from POE
----
Parse-Marpa-0.001_056
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_056/
(pre-Alpha) Jay Earley's general parsing algorithm, with LR(0) precomputation
----
Parse-Marpa-0.001_057
http://search.cpan.org/~jkegl/Parse-Marpa-0.001_057/
(pre-Alpha) Jay Earley's general parsing algorithm, with LR(0) precomputation
----
Perl-Dist-0.50
http://search.cpan.org/~adamk/Perl-Dist-0.50/
Perl Distribution Creation Toolkit
----
Pod-Advent-0.02
http://search.cpan.org/~davidrw/Pod-Advent-0.02/
POD Formatter for The Perl Advent Calendar
----
Pod-Manual-0.08
http://search.cpan.org/~yanick/Pod-Manual-0.08/
Aggregates several PODs into a single manual
----
Spreadsheet-Engine-0.05
http://search.cpan.org/~tmtm/Spreadsheet-Engine-0.05/
Core calculation engine for a spreadsheet
----
Test-XML-Order-0.07
http://search.cpan.org/~gam/Test-XML-Order-0.07/
Compare the order of XML tags in perl tests
----
Test-XML-Order-0.08
http://search.cpan.org/~gam/Test-XML-Order-0.08/
Compare the order of XML tags in perl tests
----
Text-GooglewikiFormat-0.01
http://search.cpan.org/~fayland/Text-GooglewikiFormat-0.01/
The great new Text::GooglewikiFormat!
----
Tk-804.028
http://search.cpan.org/~srezic/Tk-804.028/
a graphical user interface toolkit for Perl
----
WWW-AuthTicket-0.01
http://search.cpan.org/~wingman/WWW-AuthTicket-0.01/
----
WebService-EveOnline-0.03
http://search.cpan.org/~chrisc/WebService-EveOnline-0.03/
a wrapper intended to (eventually) provide a consistent interface to the MMORPG game, "Eve Online"
----
XHTML-Instrumented-0.07
http://search.cpan.org/~gam/XHTML-Instrumented-0.07/
packages to control XHTML
----
XHTML-Instrumented-0.08
http://search.cpan.org/~gam/XHTML-Instrumented-0.08/
packages to control XHTML
----
XML-XPathScript-1.53
http://search.cpan.org/~yanick/XML-XPathScript-1.53/
a Perl framework for XML stylesheets
----
parrot-0.5.1
http://search.cpan.org/~jonathan/parrot-0.5.1/
----
perl-5.10.0
http://search.cpan.org/~rgarcia/perl-5.10.0/
Practical Extraction and Report Language
----
re-engine-Oniguruma-0.04
http://search.cpan.org/~andya/re-engine-Oniguruma-0.04/
Use the Oniguruma regex engine with Perl
----
re-engine-PCRE-0.14
http://search.cpan.org/~avar/re-engine-PCRE-0.14/
Perl-compatible regular expression engine
----
re-engine-PCRE-0.15
http://search.cpan.org/~avar/re-engine-PCRE-0.15/
Perl-compatible regular expression engine
----
re-engine-POSIX-0.04
http://search.cpan.org/~avar/re-engine-POSIX-0.04/
POSIX (IEEE Std 1003.1-2001) regular expressions
----
self-0.13
http://search.cpan.org/~gugod/self-0.13/
Provides "self" and "args" keywords in your OO program.
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: Tue, 18 Dec 2007 19:26:08 -0500
From: Julie <Julie@nospam.com>
Subject: Re: Problem with Perl system()
Message-Id: <47686516$0$1383$4c368faf@roadrunner.com>
Never mind, I answered my own question.
Julie wrote:
> I'm using Windows XP Pro and running Perl 5.8.8 under Cygwin.
>
> I have a Perl program that calls another Perl program using system().
>
> The driver program repeatedly calls the main Perl program.
>
> for ( my $i = 0 ; $i < $retries ; $i++
> {
> for ( my $j = 0 ; $j < $num_devices ; $j++ )
> {
> system( "perl main.pl parm1 parm2 &" ) ;
> }
> sleep 60 ; # never gets here
> }
>
> I put the call to system() within a loop and (almost) everything is fine.
>
> The only problem is that after the last call to system(), the outer loop
> doesn't gain control. The process seems to be hung.
> I've put warn statements everywhere in the driver program but that
> hasn't yielded any clues.
>
> I know that main.pl is terminating because there's only one Perl process
> running after the last call to system().
>
> It doesn't matter whether I run one or a hundred calls to system().
>
> **** Here's what's very interesting: If I run main.pl under the Perl
> debugger then press 'c' to continue (no breakpoints etc.), then the
> program behaves perfectly; control is passed to the outer loop after the
> last system() call.
>
> I'm using strict, warning, diagnostics pragmas. I've also tried main.pl
> without the pragmas.
>
> What can I do to resolve this problem?
------------------------------
Date: Wed, 19 Dec 2007 01:21:25 GMT
From: spambait@milmac.com (Doug Miller)
Subject: Re: Problem with Perl system()
Message-Id: <pm_9j.25083$4V6.19814@newssvr14.news.prodigy.net>
In article <47686516$0$1383$4c368faf@roadrunner.com>, Julie <Julie@nospam.com> wrote:
>Never mind, I answered my own question.
well, what was the answer?
>
>Julie wrote:
>> I'm using Windows XP Pro and running Perl 5.8.8 under Cygwin.
>>
>> I have a Perl program that calls another Perl program using system().
>>
>> The driver program repeatedly calls the main Perl program.
>>
>> for ( my $i = 0 ; $i < $retries ; $i++
>> {
>> for ( my $j = 0 ; $j < $num_devices ; $j++ )
>> {
>> system( "perl main.pl parm1 parm2 &" ) ;
>> }
>> sleep 60 ; # never gets here
>> }
>>
>> I put the call to system() within a loop and (almost) everything is fine.
>>
>> The only problem is that after the last call to system(), the outer loop
>> doesn't gain control. The process seems to be hung.
>> I've put warn statements everywhere in the driver program but that
>> hasn't yielded any clues.
>>
>> I know that main.pl is terminating because there's only one Perl process
>> running after the last call to system().
>>
>> It doesn't matter whether I run one or a hundred calls to system().
>>
>> **** Here's what's very interesting: If I run main.pl under the Perl
>> debugger then press 'c' to continue (no breakpoints etc.), then the
>> program behaves perfectly; control is passed to the outer loop after the
>> last system() call.
>>
>> I'm using strict, warning, diagnostics pragmas. I've also tried main.pl
>> without the pragmas.
>>
>> What can I do to resolve this problem?
--
Regards,
Doug Miller (alphageek at milmac dot com)
It's time to throw all their damned tea in the harbor again.
------------------------------
Date: 19 Dec 2007 04:51:56 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Problem with Perl system()
Message-Id: <Xns9A0AE89B0244Bcastleamber@130.133.1.4>
Julie <Julie@nospam.com> wrote:
> Never mind, I answered my own question.
Don't top post. And it's always polite if you ask others for help, and
found the solution yourself to post the solution.
--
John
Arachnids near Coyolillo - part 1
http://johnbokma.com/mexit/2006/05/04/arachnids-coyolillo-1.html
------------------------------
Date: Wed, 19 Dec 2007 01:31:43 -0800
From: Joe Smith <joe@inwap.com>
Subject: Re: Problem with Perl system()
Message-Id: <BPCdnZTti5SxePXanZ2dnUVZ_s7inZ2d@comcast.com>
> Julie wrote:
>> I'm using Windows XP Pro and running Perl 5.8.8 under Cygwin.
>>...
>> What can I do to resolve this problem?
Julie wrote:
> Never mind, I answered my own question.
But the answer is not obvious to us.
What did you do to resolve your problem?
------------------------------
Date: Wed, 19 Dec 2007 02:54:28 -0800 (PST)
From: vorticitywolfe@gmail.com
Subject: regex question about ?, *, and $1
Message-Id: <3e7a8957-8b23-4500-bdcf-ed56d37f9580@d4g2000prg.googlegroups.com>
Alright, this is confusing me:
$string = 2340Z 4SL -ABCD PS T1203045;
if $string =~ m/(-|\+)*(AB|YZ)*(EF|CD)*\s??(PL|PS|PT)*?/g{
print $1,$2,$3,$4;
}
This works like I want it returns values for $1,$2,$3 and $4
However,
if you change it to this
$string = 2340Z 4SL PS T1203045;
It doesn't return anything for $1,$2,$3 or $4
Why?
I thought that any match followed by a " * " says that it matches 0 or
more, so if it's not matched it's undefined but the parenthesis still
"hold" it's place, i.e. $1 is still associated with the first
parenthetical match and doesn't switch to the second (AB|YZ) in this
case.
So in the end I would like this to work like this
$string = 2340Z 4SL -ABCD PS T1203045; ### print -ABCD PS
$string = 2340Z 4SL PS T1203045; ### print PS
$string = 2340Z 4SL -CD T1203045; ### print -CD
I have some logic to do all of that, but it's the regex that is
sticking me, particularly the * vs. ? vs. what is returned.
Thanks for the help in advance!
------------------------------
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 1131
***************************************
