[29217] in Perl-Users-Digest
Perl-Users Digest, Issue: 461 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 26 06:10:20 2007
Date: Sat, 26 May 2007 03:09:04 -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 Sat, 26 May 2007 Volume: 11 Number: 461
Today's topics:
cgi script causing perl loop???? <mmccaws@comcast.net>
Re: cgi script causing perl loop???? <glennj@ncf.ca>
Re: cgi script causing perl loop???? <glex_no-spam@qwest-spam-no.invalid>
get mail by POP3Client? <jck11@msr.pchome.com.tw>
Re: get mail by POP3Client? <nobull67@gmail.com>
Re: localtime(time()) <hjp-usenet2@hjp.at>
Re: perlre: why {n}?, {n,}?, {n,m}? ? <baxter.brad@gmail.com>
Problem in Enforcing utf8 coding for output schwertleite@gmail.com
Re: Problem in Enforcing utf8 coding for output <paduille.4061.mumia.w+nospam@earthlink.net>
Re: reverse a glob expansion xhoster@gmail.com
Re: reverse a glob expansion <t0ph3r1967@netscape.net>
Re: Soap/WSDL perl versus java ? <arne@vajhoej.dk>
Re: Solve a statistics problem <brundlefly76@hotmail.com>
Re: Solve a statistics problem <sumonsmailbox@gmail.com>
welcome to www.wow-of.com,Welcome to our website for yo wowof001@gmail.com
welcome to www.wow-of.com wowof001@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 25 May 2007 13:27:56 -0700
From: mmccaws2 <mmccaws@comcast.net>
Subject: cgi script causing perl loop????
Message-Id: <1180124875.916641.31420@i13g2000prf.googlegroups.com>
Hi
I'm developing a CGI script on an intel Mac and noticed that I
probably wrote something that is causing hi cpu utilization. Every
time that I submit the form in the browser starts responding and
hanges. So the question is how do I know if it's a perl problem or an
apache problem. And if it's my Perl code how do I find where it's
hanging.
I do have these error messages:
Timeout waiting for output from CGI script /final.cgi, referer:/
final.cgi?page=register (I've left out the directory info)
Premature end of script headers: final.cgi, referer:/final.cgi?
page=register
perl(677) malloc: *** vm_allocate(size=452612096) failed (error
code=3) referer:/final.cgi?page=register
perl(677) malloc: *** error: can't allocate region, referer:/
final.cgi?page=register
perl(677) malloc: *** set a breakpoint in szone_error to debug,
referer:/final.cgi?page=register
Out of memory!
referer:/final.cgi?page=register
These seem to be saying that I've a perl code problem? Right?
Thanks
Mike
------------------------------
Date: 25 May 2007 20:43:20 GMT
From: Glenn Jackman <glennj@ncf.ca>
Subject: Re: cgi script causing perl loop????
Message-Id: <slrnf5eij9.gfv.glennj@smeagol.ncf.ca>
At 2007-05-25 04:27PM, "mmccaws2" wrote:
> Hi
>
> I'm developing a CGI script on an intel Mac and noticed that I
> probably wrote something that is causing hi cpu utilization. Every
> time that I submit the form in the browser starts responding and
> hanges. So the question is how do I know if it's a perl problem or an
> apache problem. And if it's my Perl code how do I find where it's
> hanging.
>
> I do have these error messages:
[...]
> Out of memory!
Sounds like it's not hanging, but rather doing too much.
--
Glenn Jackman
"You can only be young once. But you can always be immature." -- Dave Barry
------------------------------
Date: Fri, 25 May 2007 16:12:25 -0500
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: cgi script causing perl loop????
Message-Id: <46575139$0$10300$815e3792@news.qwest.net>
mmccaws2 wrote:
> Hi
>
> I'm developing a CGI script on an intel Mac and noticed that I
> probably wrote something that is causing hi cpu utilization. Every
> time that I submit the form in the browser starts responding and
> hanges. So the question is how do I know if it's a perl problem or an
> apache problem. And if it's my Perl code how do I find where it's
> hanging.
Ahhhh.. run it from the command line, add a few prints, etc. In
other words, debug it like any other perl program.
Maybe this is worth reading:
perldoc perlfaq9
------------------------------
Date: Sat, 26 May 2007 11:33:15 +0800
From: "jck11" <jck11@msr.pchome.com.tw>
Subject: get mail by POP3Client?
Message-Id: <f389q7$21r$1@netnews.hinet.net>
hi all
I want to get my mail from gmail account.
The code below got it.
But I also want the mail reserve one copy in the mail server.
How can I modify the code to match the function.
Thanks for any information.
use MIME::Parser;
use Mail::POP3Client;
use IO::Socket::SSL;
my $pop3=Mail::POP3Client->new(
USER=>'xxxxxxxx',
PASSWORD=>'xxxxxxxx',
HOST=>'pop.gmail.com',
PORT=>'995',
USESSL=>'true',
DEBUG=>0,
)or die "can't connect the server.\n";
if(($pop3->Count()) < 1){
print "No messages...\n";
exit;
}
print $pop3->Count() ." messages found!\n";
for($i=1; $i<=$pop3->Count(); $i++){
print $i, "\n";
my $msg=$pop3->Retrieve($i);
my $parser=new MIME::Parser;
$parser->output_dir('c:\\mail');
my $entity=$parser->parse_data($msg);
}
$pop3->Close();
------------------------------
Date: 25 May 2007 23:39:04 -0700
From: Brian McCauley <nobull67@gmail.com>
Subject: Re: get mail by POP3Client?
Message-Id: <1180161544.937981.69820@k79g2000hse.googlegroups.com>
On 26 May, 04:33, "jck11" <j...@msr.pchome.com.tw> wrote:
> I want to get my mail from gmail account.
> The code below got it.
> But I also want the mail reserve one copy in the mail server.
What do you mean "reserve one copy"?
The POP3 protocol does not delete anything from the server unless you
do so explicitly.
------------------------------
Date: Sat, 26 May 2007 09:24:17 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: localtime(time())
Message-Id: <slrnf5fo51.gse.hjp-usenet2@zeno.hjp.at>
On 2007-05-24 01:09, Gunnar Hjalmarsson <noreply@gunnar.cc> wrote:
> Tony Curtis wrote:
>> Gunnar Hjalmarsson wrote:
>>> Tony Curtis wrote:
>>>> Well, you've answered your own question...but simpler is:
>>>>
>>>> use POSIX qw( strftime );
>>>>
>>>> print strftime '%Y-%m-%d', localtime();
>>>
>>> I'm not sure that using POSIX is simpler, since at least I would need
>>> to look up the applicable conversion specifiers.
%Y, %m and %d are mnemonic enough that you probably only have to look
%them up once (although you might confuse %m and %M). Some others are
very obscure though.
>>> I would do:
>>>
>>> my ($d, $m, $y) = ( localtime )[3..5];
>>> printf '%d-%02d-%02d', $y+1900 , $m+1, $d;
So you need to remember the order of fields in the list returned by
localtime (quick, which field is day of the week?), that you have to add
1 to the month and 1900 to the year. Plus it's two lines instead of one.
>> "Simpler" of course depends on the metric(s) you use to measure
>> complexity, but I would definitely argue that strftime() is certainly
>> much easier to read, especially *for other people*, and thus produces
>> "simpler" code.
>
> Working with localtime() and (s)printf() is simple enough even for
> beginner level Perl programmers. Whoelse would you be coding for? ;-)
Judging from the number of programs which thought that the year after
1999 would be 19100 localtime() was obviously not simple enough for many
programmers.
hp
--
_ | Peter J. Holzer | I know I'd be respectful of a pirate
|_|_) | Sysadmin WSR | with an emu on his shoulder.
| | | hjp@hjp.at |
__/ | http://www.hjp.at/ | -- Sam in "Freefall"
------------------------------
Date: 25 May 2007 18:13:51 -0700
From: Brad Baxter <baxter.brad@gmail.com>
Subject: Re: perlre: why {n}?, {n,}?, {n,m}? ?
Message-Id: <1180142030.967273.81540@q69g2000hsb.googlegroups.com>
On May 24, 3:43 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >>>>> "PL" == Paul Lalli <mri...@gmail.com> writes:
>
> PL> On May 24, 1:10 pm, Uri Guttman <u...@stemsystems.com> wrote:
> >> >>>>> "k" == kj <s...@987jk.com.invalid> writes:
> >>
> k> In perlre the descriptions given for each item in the following
> k> pairs are identical:
> >>
> >> the ? quantifier is non-greedy.
>
> PL> Just to be pedantic, the ? *quantifier* is in fact greedy. That is,
> PL> the quantifier that means "0 or 1 of the previous token" will prefer
> PL> to match 1. A separate and distinct use of the question-mark
> PL> character is to make a preceding quantifier non-greedy. So the ?
> PL> quantifier, modified by a ? will match 0 or 1 of the previous token,
> PL> preferring to match 0.
>
> well, i should have said ? modifier vs the ? quantifier which is 0 or 1
> times. but it is obvious from the OP that it is the ? modifier in
> question.
Since we're in pedantic mode, perlre.pod seems a bit loose with
"modifier"
vs. "quantifier" in a few places. Below, I've replaced "modifier"
with
"quantifier" where I think appropriate.
This is perl, v5.8.6 built for i386-openbsd, but it seems to agree
with
http://perldoc.perl.org/perlre.html (Perl 5.8.8)
<quasi-patch>
diff -u perlre.pod.orig perlre.pod
--- perlre.pod.orig Fri May 25 20:32:10 2007
+++ perlre.pod Fri May 25 20:47:55 2007
@@ -122,8 +122,8 @@
(If a curly bracket occurs in any other context, it is treated
as a regular character. In particular, the lower bound
-is not optional.) The "*" modifier is equivalent to C<{0,}>, the "+"
-modifier to C<{1,}>, and the "?" modifier to C<{0,1}>. n and m are
limited
+is not optional.) The "*" quantifier is equivalent to C<{0,}>, the
"+"
+quantifier to C<{1,}>, and the "?" quantifier to C<{0,1}>. n and m
are limited
to integral values less than a preset limit defined when perl is
built.
This is usually 32766 on the most common platforms. The actual limit
can
be seen in the error message generated by code such as this:
@@ -1103,7 +1103,7 @@
The C<o?> can match at the beginning of C<'foo'>, and since the
position
in the string is not moved by the match, C<o?> would match again and
again
-because of the C<*> modifier. Another common way to create a similar
cycle
+because of the C<*> quantifier. Another common way to create a
similar cycle
is with the looping modifier C<//g>:
@matches = ( 'foo' =~ m{ o? }xg );
@@ -1123,7 +1123,7 @@
Thus Perl allows such constructs, by I<forcefully breaking
the infinite loop>. The rules for this are different for lower-level
-loops given by the greedy modifiers C<*+{}>, and for higher-level
+loops given by the greedy quantifiers C<*+{}>, and for higher-level
ones like the C</g> modifier or split() operator.
The lower-level loops are I<interrupted> (that is, the loop is
</quasi-patch>
Otherwise the pod consistently refers to /imszge as "modifiers".
The places (unless I missed any) where it refers to the
non-greedy '?' thingy with words are:
If you want it to match the minimum number of times possible, follow
the quantifier with a "?". Note that the meanings don't change, just
the "greediness":
...
A fundamental feature of regular expression matching involves the
notion called backtracking, which is currently used (when needed)
by all regular expression quantifiers, namely * , *? , + , +?, {n,m},
and {n,m}?. Backtracking is often optimized internally, but the
general principle outlined here is valid.
...
At each position of the string the best match given by non-greedy ??
is the zero-length match, and the second best match is what is matched
by \w.
Conclusion: I don't see any place that explicitly refers to the
non-greedy ? as a modifier of a quantifier, even though that's
logically what it is.
Personally, I think it's questionable the number of different
purposes that '?' serves. <maniacal_laughter/>
--
Brad
------------------------------
Date: 25 May 2007 17:48:19 -0700
From: schwertleite@gmail.com
Subject: Problem in Enforcing utf8 coding for output
Message-Id: <1180140499.807555.181040@n15g2000prd.googlegroups.com>
Hi,
I have recently upgraded the Perl version on the my machine from 5.6.1
to 5.8.7 And it seems that thereafter, the files generated by my
certain localise.pl has started failing to output files into the ANSI
code instead of ideal UTF-8 encoding.
Here is the certain line that I have managed to create the correct
utf8 output beforehand
my $output = new IO::File (">$file");
I have tried the following:_
a) my $output = new IO::File(">$file")->utf8->all;
b) my $output = new IO::File(">$file");
$output->utf8->all;
c) my $output = new IO::File(">:utf8",$file);
d) my $output = new IO::File(">:encoding(utf8),$file);
e) use encoding "utf8";
with absolutely no luck.
I am really a newbie to Perl who has exhausted all imagination on the
issue. Therefore any help from the Perl gurus out there will be very
appreciated.
Thanks,
Mency
------------------------------
Date: Sat, 26 May 2007 04:08:41 GMT
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: Problem in Enforcing utf8 coding for output
Message-Id: <dpO5i.13632$Ut6.5211@newsread1.news.pas.earthlink.net>
On 05/25/2007 07:48 PM, schwertleite@gmail.com wrote:
> Hi,
>
> I have recently upgraded the Perl version on the my machine from 5.6.1
> to 5.8.7 And it seems that thereafter, the files generated by my
> certain localise.pl has started failing to output [utf8 ...]
>
The POD (documentation) for IO::File says this:
> METHODS
> open( FILENAME [,MODE [,PERMS]] )
> open( FILENAME, IOLAYERS )
And since ':utf8' is an IO layer, I suspect that the correct invocation
would be this:
my $output = IO::File->new('output.txt','>:utf8');
And I tested it, and this is correct.
------------------------------
Date: 25 May 2007 20:27:28 GMT
From: xhoster@gmail.com
Subject: Re: reverse a glob expansion
Message-Id: <20070525162731.180$YY@newsreader.com>
topher67 <t0ph3r1967@netscape.net> wrote:
> On May 25, 10:19 am, xhos...@gmail.com wrote:
> > topher67 <t0ph3r1...@netscape.net> wrote:
> > > Hello,
> >
> > > I need a piece of code that can "unexpand" a glob pattern. For
> > > example, given the following list:
> >
> > > Foo-1-Bar
> > > Foo-2-Bar
> > > Foo-3-Bar
> >
> > > I would like to get back:
> >
> > > Foo-{1,2,3}-Bar
> >
> > > Any help would be greatly appreciated.
> >
> > This could could be either very easy or very hard.
> >
> > Are curlies the only specials allowed, and are the things in the curly
> > always to be exactly one character long, and is there only going to be
> > exactly one set of curlies per pattern?
> >
> > Xho
> >
> > --
> > --------------------http://NewsReader.Com/--------------------
> > Usenet Newsgroup Service $9.95/Month 30GB
>
> Let's assume the following:
> * curlies are the only specials allowed
> * the substrings inside the curlies can be of differing lengths
Ah, that makes it harder than I had hoped...
> * there may be more than one expanded set in the input list
Do you mean like "abc{d,e,f}ghi{j,k,l}mn" where you have a cartesian join,
or do you mean like in your example below, where there is more than one
"lines" of pattern but any given one of them has at most one set of
curlies?
> * we won't handle nested curlies (e.g. Foo{A{1,2,3}Z,XY}Bar )
Nesting actually probably wouldn't be so bad to implement, at least
compared to Cartesian joins. In fact, the example you give below is just a
special kind of nesting, equivalent to {Foo{ZZZ,Y,XX}Bar,Baz{11,222},Nop}.
A special kind because you can only have two levels, and the outer level
cannot have any fixed characters in before or after--but still it is
nested.
>
> Here's another example:
>
> FooZZZBar
> FooYBar
> FooXXBar
> Baz11
> Baz222
> Nop
>
> Becomes:
>
> Foo{ZZZ,Y,XX}Bar
> Baz{11,222}
> Nop
>
> I realize that this is a hard problem to solve. Any help is greatly
> appreciated.
There are many possible solutions, and it is not obvious how to assign a
score to each so that we can choose a single best one. Also, once a
scoring system is designed, it maybe computationally expensive to achieve.
So some kind of heuristic is probably needed. In the example you give, the
best matching at the front (Foo) corresponds to the best matching at the
rear (Bar). Is that likely to be a common occurrence in your data, or was
it just a coincident?
Does Regexp::List come up with a regex which matches all of the given words
*and nothing else*? The docs didn't seem to address that issue.
Anyway, if your goal is condense, say, a large directory listing down to a
handful of patterns that human could easily discern, I'm not sure that
something optimized for a regex engine would do a good job. (Although
looking at the techniques used by it could certainly be informative.)
If this is for human consumption, I would have a preference for patterns
in which the curlies occur at natural boundaries, such as transitions
from letter to number or number to letter or punctuation to
non-punctuation, etc.
As someone who frequently looks at very long directory listings of
computer-generated file names, this is something I've often thought about,
but never actually attempted.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 25 May 2007 18:05:20 -0700
From: topher67 <t0ph3r1967@netscape.net>
Subject: Re: reverse a glob expansion
Message-Id: <1180141520.004463.209880@n15g2000prd.googlegroups.com>
While it may not always return a human friendly result, it does seem
to work:
# refactor a glob
sub reglob {
my($pat) = @_;
# glob2list
my @list;
my @glob = bsd_glob($pat, GLOB_NOCHECK | GLOB_BRACE);
if (@glob) {
for my $glob (@glob) {
push @list, $glob;
}
}
else {
push @list, $pat;
}
# list2re
my $rl = Regexp::List->new(lookahead => 0, quotemeta => 0);
my $re = $rl->list2re( @list );
# re2glob
$re =~ s/\(\?-xism:(.*)\)/$1/g;
$re =~ s/\(\?:/(/g;
$re =~ s/^\(// and $re =~ s/\)$//;
$re =~ tr/()|/{},/;
$re;
}
Sample in: aaa{11,22},aaa33
Sample out: aaa{11,22,33}
------------------------------
Date: Fri, 25 May 2007 17:48:07 -0400
From: =?ISO-8859-1?Q?Arne_Vajh=F8j?= <arne@vajhoej.dk>
Subject: Re: Soap/WSDL perl versus java ?
Message-Id: <46575989$0$90267$14726298@news.sunsite.dk>
wbsurfver@yahoo.com wrote:
> We need to develop a SOAP service on appache. Java axis 2 with Resin
> seems like what we should do, however I was wondering if doing this
> in Perl might be a good idea ? I did see that the WSDL generator on
> CPAN says it does not work in Perl 5.8 because of autoload problem in
> 5.8. I know that when I had to support an XML parser in Java, it
> seemed complex and the same Perl parser would have been perhaps 5
> times less code. Since there will not be much more than 1000 lines of
> Perl code, any maintenance issues would not be a big problem.
I prefer Java for Perl, but I am a Java programmer - if you ask a
Perl programmer he will prefer Perl, so that does not help you much.
> Also the client side is PHP, does that make any difference ?
No.
Arne
------------------------------
Date: Fri, 25 May 2007 21:07:09 -0400
From: "seth brundle" <brundlefly76@hotmail.com>
Subject: Re: Solve a statistics problem
Message-Id: <4657883c$0$24279$8d2e0cab@news.usenetbinaries.com>
>>Thanks for so clearly identifying your lack of respect
>>for all of the people here.
>
> Thanks for speaking on their behalf.
> In this case, Ted speaks for me, too.
Maybe you two can get together in a chat room or something and talk about
how this experience made you feel.
------------------------------
Date: 26 May 2007 02:36:54 -0700
From: skywriter14 <sumonsmailbox@gmail.com>
Subject: Re: Solve a statistics problem
Message-Id: <1180172214.152821.55130@q69g2000hsb.googlegroups.com>
On May 26, 7:07 am, "seth brundle" <brundlefl...@hotmail.com> wrote:
> >>Thanks for so clearly identifying your lack of respect
> >>for all of the people here.
>
> > Thanks for speaking on their behalf.
> > In this case, Ted speaks for me, too.
>
> Maybe you two can get together in a chat room or something and talk about
> how this experience made you feel.
Idiot!
------------------------------
Date: 25 May 2007 20:21:41 -0700
From: wowof001@gmail.com
Subject: welcome to www.wow-of.com,Welcome to our website for you World of Warcraft Gold
Message-Id: <1180149701.639717.219480@d30g2000prg.googlegroups.com>
welcome to www.wow-of.com,the cheapest price,the fastest delievery.We
strives to offer the
fastest and most reliable service on the web for all your gaming
needs. Feel free to
contact us 24 hours a day, 7 days a week by phone, live chat and
email.
Welcome to our website for you World of Warcraft Gold,Wow Gold,Cheap
World of Warcraft
Gold,cheap wow gold,buy cheap wow gold,real wow gold,sell wow
gold, ... Here wow gold of
1000 gold at $39.99-$49.9,World Of Warcraft Gold,buy wow gold,sell
world of warcraft gold
(wow gold),Cheap wow gold,cheapest wow gold store ... wow gold--buy
cheap wow gold,sell
wow gold.welcome to buy cheap wow gold--cheap, easy, wow gold
purchasing.World of
Warcraft,wow gold Super ... We can have your wow gold,buy wow gold,wow
gold game,world of
warcraft gold,wow Gold Cheap wow, Cheap wow gold,world of warcraft
gold deal,Cheap WOW
Gold ... Welcome to our website for you World of Warcraft Gold,Wow
Gold,Cheap World of
Warcraft Gold,wow gold,buy cheap wow gold,real wow gold,sell wow
gold, ... Here wow gold
of 1000 gold at $39.99-$49.9,World Of Warcraft Gold,buy wow gold,sell
world of warcraft
gold(wow gold),Cheap wow gold,cheapest wow gold store ... wow gold--
buy cheap wow
gold,sell wow gold.welcome to buy cheap wow gold--cheap, easy, wow
gold purchasing.World
of Warcraft,wow gold Super
------------------------------
Date: 25 May 2007 20:19:51 -0700
From: wowof001@gmail.com
Subject: welcome to www.wow-of.com
Message-Id: <1180149591.514283.208790@j4g2000prf.googlegroups.com>
welcome to www.wow-of.com,the cheapest price,the fastest delievery.We
strives to offer the
fastest and most reliable service on the web for all your gaming
needs. Feel free to
contact us 24 hours a day, 7 days a week by phone, live chat and
email.
Welcome to our website for you World of Warcraft Gold,Wow Gold,Cheap
World of Warcraft
Gold,cheap wow gold,buy cheap wow gold,real wow gold,sell wow
gold, ... Here wow gold of
1000 gold at $39.99-$49.9,World Of Warcraft Gold,buy wow gold,sell
world of warcraft gold
(wow gold),Cheap wow gold,cheapest wow gold store ... wow gold--buy
cheap wow gold,sell
wow gold.welcome to buy cheap wow gold--cheap, easy, wow gold
purchasing.World of
Warcraft,wow gold Super ... We can have your wow gold,buy wow gold,wow
gold game,world of
warcraft gold,wow Gold Cheap wow, Cheap wow gold,world of warcraft
gold deal,Cheap WOW
Gold ... Welcome to our website for you World of Warcraft Gold,Wow
Gold,Cheap World of
Warcraft Gold,wow gold,buy cheap wow gold,real wow gold,sell wow
gold, ... Here wow gold
of 1000 gold at $39.99-$49.9,World Of Warcraft Gold,buy wow gold,sell
world of warcraft
gold(wow gold),Cheap wow gold,cheapest wow gold store ... wow gold--
buy cheap wow
gold,sell wow gold.welcome to buy cheap wow gold--cheap, easy, wow
gold purchasing.World
of Warcraft,wow gold Super
------------------------------
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 461
**************************************
