[18772] in Perl-Users-Digest
Perl-Users Digest, Issue: 940 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat May 19 14:10:31 2001
Date: Sat, 19 May 2001 11:10:11 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <990295810-v10-i940@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sat, 19 May 2001 Volume: 10 Number: 940
Today's topics:
Re: Pronouncing ISA (Mark Jason Dominus)
Re: Re: Pronouncing ISA ("Richard Stands")
regexp: counting words ? <ap@andre-probst.de>
Re: regexp: counting words ? (Garry Williams)
Re: regexp: counting words ? (Eric Bohlman)
Re: regexp: counting words ? (Anno Siegel)
regexp: delete everything between <? ... ?> <ap@andre-probst.de>
Re: regexp: delete everything between <? ... ?> <carlos@plant.student.utwente.nl>
Re: regexp: delete everything between <? ... ?> <ap@andre-probst.de>
Re: regexp: delete everything between <? ... ?> <godzilla@stomp.stomp.tokyo>
Re: Searching for Postal Code (Mark Jason Dominus)
Re: Searching for Postal Code (Mark Jason Dominus)
Re: Seeking Perl Script for Notice Board <webmaster@domainenterprises.com>
Re: Simple Search problem (Eric Bohlman)
Re: Why can't I localize a lexical variable? (Mark Jason Dominus)
Re: Why can't I localize a lexical variable? (Mark Jason Dominus)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 19 May 2001 16:19:25 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Pronouncing ISA
Message-Id: <3b069d0c.2b5c$239@news.op.net>
In article <m1g0e1wfsr.fsf@halfdome.holdit.com>,
Randal L. Schwartz <merlyn@stonehenge.com> wrote:
>Well, I put that in there because I had someone come up to me in class
>one day and started asking about the "ice-uh" variable, kinda like
>"ISO standard". And he didn't grok the meaning until I said that it
>was "iz uh", as in "this is a that". Bing! His eyes lit up.
When I was teaching in Japan not too long ago, one of the students
asked why the variable was named @ISA, and when I explained the
reason, it turned out that several people in the class hadn't gotten it.
Then they didn't believe the explanation. I had to insist that I was
not making a joke, that the variable really was named @ISA for that
one reason only.
(A lot of Larry's clever Englishisms don't go over so well in Asia.
In the US, people are often dubious about 'next LINE if ...', and I
defend it by saying that its meaning is completely unmistakable
because it reads so clearly. This becomes a lot less convincing when
the sentence implicitly ends with "... reads so clearly, in this
foreign language you are not too familiar with.")
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 19 May 2001 15:52:51 +0000 (UTC)
From: rstands@hotmail.com ("Richard Stands")
Subject: Re: Re: Pronouncing ISA
Message-Id: <F267sl3xbYiMCIqtQvA00005ff0@hotmail.com>
>It's *spelled* ISA, but it's pronounced "throat-warbler mangrove".
>Hope that helps.
Imagine! All this time I was saying it correctly and all those naysayers who
said it was pronounced "Ahhhhmalmahay" were just plain wrong! ;o)
-Rich
print "Justin Otter Purr Lacquer";
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
--
Posted from [63.66.71.66] by way of f267.law11.hotmail.com [64.4.16.142]
via Mailgate.ORG Server - http://www.Mailgate.ORG
------------------------------
Date: Sat, 19 May 2001 17:12:36 +0200
From: "Andre Probst" <ap@andre-probst.de>
Subject: regexp: counting words ?
Message-Id: <9e62hh$if8$02$1@news.t-online.com>
For a fulltext search I have stripped HTML in a database field.
I read the the content and want to know how often the word "$searchword"
appears in the text.
Is it possible to count matches and if so, how ?
bye, Andre
------------------------------
Date: Sat, 19 May 2001 15:23:50 GMT
From: garry@ifr.zvolve.net (Garry Williams)
Subject: Re: regexp: counting words ?
Message-Id: <slrn9gd406.1gn.garry@zfw.zvolve.net>
On Sat, 19 May 2001 17:12:36 +0200, Andre Probst <ap@andre-probst.de> wrote:
> For a fulltext search I have stripped HTML in a database field.
>
> I read the the content and want to know how often the word "$searchword"
> appears in the text.
>
> Is it possible to count matches and if so, how ?
$i++ while /$searchword/g;
--
Garry Williams
------------------------------
Date: 19 May 2001 15:27:25 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: regexp: counting words ?
Message-Id: <9e63ct$9jq$2@bob.news.rcn.net>
Andre Probst <ap@andre-probst.de> wrote:
> For a fulltext search I have stripped HTML in a database field.
> I read the the content and want to know how often the word "$searchword"
> appears in the text.
> Is it possible to count matches and if so, how ?
Yes, it is possible. For how, see the discussion of the match operator in
perlop, particularly the /g modifier. Pay attention to the discussion of
how the behavior differs in scalar and list contexts, since this often
trips people up.
------------------------------
Date: 19 May 2001 16:04:51 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: regexp: counting words ?
Message-Id: <9e65j3$eam$1@mamenchi.zrz.TU-Berlin.DE>
According to Garry Williams <garry@zvolve.com>:
> On Sat, 19 May 2001 17:12:36 +0200, Andre Probst <ap@andre-probst.de> wrote:
> > For a fulltext search I have stripped HTML in a database field.
> >
> > I read the the content and want to know how often the word "$searchword"
> > appears in the text.
> >
> > Is it possible to count matches and if so, how ?
>
> $i++ while /$searchword/g;
It might gain from adding \b left and right, depending on the OPs
understanding of "word".
However, same effect can be achieved without an (explicit) loop:
$i = () = /$searchword/g;
This probably looks puzzling to anyone who doesn't already know the
idiom. It *is* an idiom in the sense that it is hard to understand
from the meaning of its parts. Let's look at the right part first:
() = /$searchword/g;
puts the global match in a list context, so it builds up the list
of matches. This is assigned to an empty list, which looks strange,
but is really just a limiting case of a list assignment like
( $x, $y, $z) = /$searchword/g;
This is okay, with well known results if there are more or fewer than
three matches. So we can construe the empty list as a list of no
lvalues, to which we can legally assign.
Now for the whole thing: The result of the list assignment is in turn
assigned to the scalar $i, and this is where a special rule applies:
When a list assignment happens in scalar context, the result is the
number of elements in the list that is being assigned. One might
expect a different result, but that is how it works. On our case,
the number of elements being assigned is the number of matches, so
that's what we find in $i.
Anno
------------------------------
Date: Sat, 19 May 2001 18:25:31 +0200
From: "Andre Probst" <ap@andre-probst.de>
Subject: regexp: delete everything between <? ... ?>
Message-Id: <9e66qc$c9e$00$1@news.t-online.com>
I want to delete PHP Code in a file, so that in result only normal text is
left:
My regexp doesn't work because it stops with the first ">", so I don't get
the desired result " textstart text between endtext".
What do I have to change, that the regexp takes the last "?>" as the end of
the string to delete and deletes the following PHP code as well ?
bye, Andre
------------
#!e:\perl\bin\perl
$line = <<"EOF";
textstart
<?
// php code start
if ($a > 0) { $allowed ="TRUE";}
if ($b > 0) { $allowed ="FALSE;}
// php code end
?>
text between
<?
// php code start
if ($a > 0) { $allowed ="TRUE";}
if ($b > 0) { $allowed ="FALSE;}
// php code end
?>
...
...
endtext
EOF
$line =~ s/<([^>]|\n)*>/ /sg ;
print $line;
------------
------------------------------
Date: Sat, 19 May 2001 18:37:29 +0200
From: "carlos" <carlos@plant.student.utwente.nl>
Subject: Re: regexp: delete everything between <? ... ?>
Message-Id: <9e678m$f3b$1@dinkel.civ.utwente.nl>
s{ <\? (?: [^>'"] * | ".*?" | '.*?' ) + \?> }{}gsx;
"Andre Probst" <ap@andre-probst.de> wrote in message
news:9e66qc$c9e$00$1@news.t-online.com...
> I want to delete PHP Code in a file, so that in result only normal text is
> left:
>
> My regexp doesn't work because it stops with the first ">", so I don't get
> the desired result " textstart text between endtext".
>
> What do I have to change, that the regexp takes the last "?>" as the end
of
> the string to delete and deletes the following PHP code as well ?
>
> bye, Andre
>
> ------------
>
> #!e:\perl\bin\perl
>
> $line = <<"EOF";
> textstart
> <?
> // php code start
>
> if ($a > 0) { $allowed ="TRUE";}
> if ($b > 0) { $allowed ="FALSE;}
> // php code end
> ?>
>
> text between
>
> <?
> // php code start
>
> if ($a > 0) { $allowed ="TRUE";}
> if ($b > 0) { $allowed ="FALSE;}
> // php code end
> ?>
> ...
> ...
>
> endtext
>
> EOF
>
> $line =~ s/<([^>]|\n)*>/ /sg ;
>
> print $line;
>
> ------------
>
>
>
>
------------------------------
Date: Sat, 19 May 2001 19:22:05 +0200
From: "Andre Probst" <ap@andre-probst.de>
Subject: Re: regexp: delete everything between <? ... ?>
Message-Id: <9e6a4h$h9s$00$1@news.t-online.com>
I changed the regexp to
$line =~ s{ <\? (?: [^>'"] * | ".*?" | '.*?' ) + \?> }{}gsx;
but it doesn't work.
I get the complete content of $line as result.
bye, Andre
"carlos" <carlos@plant.student.utwente.nl> schrieb im Newsbeitrag
news:9e678m$f3b$1@dinkel.civ.utwente.nl...
> s{ <\? (?: [^>'"] * | ".*?" | '.*?' ) + \?> }{}gsx;
>
> "Andre Probst" <ap@andre-probst.de> wrote in message
> news:9e66qc$c9e$00$1@news.t-online.com...
> > I want to delete PHP Code in a file, so that in result only normal text
is
> > left:
> >
> > My regexp doesn't work because it stops with the first ">", so I don't
get
> > the desired result " textstart text between endtext".
> >
> > What do I have to change, that the regexp takes the last "?>" as the end
> of
> > the string to delete and deletes the following PHP code as well ?
> >
> > bye, Andre
> >
> > ------------
> >
> > #!e:\perl\bin\perl
> >
> > $line = <<"EOF";
> > textstart
> > <?
> > // php code start
> >
> > if ($a > 0) { $allowed ="TRUE";}
> > if ($b > 0) { $allowed ="FALSE;}
> > // php code end
> > ?>
> >
> > text between
> >
> > <?
> > // php code start
> >
> > if ($a > 0) { $allowed ="TRUE";}
> > if ($b > 0) { $allowed ="FALSE;}
> > // php code end
> > ?>
> > ...
> > ...
> >
> > endtext
> >
> > EOF
> >
> > $line =~ s/<([^>]|\n)*>/ /sg ;
> >
> > print $line;
> >
> > ------------
> >
> >
> >
> >
>
>
------------------------------
Date: Sat, 19 May 2001 10:46:58 -0700
From: "Godzilla!" <godzilla@stomp.stomp.tokyo>
Subject: Re: regexp: delete everything between <? ... ?>
Message-Id: <3B06B192.E4C772E6@stomp.stomp.tokyo>
Andre Probst wrote:
> I want to delete PHP Code in a file, so that in result only
> normal text is left:
> My regexp doesn't work because it stops with the first ">", so
> I don't get the desired result " textstart text between endtext".
Your stated parameters for output are incorrect based upon
this code you provide. Please be careful about stating very
precise and exact expected results.
To produce your stated parameters requires extra coding
beyond what you display.
> What do I have to change, that the regexp takes the last "?>" as the end of
> the string to delete and deletes the following PHP code as well ?
A complicated regex is not needed for an easy task as is yours.
Godzilla!
--
TEST SCRIPT:
____________
#!perl
print "Content-type: text/plain\n\n";
$line = '
textstart
<?
// php code start
if ($a > 0) { $allowed ="TRUE";}
if ($b > 0) { $allowed ="FALSE;}
// php code end
?>
text between
<?
// php code start
if ($a > 0) { $allowed ="TRUE";}
if ($b > 0) { $allowed ="FALSE;}
// php code end
?>
...
...
endtext';
do
{
$start = index ($line, "<?");
$stop = index ($line, "?>", $start) + 2;
substr ($line, $start, $stop - $start, "");
}
until (index ($line, "<?") == -1);
print $line;
exit;
PRINTED RESULTS:
________________
textstart
text between
...
...
endtext
------------------------------
Date: Sat, 19 May 2001 15:58:54 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Searching for Postal Code
Message-Id: <3b06983e.2ae5$3bb@news.op.net>
In article <9e3pe6$una$1@newsg3.svr.pol.co.uk>,
Ciaran McCreesh <keesh@users.pleaseremovethisbit.sourceforge.net> wrote:
>In article <slrn9ganns.8ll.trammell@bayazid.hypersloth.net>, "John Joseph
>Trammell" <trammell@bayazid.hypersloth.invalid> wrote:
>
>> On Fri, 18 May 2001 19:02:34 GMT, Jean Cooper wrote: [snip]
>>> if ($ARGV[0] =~ s/[a-z][0-9][a-z]\s[0-9][a-z][0-9]/i {
>> ^^^ ^^^ ^^^
>> Shirley you mean [A-Z] ?
>
>No, he has the /i switch, and (if he's UK like I guess he is) postcodes
>can be in either case.
He says he's in Canada, and Canada Post requires uppercase.
In the UK, the pattern wouldn't be correct anyway.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 19 May 2001 16:05:18 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Searching for Postal Code
Message-Id: <3b0699be.2b07$246@news.op.net>
In article <3b0570b4.16455723@meganews.idirect.com>,
Jean Cooper <tlc3data@hincksdellcrest.org> wrote:
>I'm trying to search through some text and find the Postal Code
>(Canadian). The form of the PC is M4M 2B2. So I wrote a little Perl
>script, which isn't working too well. If anyone can let me know where
>I've gone wrong, I'd appreciate it.
>
>open (PC, "PCFile.txt") or die "Can't find file\n";
>
>if ($ARGV[0] =~ s/[a-z][0-9][a-z]\s[0-9][a-z][0-9]/i {
>
> print "Found something that resembles a Postal Code\n"
>
>}
>
>Jean
Incidentally, the correct pattern for Canadian postal codes is:
/^[ABCEGHJKLMNPRSTVXY]\d[ABCEGHJKLMNPRSTVWXYZ]\s\d[ABCEGHJKLMNPRSTVWXYZ]\d$/
DFIOQU are forbidden, and that W and Z never appear in the first position.
You can infer the province from the first character as follows:
my %l2p = (A => NF, B => NS, C => PE, E => NB,
G => QC, H => QC, J => QC, K => ON,
L => ON, M => ON, N => ON, P => ON,
R => MB, S => SK, T => AB, V => BC,
X => NT, Y => YT,
);
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 19 May 2001 12:54:21 -0500
From: John Martin Ping <webmaster@domainenterprises.com>
Subject: Re: Seeking Perl Script for Notice Board
Message-Id: <3B06B34D.E7C869BA@domainenterprises.com>
You can find alot of pre-writen perl scripts at http://www.cgi-resources.com
Good Luck, TheMaster
Mark Ryan wrote:
> Hi People,
>
> My company wishes to have a customer support notice board on the web site,
> and presently I have no real knowledge of Perl scripting, could someone
> point me to a source which is pre-written?
>
> --
>
> Regards,
>
> Mark Ryan - IT Administrator,
> Thermo Allen Coding Ltd., Unit 6, Little Mundells,
> Welwyn Garden City, Hertfordshire. AL7 1LD.
> Tel +44 (0) 1707 379500 Fax +44 (0) 1707 320225
> Email: it.admin@thermoallen-coding.co.uk
> Web Site: http://www.thermoallen-coding.co.uk
------------------------------
Date: 19 May 2001 15:10:35 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: Simple Search problem
Message-Id: <9e62db$9jq$1@bob.news.rcn.net>
James R <reevehotNOSPAM@hotmail.com> wrote:
> I'm applying Matt Wright's Simple Search perl script to an HTML-based CD Rom
> which I'm constructing (where a virtual web server is running via software
> called "Microweb").
[snip]
> Here is some of the suspect code...
> $basedir = '/'; # I've brought everything back to the root for testing
> simplicity
> @files = ('*.htm');
> ....
> foreach $file (@files) {
> $ls = "ls $file"; # the original script had single inverted commas
> here (') but it was causing an error
> @ls = split(/\s+/,$ls);
Later on you ask for help. Here's some help: if you don't understand what
a particular piece of code means, randomly changing it to something else
that you equally don't understand isn't going to get you anywhere.
$ls = `ls $file` says to run an external program called ls (the directory
listing utility on Unix systems) and stuff its output (basically a
one-per-line listing of files) into the variable $ls. It will result in
an error if the system you're running on doesn't have the ls program (as
most Windows systems don't).
$ls = "ls $file" says to take whatever string is in $file, stick the three
characters 'l' 's' and space in front of it, and assign the result to $ls.
It won't give you an error message, but it also won't give you any
filenames.
> Any help would be greatly appreciated as I'm not much of a Perl guru...
Nobody expects you to be a Perl guru. However, if you want to modify Perl
code and have the result work, you *have* to either teach yourself some
Perl first or hire someone who does know Perl to do the modifications.
There's nothing to be ashamed of in not knowing enough Perl to understand
the difference between backticks and double-quoted strings, but until you
can get your knowledge past that level, trying to modify someone else's
Perl code is going to be like trying to edit a piece of text written in a
foreign language that you don't understand; it's simply not going to work.
The upshot of all this is that while you almost certainly didn't intend it
to be so, your post comes across to a lot of people as "I've got this job
to do; can you do it for me, for free?" That rankles a lot of people.
And there's an even worse problem: free advice is often worth less than
you pay for it. Someone whose understanding of Perl is very limited is
going to have a hard time telling whether a "fix" proposed by some random
Usenaut is really correct; remember that it's quite easy to write code
that "works" under very limited circumstances but that crashes, causes
security problems, gives misleading results, etc. whenever Murphy's law
strikes. In fact, much of Matt Wright's code falls into this category
(for a long time, for example, his "formmail" script would allow anyone
with a basic understanding of HTML to send email to anyone (e.g. a death
threat to a public official) and have it originate from your server).
In short, if you've got a problem with a piece of somone else's code that
you don't really understand, posting it to Usenet and asking people to
modify it for you is very unlikely to solve your problem, and quite likely
to create new problems.
------------------------------
Date: Sat, 19 May 2001 15:54:08 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Why can't I localize a lexical variable?
Message-Id: <3b069720.2ad1$235@news.op.net>
In article <0mbbgtg0o7j174g31qka22h1jvi5garudf@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>So why on earth does this NOT work?
Only because Larry considers it confusing. Chip Salzenberg once put
in a patch to allow it. Unfortunately, I can't find the original
discussion, but it was certainly prior to March of 1999, because the
discussion came up again at that time.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
Date: Sat, 19 May 2001 15:56:39 GMT
From: mjd@plover.com (Mark Jason Dominus)
Subject: Re: Why can't I localize a lexical variable?
Message-Id: <3b0697aa.2ada$a2@news.op.net>
In article <7pjN6.48550$V5.8973014@news1.rdc1.mi.home.com>,
Clinton A. Pierce <clintp@geeksalad.org> wrote:
>Because it hurts my head. Example:
>
> # Does not compile:
> # Can't localize lexical...
> my $foo=66;
> sub cartman {
> print "Foo is $foo\n";
> }
>
> sub kenny {
> local $foo=67;
> cartman();
> }
> cartman();
>
>I should be able to determine the scope of a lexical by visual
>examination -- I don't need to know the program's flow to know what's
>in scope where. So within cartman() I'm going to get the lexical $foo
>declared with my() or the localized $foo from kenny(), depending on
>whether or not cartman() was called from the main or kenny().
I think that makes no sense, because you can issue exactly the same
complaint about this:
> my $foo=66;
> sub cartman {
> print "Foo is $foo\n";
> }
>
> sub kenny {
> $foo=67; # changed
> cartman();
> }
> cartman();
This is precisely the same code, but with the 'local' removed.
So it would seem that whever invariant property you've been depending
on does not actually exist.
--
@P=split//,".URRUU\c8R";@d=split//,"\nrekcah xinU / lreP rehtona tsuJ";sub p{
@p{"r$p","u$p"}=(P,P);pipe"r$p","u$p";++$p;($q*=2)+=$f=!fork;map{$P=$P[$f^ord
($p{$_})&6];$p{$_}=/ ^$P/ix?$P:close$_}keys%p}p;p;p;p;p;map{$p{$_}=~/^[P.]/&&
close$_}%p;wait until$?;map{/^r/&&<$_>}%p;$_=$d[$q];sleep rand(2)if/\S/;print
------------------------------
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.
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 940
**************************************
