[30815] in Perl-Users-Digest
Perl-Users Digest, Issue: 2060 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Dec 16 18:09:45 2008
Date: Tue, 16 Dec 2008 15:09:08 -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 Tue, 16 Dec 2008 Volume: 11 Number: 2060
Today's topics:
Re: a simple control in an nntp client <tadmc@seesig.invalid>
Re: a simple control in an nntp client <tadmc@seesig.invalid>
Re: ActivePerl .msi file under Vista... <stoupa@practisoft.cz>
Re: FAQ 9.4 How do I remove HTML from a string? xhoster@gmail.com
Re: FAQ 9.4 How do I remove HTML from a string? <tim@burlyhost.com>
Re: FAQ 9.4 How do I remove HTML from a string? sln@netherlands.com
Re: FAQ 9.4 How do I remove HTML from a string? sln@netherlands.com
How do you use Chart::ErrorBars? <r.ted.byers@gmail.com>
Re: How do you use Chart::ErrorBars? <glex_no-spam@qwest-spam-no.invalid>
Re: how to force a symbolic link? (David Combs)
Re: I need help with PDF::API2 to make a PDF file navig <r.ted.byers@gmail.com>
Re: maximum number of concurrent sessions <clauskick@hotmail.com>
Re: querying Active Directory via LDAP in perl <rfs9999@earthlink.net>
Re: Running END and/or DESTROY when you've been killed <ced@blv-sam-01.ca.boeing.com>
Re: Running END and/or DESTROY when you've been killed <No_4@dsl.pipex.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Dec 2008 06:10:17 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: a simple control in an nntp client
Message-Id: <slrngkf6l9.emq.tadmc@tadmc30.sbcglobal.net>
George <george@example.invalid> wrote:
> On Sun, 14 Dec 2008 22:48:58 -0600, Tad J McClellan wrote:
>
>> George <george@example.invalid> wrote:
>>> On Fri, 12 Dec 2008 22:31:44 -0800, Jürgen Exner wrote:
>
>> The more pertinent question is what value does $_ have...
>
> It seems to do a lot of things in perl.
Not in my Perl programs.
$_ is simply the common default variable.
My programs never use the default, I always give them an explicit variable.
In my production code, I use $_ only in map() and grep().
>>> if ($_->[$from_offset] eq 'George <george@example.invalid>')
>>> {
>>> print STDOUT "got a match\n";
>>> }
>>
>>
>> You have not put anything into $_.
>>
>> Perhaps you meant to loop over @xover instead?
>>
>> foreach ( @xover ) {
>> if ($_->[$from_offset] eq 'George <george@example.invalid>') {
>> print STDOUT "got a match\n";
>> }
>> }
So in my code, that would instead be:
foreach my $article ( @xover ) {
if ($article->[$from_offset] eq 'George <george@example.invalid>') {
print STDOUT "got a match\n";
}
}
Look Ma! No $_!
> That's precisely what I needed to do.
Then the problem was not with Perl being hard to understand at all.
The problem was simply a programmer's logic error.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 16 Dec 2008 06:16:08 -0600
From: Tad J McClellan <tadmc@seesig.invalid>
Subject: Re: a simple control in an nntp client
Message-Id: <slrngkf708.emq.tadmc@tadmc30.sbcglobal.net>
George <george@example.invalid> wrote:
> #!/usr/bin/perl -w
>
> use strict;
> use warnings;
> use Net::NNTP ();
>
> Does this not cover my bases here?
It would if you removed the -w switch.
I don't even know what happens when *both* forms of warnings are enabled...
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Tue, 16 Dec 2008 15:25:12 +0100
From: "Petr Vileta \"fidokomik\"" <stoupa@practisoft.cz>
Subject: Re: ActivePerl .msi file under Vista...
Message-Id: <gi8dvk$jj1$1@ns.felk.cvut.cz>
plq1001@gmail.com wrote:
> Hi,
>
> Short question...
>
> When I use the ActivePerl .msi installation-files (ver 5.8.9) under
> Windows Vista,
> it seems the proper PATH and the .pl file-association do NOT get set,
> even when these two boxes ARE checked in the installation-dialog.
>
> It works fine under XP, but can not get it to work on Vista-machines.
>
> Anyone recognize this problem, or has a clue what's causing the
> problem?
Maybe user rights? Try to run .msi "As administrator".
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail.
Send me your mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: 16 Dec 2008 17:16:00 GMT
From: xhoster@gmail.com
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <20081216121445.630$Lc@newsreader.com>
dkcombs@panix.com (David Combs) wrote:
> In article <lq0206-4c9.ln1@blue.stonehenge.com>,
> PerlFAQ Server <brian@stonehenge.com> wrote:
> > Here's one "simple-minded" approach, that works for most files:
> >
> > #!/usr/bin/perl -p0777
> > s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
>
> Since part of the job-description of a perl faq is to teach
> a bit of perl, about explaining how it works would be a
> nice addition.
Having just used this FAQ yesterday (copying the above regex directly into
my code and being pleased when it worked quite well), I know I had little
interest in understanding precisely how it worked. I know that all the
constructs are explained in perldoc perlre, and I could look them up there
if I wanted to, although the ones above seem to be ones I already know.
Knowing why they were assembled in the manner they were is more about
understanding the structure of HTML than it is about Perl, so I don't know
that dwelling on that in a Perl FAQ is warranted. If the regex had been
presented scattered over a dozen lines, using /x, I know that would have
annoyed me quite a bit. After all, I wanted to strip out HTML, not get
a lesson in regex, which is adequately covered elsewhere. IMHO, an
explanation of the above would generally fall into one of two categories.
Too abbreviated to do much good, or too long to really belong in this FAQ.
I'd be happy to be proven wrong and see something both short and useful,
but I'm skeptical enough about it happening that I don't think I'll try to
come up with it myself.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.
------------------------------
Date: Tue, 16 Dec 2008 10:58:58 -0800
From: Tim Greer <tim@burlyhost.com>
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <TTS1l.25305$uS1.17120@newsfe19.iad>
xhoster@gmail.com wrote:
> IMHO, an
> explanation of the above would generally fall into one of two
> categories. Too abbreviated to do much good, or too long to really
> belong in this FAQ.
I completely agree. I don't think a really in-depth outline of every
aspect of the solution presented is a good idea, or any attempts to
create a large regex or solution that would try and cover all
scenarios, just for this particular FAQ. I think it suffices fine the
way it is (though an explanation of the short regexs in this one isn't
a bad idea).
> I'd be happy to be proven wrong and see something
> both short and useful,
Careful what you wish for, else the sln poster will try and push his
famous "parser engine" again, claiming it's the right solution
(including a 4 page spanning regex that doesn't even use the /x
modifier) and that it should replace any regex FAQ posted here. :-)
--
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: Tue, 16 Dec 2008 22:07:12 GMT
From: sln@netherlands.com
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <v07gk450fq0c42trcrijbo36m8k9fgs158@4ax.com>
On Mon, 15 Dec 2008 10:12:24 +0000 (UTC), dkcombs@panix.com (David Combs) wrote:
>In article <lq0206-4c9.ln1@blue.stonehenge.com>,
>PerlFAQ Server <brian@stonehenge.com> wrote:
>>This is an excerpt from the latest version perlfaq9.pod, which
>>comes with the standard Perl distribution. These postings aim to
>>reduce the number of repeated questions as well as allow the community
>>to review and update the answers. The latest version of the complete
>>perlfaq is at http://faq.perl.org .
>>
>>--------------------------------------------------------------------
>>
>>9.4: How do I remove HTML from a string?
>>
>> The most correct way (albeit not the fastest) is to use HTML::Parser
>> from CPAN. Another mostly correct way is to use HTML::FormatText which
>> not only removes HTML but also attempts to do a little simple formatting
>> of the resulting plain text.
>>
>> Many folks attempt a simple-minded regular expression approach, like
>> "s/<.*?>//g", but that fails in many cases because the tags may continue
>> over line breaks, they may contain quoted angle-brackets, or HTML
>> comment may be present. Plus, folks forget to convert entities--like
>> "<" for example.
>>
>> Here's one "simple-minded" approach, that works for most files:
>>
>> #!/usr/bin/perl -p0777
>> s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
>
>Since part of the job-description of a perl faq is to teach
>a bit of perl, about explaining how it works would be a
>nice addition.
>
FAQ>> "s/<.*?>//g", but that fails in many cases because the tags may continue
FAQ>> over line breaks, they may contain quoted angle-brackets, or HTML
FAQ>> s/<(?:[^>'"]*|(['"]).*?\1)*>//gs
Here he is just trying, in a simple minded way, to include quoted 'right' angle
brackets and having it span newlines. Otherwise there is no difference whatsoever
to "s/<.*?>//g" except things he has no idea of and I'm not going to tell him.
If you want to really STRIP all html/xml from a string with regexp's you can be
%100 assured, this below is the only way to do it. You can remove
capture brackets and replace with grouping brackets, but they must be included.
You can also replace the $Name variable with .*? but I wouldn't. It validates
names on good markup, but why is it there if not valid. If not 'VALID' html/xml
then its part of some surrounding text that is not markup.
Also, he is trying to remove angle brackets and whatever is enclosed, leaving
content. Assuming the whole file is html/xml, why not just parse out content.
Pretty rediculous isin't it !!
Not sure what this FAQ is about.
sln
To just get the content use RxParseXP1:
---------------------------------------------
$lcbpos = 0;
$content = '';
while ($$strref =~ /$RxParseXP1/g)
{
if (defined $14) {
$content .= $14;
if (length ($15)) {
if ($lcbpos == pos($$strref)) {
$content .= $15;
} else {
$lcbpos = pos($$strref);
pos($$strref) = $lcbpos - 1;
}
}
next;
}
## valid content here ... can be taken off
if (length ($content)) {
print "$content\n";
$content = '';
}
}
To just strip away markup (the inverse) use RxParseXP2:
------------------------------------------------------------
$$strref =~ s/$RxParseXP2/g;
@UC_Nstart = (
"\\x{C0}-\\x{D6}",
"\\x{D8}-\\x{F6}",
"\\x{F8}-\\x{2FF}",
"\\x{370}-\\x{37D}",
"\\x{37F}-\\x{1FFF}",
"\\x{200C}-\\x{200D}",
"\\x{2070}-\\x{218F}",
"\\x{2C00}-\\x{2FEF}",
"\\x{3001}-\\x{D7FF}",
"\\x{F900}-\\x{FDCF}",
"\\x{FDF0}-\\x{FFFD}",
"\\x{10000}-\\x{EFFFF}",
);
@UC_Nchar = (
"\\x{B7}",
"\\x{0300}-\\x{036F}",
"\\x{203F}-\\x{2040}",
);
$Nstrt = "[A-Za-z_:".join ('',@UC_Nstart)."]";
$Nchar = "[-\\w:\\.".join ('',@UC_Nchar).join ('',@UC_Nstart)."]";
$Name = "(?:$Nstrt$Nchar*)";
$RxParseXP1 =
qr/(?:<(?:(?:(\/*)($Name)\s*(\/*))|(?:($Name)(\s+(?:(?:(?:".*?")|(?:'.*?'))|(?:[^>]*?))+)\s*(\/?))|(?:\?(.*?)\?)|(?:!(?:(?:DOCTYPE(.*?))|(?:\[CDATA\[(.*?)\]\])|(?:--(.*?)--)|(?:ATTLIST(.*?))|(?:ENTITY(.*?))|(?:ELEMENT(.*?)))))>)|([^<]*)(<?)/s;
# ( <( ( 1 12 2 3 3)|( 4 45 ( ( ( )|( ))|( )) 5 6 6)|( 7 7 )|( !( ( 8 8)|( 9 9 )|( 0 0 )|(
1 1)|( 2 2)|( 3 3))))>)|4 45 5
$RxParseXP2 =
qr/(?:<(?:(?:(\/*)($Name)\s*(\/*))|(?:($Name)(\s+(?:(?:(?:".*?")|(?:'.*?'))|(?:[^>]*?))+)\s*(\/?))|(?:\?(.*?)\?)|(?:!(?:(?:DOCTYPE(.*?))|(?:\[CDATA\[(.*?)\]\])|(?:--(.*?)--)|(?:ATTLIST(.*?))|(?:ENTITY(.*?))|(?:ELEMENT(.*?)))))>)/s;
# ( <( ( 1 12 2 3 3)|( 4 45 ( ( ( )|( ))|( )) 5 6 6)|( 7 7 )|( !( ( 8 8)|( 9 9 )|( 0 0 )|(
1 1)|( 2 2)|( 3 3))))>)
------------------------------
Date: Tue, 16 Dec 2008 22:13:27 GMT
From: sln@netherlands.com
Subject: Re: FAQ 9.4 How do I remove HTML from a string?
Message-Id: <vt9gk4h3nsftki334ka9p062oggau4qvbt@4ax.com>
On Tue, 16 Dec 2008 22:07:12 GMT, sln@netherlands.com wrote:
>On Mon, 15 Dec 2008 10:12:24 +0000 (UTC), dkcombs@panix.com (David Combs) wrote:
>
[snip]
>To just strip away markup (the inverse) use RxParseXP2:
>------------------------------------------------------------
>$$strref =~ s/$RxParseXP2/g;
>
$$strref =~ s/$RxParseXP2//g;
Forgot foward slash..
sln
------------------------------
Date: Tue, 16 Dec 2008 12:35:19 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: How do you use Chart::ErrorBars?
Message-Id: <71f31f51-85be-4419-ac52-889ee8bfb1f6@g38g2000yqd.googlegroups.com>
I found Chart::ErrorBars in the Chart documentation, and the following
is the only information I find about using it:
"'same_error' This is a option only for ErrorBars. It tells chart
that you want use the same error value of a data point if set to
'true'. Look at the documentation to see how the module ErrorBars
works. Default: 'false'."
This is from the documentation for Chart, so i don't know what this
other documentation is that this sentence refers to.
I took a quick look into the source code, but that has few comments,
and it isn't clear from that how to do what I need.
Creating an instance of a Chart::ErrorBars object seems simple:
use Chart::ErrorBars;
my $cobj = Chart::ErrorBars->new;
What isn't clear is how to tell it what the upper and lower bounds for
the error bars. For this task, what is important is to be able to
show that the upper and lower bounds of the 99% confidence interval of
the estimate are Yl and Yu, and the actual value is Ya (we really
don't care what the estimate of the expected value 'Ye' is, only
whether or not the actual value is within the confidence interval of
the expected value).
If I could even see a small example of how Chart::ErrorBars is used, I
could figure out the rest from there. I have succeeded using the line,
bar and pie charts from the Chart 'package', but this one has me
stumped (I MAY resort to a simple line chart, of I don't figure out
this Chart::ErrorBars object quickly).
Any help would be appreciated.
Thanks
Ted
------------------------------
Date: Tue, 16 Dec 2008 14:40:46 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: How do you use Chart::ErrorBars?
Message-Id: <4948124e$0$89386$815e3792@news.qwest.net>
Ted Byers wrote:
[...]
> If I could even see a small example of how Chart::ErrorBars is used, I
> could figure out the rest from there. [...]
Check the tests. e.g.
http://search.cpan.org/src/CHARTGRP/Chart-2.4.1/t/error_1.t
------------------------------
Date: Tue, 16 Dec 2008 19:32:24 +0000 (UTC)
From: dkcombs@panix.com (David Combs)
Subject: Re: how to force a symbolic link?
Message-Id: <gi8vo8$qrc$1@reader1.panix.com>
In article <slrngkcf54.25b.hjp-usenet2@hrunkner.hjp.at>,
Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>On 2008-12-15 10:29, David Combs <dkcombs@panix.com> wrote:
>> In article <slrngj39t1.86n.whynot@orphan.zombinet>,
>> Eric Pozharski <whynot@pozharski.name> wrote:
>>>On 2008-11-29, John W. Krahn <someone@example.com> wrote:
>>>> Peng Yu wrote:
>>>>> In shell, 'ln' has an option -f. I'm wondering if there is such option
>>>>> for symlink in perl.
>>>>
>>>> -e 'oldlink' and unlink 'oldlink';
>>>> symlink 'yourfile', 'oldlink' or die "oldlink: $!";
>>>
>>
>> Where's the race condition?
>>
>> Does unlink return before the unlinking has been completed?
>
>No, but another process could create a new 'oldlink' between the time
>unlink returns and the time symlink is called.
>
>(link -f has the same problem, of course)
>
> hp
>
Thank you!
David
------------------------------
Date: Tue, 16 Dec 2008 13:03:40 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: I need help with PDF::API2 to make a PDF file navigation aide
Message-Id: <74d73bcb-4135-448c-89db-ff63882b9ea5@s16g2000vbp.googlegroups.com>
On Dec 14, 5:47=A0am, "Peter J. Holzer" <hjp-usen...@hjp.at> wrote:
> On 2008-12-11 22:30, Ted Byers <r.ted.by...@gmail.com> wrote:
>
> > I have used this, along with a couple other of the PDF modules, to
> > create what are now rather large PDF files. =A0They are a bit tedious t=
o
> > scroll through, so what I want to do now is create something like a
> > table of contents that is always displayed in a narrow strip along the
> > left margin that allows the reader to simply select an item in that
> > window and have the corresponding page appear in the main window. =A0Bu=
t
> > unlike a conventional table of contents, it would never appear at the
> > beginning of the document in the main window (and unlike an index, it
> > would never appear at the end of the document).
>
> > What is the normal term for this 'object' in the PDF documentation?
>
> I think in PDF::API2 it's called an "outline", although normally the term
> "bookmark" is more common.
>
> > How do I create it (or is it always present even if not visible, in a
> > PDF file created by new('filename.pdf')), and how do I specify that
> > this page, but not that page, should be linked to it with this title?
>
> perldoc PDF::API2
> perldoc PDF::API2::Outlines
> perldoc PDF::API2::Outline
>
> unfortunately the docs are very terse.
>
> =A0 =A0 =A0 =A0 hp
You're right. To say the documentation is terse is a gross
understatement!
Have you used PDF__API2 to create an outline?
------------------------------
Date: Tue, 16 Dec 2008 05:32:19 -0800 (PST)
From: Snorik <clauskick@hotmail.com>
Subject: Re: maximum number of concurrent sessions
Message-Id: <1ad1eee5-ece7-4f08-bfd6-7fa0e43133ab@d36g2000prf.googlegroups.com>
On 15 Dez., 14:28, david <michaelg...@gmail.com> wrote:
> HI all,
>
> I have got a requirement, when the number of concurrent sessions a
> certain web site has exceeds a number than i should send a response
> that i can not give now the service and that the user should try in a
> couple of minutes.
>
> My questions are:
>
> Is this something I should handle in the perl code =A0or more upstream?
>
Isnt that handled in apache:
# worker MPM
# StartServers: initial number of server processes to start
# MaxClients: maximum number of simultaneous client connections
# MinSpareThreads: minimum number of worker threads which are kept
spare
# MaxSpareThreads: maximum number of worker threads which are kept
spare
# ThreadsPerChild: constant number of worker threads in each server
process
# MaxRequestsPerChild: maximum number of requests a server process
serves
<IfModule worker.c>
StartServers 2
MaxClients 150
MinSpareThreads 25
MaxSpareThreads 75
ThreadsPerChild 25
MaxRequestsPerChild 0
</IfModule>
------------------------------
Date: Fri, 12 Dec 2008 11:58:01 -0600
From: Rick Sanders <rfs9999@earthlink.net>
Subject: Re: querying Active Directory via LDAP in perl
Message-Id: <96f2e$4942a612$8529@news.teranews.com>
> In Evolution, you simply give it the IP address of your AD/
> LDAP server and it all magically works. Evolution is running on a
> linux box, which has no knowledge of the query string variables.
LDAP is not magic. Unless Evolution uses a base DN and a search filter
(and that means specifying Distinguished Names like base: ou=rickserver,
o=internet filter: cn=rick) then it is not using LDAP to query Active
Directory. It may be that Evolution is using canned queries such that
all you have to do is to supply the IP of the AD server and it builds
the LDAP search query.
If you have access to the logfiles on the Active Directory server you
should be able to see what Evolution is doing.
-Rick
** Posted from http://www.teranews.com **
------------------------------
Date: Tue, 16 Dec 2008 05:41:28 -0800 (PST)
From: "C.DeRykus" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Running END and/or DESTROY when you've been killed by a signal
Message-Id: <2d553b46-2029-4bd3-8c0f-b2c70de0ed7d@i18g2000prf.googlegroups.com>
On Dec 15, 4:59 pm, "C.DeRykus" <c...@blv-sam-01.ca.boeing.com> wrote:
> On Dec 15, 11:20 am, Bernie Cosell <ber...@fantasyfarm.com> wrote:
>
> ...
> (perldoc -f sigtrap)
>
perldoc sigtrap
--
Charles DeRykus
------------------------------
Date: Tue, 16 Dec 2008 22:02:46 +0000
From: Big and Blue <No_4@dsl.pipex.com>
Subject: Re: Running END and/or DESTROY when you've been killed by a signal
Message-Id: <wLednZFKlrEauNXUnZ2dnUVZ8rSdnZ2d@pipex.net>
bernie@fantasyfarm.com wrote:
>
> Nope -- signals didn't work at all. Problem is that as I discovered
> today [in debugging the mess] I need to DESTROY _not_ just when the
> program exits but also when the vbl goes out of scope.
The DESTROY method for an object will be called when it goes out of
scope. *You* don't need to do anything except provide the DESTROY code.
[mysys]: cat x.pl; perl x.pl
#!/usr/bin/perl
#
use strict;
use warnings;
{package Test;
my $count = 0;
sub new {
my $var = ++$count;
print "Create item $var\n";
return bless \$var, "Test";
}
sub DESTROY {
my $self = shift;
print "Destroy item $$self\n";
}
}
my $x = Test->new();
for my $c qw( a b c d e f ) {
my $xx = Test->new();
}
exit;
Create item 1
Create item 2
Destroy item 2
Create item 3
Destroy item 3
Create item 4
Destroy item 4
Create item 5
Destroy item 5
Create item 6
Destroy item 6
Create item 7
Destroy item 7
Destroy item 1
cat x.pl
--
Just because I've written it doesn't mean that
either you or I have to believe it.
------------------------------
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 2060
***************************************
