[28579] in Perl-Users-Digest
Perl-Users Digest, Issue: 9943 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 8 18:06:00 2006
Date: Wed, 8 Nov 2006 15:05:09 -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, 8 Nov 2006 Volume: 10 Number: 9943
Today's topics:
Re: "Did not find leading dereferencer" - new findings <benmorrow@tiscali.co.uk>
are appservers BS? is python a bunch of snooty wankers? <bootiack@yahoo.com>
Re: are appservers BS? is python a bunch of snooty wank <kkeller-usenet@wombat.san-francisco.ca.us>
Re: are appservers BS? is python a bunch of snooty wank <john@castleamber.com>
Re: are appservers BS? is python a bunch of snooty wank <wahab@chemie.uni-halle.de>
Re: force IV to NV <mm@mohr.de>
Re: force IV to NV <nospam-abuse@ilyaz.org>
Re: force IV to NV xhoster@gmail.com
Re: Help in regular expression <jgibson@mail.arc.nasa.gov>
how to load 'formats' from a file <fraser.tim@gmail.com>
PERL can't open file for logging (world writable direct <premgrps@gmail.com>
Re: Regular expressions <benmorrow@tiscali.co.uk>
sorting array in multiple columns kenlo888@gmail.com
Re: sorting array in multiple columns <john@castleamber.com>
Re: sorting array in multiple columns usenet@DavidFilmer.com
Re: Using Perl to join lines in a file <ningli2000@hotmail.com>
Re: Using Perl to join lines in a file <john@castleamber.com>
Re: What is more detailled than $^O ? anno4000@radom.zrz.tu-berlin.de
Re: What is more detailled than $^O ? <ynl@nsparks.net>
Re: What is more detailled than $^O ? <ynl@nsparks.net>
Re: What is more detailled than $^O ? <ynl@nsparks.net>
Re: What is more detailled than $^O ? <ynl@nsparks.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 8 Nov 2006 21:01:55 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: "Did not find leading dereferencer" - new findings to an old puzzle
Message-Id: <37t924-82e.ln1@osiris.mauzo.dyndns.org>
Quoth "Ronny" <ro.naldfi.scher@gmail.com>:
>
> Ben Morrow schrieb:
>
> > Quoth "Ronny" <ro.naldfi.scher@gmail.com>:
> > > Ferry Bolhar schrieb:
> > > > "Did not find leading dereferencer":
> > > > "extract_variable" was expecting one of '$', '@', or '%' at the
> > > > start of a variable, but didn't find any of them.
> > > This doesn't make any sense. First, I don't include in my programs any
> > > Text:: stuff. Second, this would not explain why the error message
> > > changes to the real one, if, say, I remove one comment line from the
> > > source code.
> >
> > Are you by any chance using any modules that set up source filters?
> > Switch.pm, perhaps? These often use Text::Balanced to do their work, and
> > it isn't quite as good at parsing Perl as it might be.
>
> Indeed I do have a
>
> use Switch 'Perl6';
>
> in this module. Good point.
Hmmm. You presumably don't want to rewrite your code not to use Switch;
that would be my recommendation. Switch has a number of known bugs, and
is deprecated in favour of the real given/when statements in the
upcoming 5.10; for instance, with the current perl development version:
~/src/perl% cat switch
use feature qw/switch say/;
my $foo = shift;
given ($foo) {
when (/a+/) { say "A"; }
when (2) { say "TWO"; }
default { say "something else"; }
}
~/src/perl% ./bleadperl/perl -I./bleadperl/lib switch aaa
A
~/src/perl% ./bleadperl/perl -I./bleadperl/lib switch 2
TWO
~/src/perl% ./bleadperl/perl -I./bleadperl/lib switch foo
something else
But I would hardly recommend using bleadperl, or even one of the 5.9.x
releases, for production work, either.
> > As usual, if you reduce your script to the *minimal* example which
> > reproduces the problem (yes, in this case this might be a lot of work),
> > and post it here, I'm sure someone can tell you what's going on.
>
> The problem with errors which occur only in "sufficiently big" source
> files is that the minimal example is still fairly big. In my case, I
> have reduced it to the extent that deleting one single character (for
> example, the "#" in front of an empty comment line) already makes this
> error go away. Still, the source file is around 350 lines big.
If the error really only occurs with large source files, then the
obvious workaround is to split your module into two.
Ben
--
Heracles: Vulture! Here's a titbit for you / A few dried molecules of the gall
From the liver of a friend of yours. / Excuse the arrow but I have no spoon.
(Ted Hughes, [ Heracles shoots Vulture with arrow. Vulture bursts into ]
'Alcestis') [ flame, and falls out of sight. ] benmorrow@tiscali.co.uk
------------------------------
Date: 8 Nov 2006 11:58:59 -0800
From: "gavino" <bootiack@yahoo.com>
Subject: are appservers BS? is python a bunch of snooty wankers?
Message-Id: <1163015939.686202.214130@k70g2000cwa.googlegroups.com>
http://www.kx.com/listbox/kdb/msg00797.html
http://philip.greenspun.com/wtr/application-servers
is an appserver a mistake?
should everything happen in the db in nice tables?
why do pythons talk smak?
why catalyst active if appservers are mistake?
do people just not want o use a relational db right?
------------------------------
Date: Wed, 8 Nov 2006 12:21:06 -0800
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: are appservers BS? is python a bunch of snooty wankers?
Message-Id: <jqq924xq44.ln2@goaway.wombat.san-francisco.ca.us>
On 2006-11-08, gavino <bootiack@yahoo.com> wrote:
> http://www.kx.com/listbox/kdb/msg00797.html
>
> http://philip.greenspun.com/wtr/application-servers
>
> is an appserver a mistake?
> should everything happen in the db in nice tables?
> why do pythons talk smak?
> why catalyst active if appservers are mistake?
> do people just not want o use a relational db right?
What is your Perl question?
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: 8 Nov 2006 21:01:26 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: are appservers BS? is python a bunch of snooty wankers?
Message-Id: <Xns987598D462FF1castleamber@130.133.1.4>
Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us> wrote:
> What is your Perl question?
None, ignore this Xah Lee wannabee.
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: Wed, 08 Nov 2006 22:04:29 +0100
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: are appservers BS? is python a bunch of snooty wankers?
Message-Id: <eith2l$nhv$1@mlucom4.urz.uni-halle.de>
Thus spoke gavino (on 2006-11-08 20:58):
> http://www.kx.com/listbox/kdb/msg00797.html
>
> http://philip.greenspun.com/wtr/application-servers
It says:
"As of this writing (July 1998), ..."
> is an appserver a mistake?
No.
> should everything happen in the db in nice tables?
SQL On Rails?
==> http://www2.sqlonrails.org/
> why do pythons talk smak?
Python is just easy and cool. Go for it.
> why catalyst active if appservers are mistake?
Why not.
> do people just not want o use a relational db right?
"People" usually don't know nothing about "relational db".
Regards
Mirco
------------------------------
Date: Wed, 08 Nov 2006 20:51:17 +0100
From: Martin Mohr <mm@mohr.de>
Subject: Re: force IV to NV
Message-Id: <eitc6q$tcs$01$1@news.t-online.com>
Ilya Zakharevich wrote:
> b) If one really NEEDS a particular field of a scalar to be present,
> one uses some seriously broken Perl module.
Thanks everybody for the answers. I am afraid you are right. The XS of
SDL::OpenGL does, for example in glMultMatrix,
mat[i] = (i < items && SvNOK(ST(i)) ? SvNV(ST(i)) : 0.0 );
So it checks SvNOK before using SvNV. This causes problems when a
parameter hasn't been in touch with floating point stuff before usage.
What makes this even worse, is that scalars can also lose their floating
point property again.
So as a workaround one can bring all parameters in contact with floating
point operations (as you have shown) before passing them to
glMultMatrix. Or one uses another module. Like yours for example.
Ciao
Martin
------------------------------
Date: Wed, 8 Nov 2006 20:21:39 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: force IV to NV
Message-Id: <eite8j$pif$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Martin Mohr
<mm@mohr.de>], who wrote in article <eitc6q$tcs$01$1@news.t-online.com>:
> Ilya Zakharevich wrote:
> > b) If one really NEEDS a particular field of a scalar to be present,
> > one uses some seriously broken Perl module.
>
> Thanks everybody for the answers. I am afraid you are right. The XS of
> SDL::OpenGL does, for example in glMultMatrix,
>
> mat[i] = (i < items && SvNOK(ST(i)) ? SvNV(ST(i)) : 0.0 );
Your analysis looks correct: this is a seriously wrong piece of code.
The only purpose I could think for writing something as horrible as
this is to avoid "undefined value used in..." warning; but then one
must have used SvOK(), not SvNOK.
> So it checks SvNOK before using SvNV.
For those less familiar with what Perl macros do: SvNV() is designed
to cover all the bases (but will emit the warning on undef if warnings
are enabled). Any homegrown modification of SvNV() (like the
conditional above) will break something...
> This causes problems when a
> parameter hasn't been in touch with floating point stuff before usage.
> What makes this even worse, is that scalars can also lose their floating
> point property again.
Do not think I know what you are talking about in the latter sentence.
> So as a workaround one can bring all parameters in contact with floating
> point operations (as you have shown) before passing them to
> glMultMatrix. Or one uses another module. Like yours for example.
Sorry, I have little time to work on it lately. Moreover, itis not
"my module". I'm just the latest of maintainers - I wrote very little
of it.
Yours,
Ilya
P.S. One solution is to run over this with a smart search-and-replace
pattern in an editor...
------------------------------
Date: 08 Nov 2006 21:12:45 GMT
From: xhoster@gmail.com
Subject: Re: force IV to NV
Message-Id: <20061108161416.229$nW@newsreader.com>
Martin Mohr <mm@mohr.de> wrote:
> Ilya Zakharevich wrote:
> > b) If one really NEEDS a particular field of a scalar to be present,
> > one uses some seriously broken Perl module.
>
> Thanks everybody for the answers. I am afraid you are right. The XS of
> SDL::OpenGL does, for example in glMultMatrix,
>
> mat[i] = (i < items && SvNOK(ST(i)) ? SvNV(ST(i)) : 0.0 );
>
> So it checks SvNOK before using SvNV. This causes problems when a
> parameter hasn't been in touch with floating point stuff before usage.
> What makes this even worse, is that scalars can also lose their floating
> point property again.
Perlguts seeems to be wrong. It says:
What's Really Stored in an SV?
Recall that the usual method of determining the type of scalar you
have is to use "Sv*OK" macros. Because a scalar can be both a
number and a string, usually these macros will always return TRUE
and calling the "Sv*V" macros will do the appropriate conversion of
string to inte- ger/double or integer/double to string.
I figured that the "usually..always" means SvNOK will always return true
for non-tied, non-magical variables. But obviously it doesn't mean that.
I throught SvNOK means "Is it OK to call SvNV and trust what it gives?" but
apparently that is not what it means.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Wed, 08 Nov 2006 11:28:01 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Help in regular expression
Message-Id: <081120061128018174%jgibson@mail.arc.nasa.gov>
In article <1162987527.009619.27320@h54g2000cwb.googlegroups.com>, Kimi
<shafa.fahad@gmail.com> wrote:
> Hi need a help in adding code to match,
>
> "aiowait timed out" from the string which has "Warning: aiowait timed
> out has occured 10 times"
if( $string =~ /Warning: aiowait timed out has occured (\d+) times/ ) {
# do stuff; number of timeouts in $1
}
Be sure and check the actual spelling of that error message (occurred?)
------------------------------
Date: 8 Nov 2006 12:10:53 -0800
From: "simulant" <fraser.tim@gmail.com>
Subject: how to load 'formats' from a file
Message-Id: <1163016653.855494.166730@i42g2000cwa.googlegroups.com>
I am using the `format` command in a reporting module I am writing, and
I want to be able to store multiple format pictures in files and then
load the needed format from the file. This would be an example session
using my modules:
$rpt = new Report();
$rpt->title("My Title");
$rpt->formattop("header1.fmt"); # there would be multiple headers to
choose from
$rpt->format("format1.fmt"); # format1.fmt would be stored in
/usr/lib/perl/formats, for instance
$rpt->run(); # generate the content of the report
$rpt->write("report.out"); # this writes the output using the format
specified in 'format1.fmt'
header1.fmt:
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$title
Date: @>>>>>>>>>>>>>>>>>>>
$now
.
format1.fmt:
@*
$content
.
The Report module would look like this:
package Report;
sub new {
# code for constructor ...
}
sub title {
# code to set title
}
sub format {
# code to set format variable
}
sub run {
# this sets the content of the report
}
# arg to write is filename (report.out)
sub write {
<b># this is where I need help!!</b>
my $self = shift;
open ($self->format, ">", shift);
$title = $self->title;
$now = $self->getDateTime;
$content = $self->run;
write $self->format;
close $self->format;
}
Nowhere in perlform or anywhere else I searched was there a mention of
how to load formats from files. The code above in the write sub does
NOT work, but I would like to do something similar.
I have the formats defined at the top of the module for now, and this
works, but this does not support dynamically loading different formats:
format FORMAT1_TOP =
Title: @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
$title
Date: @>>>>>>>>>>>>>>>>>>>
$now
.
format FORMAT1 =
@*
$content
.
------------------------------
Date: 8 Nov 2006 14:50:04 -0800
From: "PGPS" <premgrps@gmail.com>
Subject: PERL can't open file for logging (world writable directory Windows XP Home/ Active Perl / Apache)
Message-Id: <1163026204.175252.217270@e3g2000cwe.googlegroups.com>
Hi,
1. I have a perl program which logs user inputs. It was working fine on
Linux system.
2. I moved my entire work onto my home PC with XP-Home/Active
Perl/Apache and running the program as a cgi-script. It was working
fine and was able to perform logs as usual, but I was unable to view
it.
3. Apache woudn't display .html files if they are in cgi-bin directory.
I had to move it out to htdocs and change the path of the file in PERL
program to point to the file in htdocs.
4. With this setup, I get an error "Cannot open file" in the error logs
of Apache. I can view the file on the internet, but the program is not
able to open to save the logs.
Can someone tell me what's going on. And how to fix it. Either at
Apache end (to be able to view .html files in cgi-bin directory) OR on
the PERL end, where I want to be able to make the file world writable
and perform logs.
Thanks.
------------------------------
Date: Wed, 8 Nov 2006 19:48:13 +0000
From: Ben Morrow <benmorrow@tiscali.co.uk>
Subject: Re: Regular expressions
Message-Id: <tso924-rl8.ln1@osiris.mauzo.dyndns.org>
Quoth "Paul Lalli" <mritty@gmail.com>:
>
> Jørn Dahl-Stamnes wrote:
> > Paul Lalli wrote:
> > > Page 184 in the Regexp section on Caputring and Clustering, and page
> > > 668 in the list of all special variables. In the 3rd edition, at
> > > least. . .
> >
> > I only got the 2nd edition... :-(
> > And it does not have any "Update book" function... guess I must buy a new
> > version.
>
> You should *really* *really* consider doing so. Perl has changed quite
> a bit since version 5.0 was released, which is what the 2nd ed of the
> Camel covers.
OTOH, Perl has also changed quite a bit since 5.6.0, which is what the
Blue Camel covers. While I learnt masses about Perl from reading the
Camel through, I don't find I refer to it at all now: the perldocs are
more useful, and always up to date.
My suggestion would be to get a copy of the 3rd ed. from a library and
read it through, to get some idea of what has changed. Note that in
particular all of the 'upcoming' Unicode stuff and all of the IO layers
stuff has changed quite significantly since 5.8.
Ben
--
Every twenty-four hours about 34k children die from the effects of poverty.
Meanwhile, the latest estimate is that 2800 people died on 9/11, so it's like
that image, that ghastly, grey-billowing, double-barrelled fall, repeated
twelve times every day. Full of children. [Iain Banks] benmorrow@tiscali.co.uk
------------------------------
Date: 8 Nov 2006 13:51:36 -0800
From: kenlo888@gmail.com
Subject: sorting array in multiple columns
Message-Id: <1163022696.764190.322870@e3g2000cwe.googlegroups.com>
Hi,
I have data in an array like:
(1,'black'), (2,'black'), (1,'orange'), (2,'brown'), (1,'green')
I want to sort the first column, then the second column. Very similar
to a sql order by statement "order by row1, row2".
The desired output would be:
(1,'black'), (1,'green'), (1,'orange'), (2,'black),(2,'brown')
I understand how to use the sort function in perl...
@sorted_Array=sort{$a->[$sort_row]cmp$b->[$sort_row]}@array;
but this can only sort one set of rows. If you have any examples of
multiple row sorts, that would be great.
Thanks.
-Ken
------------------------------
Date: 8 Nov 2006 22:07:07 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: sorting array in multiple columns
Message-Id: <Xns9875A3F6E572Dcastleamber@130.133.1.4>
kenlo888@gmail.com wrote:
> Hi,
>
> I have data in an array like:
>
> (1,'black'), (2,'black'), (1,'orange'), (2,'brown'), (1,'green')
>
> I want to sort the first column, then the second column. Very similar
> to a sql order by statement "order by row1, row2".
>
> The desired output would be:
>
> (1,'black'), (1,'green'), (1,'orange'), (2,'black),(2,'brown')
That's not Perl
> I understand how to use the sort function in perl...
>
> @sorted_Array=sort{$a->[$sort_row]cmp$b->[$sort_row]}@array;
>
> but this can only sort one set of rows. If you have any examples of
> multiple row sorts, that would be great.
perldoc -f sort
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 8 Nov 2006 14:28:11 -0800
From: usenet@DavidFilmer.com
Subject: Re: sorting array in multiple columns
Message-Id: <1163024891.394483.32280@m73g2000cwd.googlegroups.com>
John Bokma wrote:
> perldoc -f sort
The OP may also benefit from
perldoc -q sort
How do I sort an array by (anything)?
--
The best way to get a good answer is to ask a good question.
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 8 Nov 2006 13:59:06 -0800
From: "nickli" <ningli2000@hotmail.com>
Subject: Re: Using Perl to join lines in a file
Message-Id: <1163023146.846188.25390@e3g2000cwe.googlegroups.com>
Thanks a lot!
On Nov 7, 10:10 am, "John W. Krahn" <some...@example.com> wrote:
> nickli wrote:
>
> > I have a file with 100 lines each with one record on each line. The
> > file is as follows:
>
> > 86274886
> > 81459795
> > 78113464[ snip ]
>
> > 17675729
> > 17803920
> > 17773924
>
> > I would like to put 5 records on a line, separated by commas, with
> > a total of 20 lines:
>
> > ,86274886,81459795,78113464,87882848,78286396
> > ,80947497,80404769,80377684,80259589,68195927
> > ......................................
> > ......................................perl -lpe'$\=$.%5?",":$/' yourfile
>
> John
> --
> Perl isn't a toolbox, but a small machine shop where you can special-order
> certain sorts of tools at low cost and in short order. -- Larry Wall
------------------------------
Date: 8 Nov 2006 22:07:41 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: Using Perl to join lines in a file
Message-Id: <Xns9875A40FF2B33castleamber@130.133.1.4>
"nickli" <ningli2000@hotmail.com> wrote:
not for top posting...
> Thanks a lot!
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 8 Nov 2006 19:20:02 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: What is more detailled than $^O ?
Message-Id: <4reov2Fr8bpbU1@mid.dfncis.de>
Yohan N Leder <ynl@nsparks.net> wrote in comp.lang.perl.misc:
> In article <4rea0cFqu7kiU1@mid.dfncis.de>, anno4000@radom.zrz.tu-
> berlin.de says...
> > "non sequitur"
> >
>
> It's your second post in a thread which is not a Perl one : you're very
> strong in "non sequitur" too
Oh man. "Non sequitur" means your logic was flawed. It has nothing
to do with being off topic.
As a regular who has posted thousands of postings *with* Perl content
I can afford the occasional off topic posting.
Anno
------------------------------
Date: Wed, 8 Nov 2006 23:20:36 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: What is more detailled than $^O ?
Message-Id: <MPG.1fbc76a092e92faa989903@news.tiscali.fr>
In article <ugp4h.4097$l25.3251@newsread4.news.pas.earthlink.net>,
segraves_f13@mindspring.com says...
>
> Is this the item in the thread that you later claimed is your solution to
> your non-Perl problem?
>
Not my solution, a solution. However, I started from $^O, remember.
------------------------------
Date: Wed, 8 Nov 2006 23:23:17 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: What is more detailled than $^O ?
Message-Id: <MPG.1fbc7742fcbd762989904@news.tiscali.fr>
In article <4reov2Fr8bpbU1@mid.dfncis.de>, anno4000@radom.zrz.tu-
berlin.de says...
> As a regular who has posted thousands of postings *with* Perl content
> I can afford the occasional off topic posting.
>
>
So, do it
------------------------------
Date: Wed, 8 Nov 2006 23:23:57 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: What is more detailled than $^O ?
Message-Id: <MPG.1fbc77671fd6ffb8989905@news.tiscali.fr>
In article <mgp4h.4095$l25.2777@newsread4.news.pas.earthlink.net>,
segraves_f13@mindspring.com says...
> I've read the thread; and I didn't see you had solved a Perl problem
> anywhere in the thread.
>
It's your right to have an opinion
------------------------------
Date: Wed, 8 Nov 2006 23:25:18 +0100
From: Yohan N Leder <ynl@nsparks.net>
Subject: Re: What is more detailled than $^O ?
Message-Id: <MPG.1fbc77be7af0fa1a989906@news.tiscali.fr>
In article <xgp4h.4098$l25.3969@newsread4.news.pas.earthlink.net>,
segraves_f13@mindspring.com says...
> so I'll switch to "End of Thread" mode here.
>
>
Good decision, I agree with you for my own case too
------------------------------
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 V10 Issue 9943
***************************************
