[17071] in Perl-Users-Digest
Perl-Users Digest, Issue: 4483 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Oct 1 14:12:10 2000
Date: Sun, 1 Oct 2000 11:10:19 -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: <970423818-v9-i4483@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Sun, 1 Oct 2000 Volume: 9 Number: 4483
Today's topics:
Is this is Regexp bug? <glynFOOdwr@FSCKdeleteEmeD.co.uk>
Re: Is this is Regexp bug? <bwalton@rochester.rr.com>
Multiple TIEs on a hash? <mark@gmi2.com>
Need CGI Script for Password Change <jwestover@sprintmail.com>
Re: Need CGI Script for Password Change (Chris Fedde)
OT: On the non-care and feeding of trolls, was Re: How <flavell@mail.cern.ch>
Re: Parsing improvements <mauldin@netstorm.net>
Re: Parsing improvements <mauldin@netstorm.net>
Re: Parsing improvements (Keith Calvert Ivey)
Re: Parsing improvements (Keith Calvert Ivey)
Perl CGI <yf32@cornell.edu>
Re: Perl CGI <yf32@cornell.edu>
Re: Perl CGI <mbudash@sonic.net>
sendmail & HTML <brian@ukdj.freeserve.co.uk>
Re: sendmail & HTML <chris@fedde.littleton.co.us>
Re: Substituting characters <tina@streetmail.com>
Re: while ($s = <WHATEVER>) <jeffp@crusoe.net>
Re: while ($s = <WHATEVER>) <iltzu@sci.invalid>
Re: why it's called a "hash" (and a whole lot more) <jeffp@crusoe.net>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sun, 1 Oct 2000 15:43:40 +0100
From: "Glyndwr" <glynFOOdwr@FSCKdeleteEmeD.co.uk>
Subject: Is this is Regexp bug?
Message-Id: <w2IB5.4670$L12.116161@news2-win.server.ntlworld.com>
I was recently approached by a friend in my (poorly filled) role as a Perl
guru and asked to help with a script: he wanted to check if a string
supplied from a CGI input was a valid email address (it's a formmail
script). The line I came up with was:
if ($contactemail =~ /^[a-zA-Z0-9.\-]+@[a-z-A-Z0-9.\-]+/) {
which is a little crude, but it was late and I couldn't concentrate very
well ;o)
However, he finds this chokes on email addresses where the domain name
contains a hyphen. I frowned, and bashed out a quick test script:
##########
foreach (<DATA>) {
chomp $_;
if ($_ =~ /^[a-zA-Z0-9.\-]+@[a-z-A-Z0-9.\-]+/)
print "$_ is valid\n";
} else {
print "$_ is invalid\n";
}
}
__DATA__
x@y.com
foo.bar@doo-bar.uk
foo@bar.com
###########
Which runs fine - they are all validated as valid email addresses (on
ActiveState Perl 613). But his script still chokes, reportiong this error in
the HTML output:
###########
Error code 500
Program error:
/^[A-Za-z0-9][A-Za-z0-9.@%:foo.bar@foo-bar.uk_+=~-]+$/:
invalid [] range in regexp at /usr/local/bin/cgiperl line 164.
###########
Somehow, the $contactemail variable has ended up inside the regexp, and I
really can't see how. He's running some odd version of Perl called SafePerl,
which is documented here <http://www.oucs.ox.ac.uk/web/cgi_programs.html>;
don't know if that's relevant.
I'm wondering if it's a bug in Perl, but I suspect it's more likely I'm
being thick. Can anyone help?
--
-=G=-
print join " ",reverse split /\s+/,'hacker. Perl another Just',"\n";
Web: http://www.fscked.co.uk ICQ: 66545073
------------------------------
Date: Sun, 01 Oct 2000 17:27:04 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: Is this is Regexp bug?
Message-Id: <39D773F3.9E2E7F2A@rochester.rr.com>
Glyndwr wrote:
>
> I was recently approached by a friend in my (poorly filled) role as a Perl
> guru and asked to help with a script: he wanted to check if a string
> supplied from a CGI input was a valid email address (it's a formmail
> script). The line I came up with was:
> if ($contactemail =~ /^[a-zA-Z0-9.\-]+@[a-z-A-Z0-9.\-]+/) {
> which is a little crude, but it was late and I couldn't concentrate very
> well ;o)
>
> However, he finds this chokes on email addresses where the domain name
> contains a hyphen. I frowned, and bashed out a quick test script:
> ##########
> foreach (<DATA>) {
> chomp $_;
> if ($_ =~ /^[a-zA-Z0-9.\-]+@[a-z-A-Z0-9.\-]+/)
>
> print "$_ is valid\n";
> } else {
> print "$_ is invalid\n";
> }
> }
> __DATA__
> x@y.com
> foo.bar@doo-bar.uk
> foo@bar.com
> ###########
>
> Which runs fine - they are all validated as valid email addresses (on
Really??? It won't even compile. You need a { after the ) in the if
statement.
> ActiveState Perl 613). But his script still chokes, reportiong this error in
> the HTML output:
>
> ###########
> Error code 500
> Program error:
> /^[A-Za-z0-9][A-Za-z0-9.@%:foo.bar@foo-bar.uk_+=~-]+$/:
> invalid [] range in regexp at /usr/local/bin/cgiperl line 164.
> ###########
>
> Somehow, the $contactemail variable has ended up inside the regexp, and I
> really can't see how. He's running some odd version of Perl called SafePerl,
> which is documented here <http://www.oucs.ox.ac.uk/web/cgi_programs.html>;
> don't know if that's relevant.
>
> I'm wondering if it's a bug in Perl, but I suspect it's more likely I'm
> being thick. Can anyone help?
...
I don't know. Sounds like "SafePerl" has some problems. Are you
certain his program is the same as your code above?
--
Bob Walton
------------------------------
Date: Sun, 01 Oct 2000 15:26:35 GMT
From: "Mark A. Wadden" <mark@gmi2.com>
Subject: Multiple TIEs on a hash?
Message-Id: <LIIB5.66115$dZ2.23280076@news3.rdc1.on.home.com>
Hey All... sorry if this is a lame question....
I was wondering if it is possible to tie, let's say a hash, to more than one
object. For example... this works fine:
use Fcntl;
use SDBM_File;
tie (%h, 'SDBM_File', 'foo.dbm', O_RDWR|O_CREAT, 0640) || die $!;
As you know, the above code ties %h, and writes it to disk via SDBM_File.
But I would also like to add more functionality. Is it possible to tie %h
to something else as well?
use Fcntl;
use SDBM_File;
use Some_Other_Mod;
tie (%h, 'SDBM_File', 'foo.dbm', O_RDWR|O_CREAT, 0640) || die $!;
tie (%h, 'Some_Other_Mod') || die $!;
When I tried this it seemed to ignore the first tie statement and just use
the last one (makes sense really).
The other idea I had was to sub-class SDBM_File and append my extra
functionality to each method and then use this new module to tie %h. Does
anyone know if this will work or if there's a better way?
Thanks in advance!
-mark
------------------------------
Date: Sun, 01 Oct 2000 16:45:55 GMT
From: "KDW" <jwestover@sprintmail.com>
Subject: Need CGI Script for Password Change
Message-Id: <7TJB5.1315$YY2.94635@newsread2.prod.itd.earthlink.net>
I need to allow users to change their computer account password using a CGI
script. The fact that the command requires interactive input is my problem.
Could someone point me to a script that can accomplish this?
Thanks for the help!
Kat---
------------------------------
Date: Sun, 01 Oct 2000 17:22:08 GMT
From: cfedde@fedde.littleton.co.us (Chris Fedde)
Subject: Re: Need CGI Script for Password Change
Message-Id: <4pKB5.62$D4.190551040@news.frii.net>
In article <7TJB5.1315$YY2.94635@newsread2.prod.itd.earthlink.net>,
KDW <jwestover@sprintmail.com> wrote:
>I need to allow users to change their computer account password using a CGI
>script. The fact that the command requires interactive input is my problem.
>Could someone point me to a script that can accomplish this?
>
If this is run on a unix like system there are several approaches
to solving the problem. You could drive the passwd program through
a pair of pipes. You could directly manipulate the password database
using the same techniques that your OS uses. You could use a formmail
interface and mail the request to an operator who then implements it and
responds to the originator.
BTW there is nothing here that is specificly a Perl issue. Your post might
be better answered by someone in a group with either unix or cgi in it's
name.
Good Luck
chris
--
This space intentionally left blank
------------------------------
Date: Sun, 1 Oct 2000 16:01:56 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: OT: On the non-care and feeding of trolls, was Re: How to get length of scalar?
Message-Id: <Pine.GHP.4.21.0010011557280.2651-100000@hpplus03.cern.ch>
On Sun, 1 Oct 2000, Brendon Caligari wrote:
> Off topic ....but:
Please don't feed the troll. If you would review recent history of
the group, I think you will find there has been no shortage of advice
offered to this one, which he has rudely rejected.
[f'ups]
------------------------------
Date: Sun, 01 Oct 2000 10:32:06 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Parsing improvements
Message-Id: <39D737B2.7D6F247F@netstorm.net>
Martin Schneider wrote:
>
> I'm new to Perl, and have some code which appears to work, but would
> like to learn how to improve it. THE PROBLEM: I get text files
> containing a known list of files and details, but carriage returns are
> in the wrong place. For example I get this:
>
> WINMM.dll 4.00 10/14/96 03:38:00 149264 C:\WINNT\System32\USER32.dll
> 4.00 11/18/99 11:04:00 335120 C:\WINNT\system32\KERNEL32.dll 4.00
> 11/18/99 11:04:00 375056 C:\WINNT\system32\
>
> But I want this:
>
> WINMM.dll 4.00 10/14/96 03:38:00 149264 C:\WINNT\System32\
> USER32.dll 4.00 11/18/99 11:04:00 335120 C:\WINNT\system32\
> KERNEL32.dll 4.00 11/18/99 11:04:00 375056 C:\WINNT\system32\
>
> ONE SOLUTION: Since I can predict the file names, I put them in
> @modlist. After this I open the listing of files, strip out all
> carriage returns, then put them back where I want. Like this:
> -------------------------------------------------------------
> open (FIL, ".\\" . $ARGV[0]);
> while (<FIL>) {
> $messy = $messy . $_;
> }
> close (FIL);
Above open should have an "or die ..." statement, of course. You can
get rid of newlines during input:
while (<FIL>) {
chomp;
$messy .= $_;
}
> foreach $mod (@modlist) {
> chomp $mod;
> $data =~ s/(.*)($mod.*)/$1\n$2/;
^^^^^
> }
I assume you mean $messy =~ ...
But too much work:
$messy =~ s/($mod)/\n$1/
gives the same result, and this is still not exactly what you want
because it inserts a newline before the pattern you want to match, which
is ok except that you probably don't want a newline before the first
element, and might want one after the last. Not a big deal, IMO, but
you could avoid the first newline by using this:
$messy =~ s/(?<!^)($mod)/\n$1/;
Another way to do it, assuming 1) something.dll is the beginning of the
record (or string) you want, and 2) 'something' contains only word
characters (no whitespace), then you could do this, once you have $messy
without newlines:
@data = $messy=~/(\w+\.dll.+?)(?=\w+\.dll|$)/g;
print "$_\n" for @data;
-- Jim
------------------------------
Date: Sun, 01 Oct 2000 11:17:34 GMT
From: Jim Mauldin <mauldin@netstorm.net>
Subject: Re: Parsing improvements
Message-Id: <39D74257.BC2F9364@netstorm.net>
I wrote:
>
> $messy =~ s/(?<!^)($mod)/\n$1/;
Slight overkill.
$messy =~ s/[^^]($mod)/\n$1/;
-- Jim
------------------------------
Date: Sun, 01 Oct 2000 15:10:21 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: Parsing improvements
Message-Id: <39d75334.48860730@news.newsguy.com>
Jim Mauldin <mauldin@netstorm.net> wrote:
>I wrote:
>>
>> $messy =~ s/(?<!^)($mod)/\n$1/;
>
>Slight overkill.
>
>$messy =~ s/[^^]($mod)/\n$1/;
Well that may work in this case, but not for the reason you
think. The [^^] is a character class that matches any character
except ^. You could have used \n instead.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Sun, 01 Oct 2000 15:31:14 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: Parsing improvements
Message-Id: <39db572e.49878829@news.newsguy.com>
I wrote:
>Martin Schneider <MartinSchneider@TNTSoftware.com> wrote:
>
>>For example I get this:
>>
>>WINMM.dll 4.00 10/14/96 03:38:00 149264 C:\WINNT\System32\USER32.dll
>>4.00 11/18/99 11:04:00 335120 C:\WINNT\system32\KERNEL32.dll 4.00
>>11/18/99 11:04:00 375056 C:\WINNT\system32\
>>
>>But I want this:
>>
>>WINMM.dll 4.00 10/14/96 03:38:00 149264 C:\WINNT\System32\
>>USER32.dll 4.00 11/18/99 11:04:00 335120 C:\WINNT\system32\
>>KERNEL32.dll 4.00 11/18/99 11:04:00 375056 C:\WINNT\system32\
>
>An example often isn't enough to know the actual specification,
>but perhaps your lines are always six whitespace-separated
>fields. In that case, something like this (untested) might
>work:
>
> my $data;
> { local $/; $data = <>; } # slurp entire file
> $data =~ s/\s+/ /g; # convert whitespace to single spaces
> $data =~ s/((?:\S+ ){5}(\S+)) /$1\n/g; # put in newlines
> print $data;
Obviously I should have tested that. I had thought better of
posting untested code (even when labeled) but then accidentally
hit the "Post" button, and my cancel is unlikely to do much
good. Try this instead, which assumes all the lines end in a
backslash and begin with something that matches /\w+\.dll /:
my $data;
{ local $/; $data = <>; } # slurp entire file
$data =~ s/\s+/ /g; # convert whitespace to single spaces
$data =~ s/(?<=\\)(?=\w+\.dll )/\n/g; # put in newlines
print $data;
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Sun, 01 Oct 2000 09:21:14 -0400
From: Young Chi-Yeung Fan <yf32@cornell.edu>
Subject: Perl CGI
Message-Id: <39D73A4A.80F8E340@cornell.edu>
Hi,
I have these lines at the beginning of my Perl CGI scripts:
#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
Is there anything else I can put in there to help me debug easier? I
think I saw a post about that last week, but I'm having trouble finding
it.
Thanks!
------------------------------
Date: Sun, 01 Oct 2000 09:31:03 -0400
From: Young Chi-Yeung Fan <yf32@cornell.edu>
Subject: Re: Perl CGI
Message-Id: <39D73C96.B17EB6D5@cornell.edu>
Also, in addition to "use strict;".
Young Chi-Yeung Fan wrote:
> Hi,
>
> I have these lines at the beginning of my Perl CGI scripts:
>
> #!/usr/bin/perl -w
>
> use CGI::Carp qw(fatalsToBrowser);
>
> Is there anything else I can put in there to help me debug easier? I
> think I saw a post about that last week, but I'm having trouble finding
> it.
>
> Thanks!
------------------------------
Date: Sun, 01 Oct 2000 10:26:30 -0700
From: Michael Budash <mbudash@sonic.net>
Subject: Re: Perl CGI
Message-Id: <mbudash-E6399C.10263001102000@news.pacbell.net>
In article <39D73C96.B17EB6D5@cornell.edu>, Young Chi-Yeung Fan
<yf32@cornell.edu> wrote:
> Young Chi-Yeung Fan wrote:
>
> > Hi,
> >
> > I have these lines at the beginning of my Perl CGI scripts:
> >
> > #!/usr/bin/perl -w
> >
> > use CGI::Carp qw(fatalsToBrowser);
> >
> > Is there anything else I can put in there to help me debug easier? I
> > think I saw a post about that last week, but I'm having trouble finding
> > it.
> >
> > Thanks!
>
> Also, in addition to "use strict;".
>
you might also (temporarily) add "use diagnostics;"
hth-
--
Michael Budash ~~~~~~~~~~ mbudash@sonic.net
------------------------------
Date: Sun, 1 Oct 2000 16:08:48 +0100
From: "Brian" <brian@ukdj.freeserve.co.uk>
Subject: sendmail & HTML
Message-Id: <8r7kfd$p11$1@newsg2.svr.pol.co.uk>
hi all
any ideas how I use sendmail to send HTML? below
is what I use to send normal mail, how would I use it
to send HTML mail so things like outlook will view it
as a HTML page? all so can you use this method to
attach files?
thanks
Brain
open(MAIL,"|$mailprog -t");
print MAIL "To: $mailaddress\n";
print MAIL "From: $email ($personsname)\n";
print MAIL "Subject: a test\n";
print MAIL "some text\n\n";
print MAIL "some more text\n";
close MAIL;
------------------------------
Date: Sun, 01 Oct 2000 16:40:25 GMT
From: Chris Fedde <chris@fedde.littleton.co.us>
Subject: Re: sendmail & HTML
Message-Id: <ZNJB5.59$D4.177712128@news.frii.net>
In article <8r7kfd$p11$1@newsg2.svr.pol.co.uk>,
Brian <brian@ukdj.freeserve.co.uk> wrote:
>hi all
>
>any ideas how I use sendmail to send HTML? below
>is what I use to send normal mail, how would I use it
>to send HTML mail so things like outlook will view it
>as a HTML page? all so can you use this method to
>attach files?
>
>thanks
>
>Brain
>
Some reading about MIME and the various MIME related modules in
CPAN might be very helpful to you. This is a topic that has come
up frequently in the past. I've found www.dejanews.com to be quite
useful for research into past usenet postings.
Good Luck
chris
--
This space intentionally left blank
------------------------------
Date: 1 Oct 2000 15:42:59 GMT
From: Tina Mueller <tina@streetmail.com>
Subject: Re: Substituting characters
Message-Id: <8r7m23$h1ntv$2@ID-24002.news.cis.dfn.de>
hi,
In comp.lang.perl.misc Brendon Caligari <bcaligari@my-deja.com> wrote:
> In article <39d72282.9534219@news.redhotant.com>,
> phil@nospam.co.uk wrote:
>> Any suggestions on how i can substitute all
>> instances of , say a comma, with say a no space?
>>
>> 123,456,789,101,112,131 should then read 123456789101112131.
> One can transliterate a character for another character...
> check the docs for 'tr///'
> on the other hand, one might wish to substitute
> an expression with another (possible blank) one.
> check the docs for 's///'
> If your string is in $whatever, this should do the trick:
> $whatever =~ s/,//g;
well, then of course the tr/// should be quicker
$string =~ tr/,//d;
tina
--
http://tinita.de \ enter__| |__the___ _ _ ___
tina's moviedatabase \ / _` / _ \/ _ \ '_(_-< of
search & add comments \ \__,_\___/\___/_| /__/ perception
please don't email unless offtopic or followup is set. thanx
------------------------------
Date: Sun, 1 Oct 2000 11:29:12 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: while ($s = <WHATEVER>)
Message-Id: <Pine.GSO.4.21.0010011125481.12979-100000@crusoe.crusoe.net>
[posted & mailed]
On Oct 1, Brendon Caligari said:
>is "defined()" automatically assumed for a reading a file from within
>a "while" loop? Is this part of the 'while readign file' magic similar
>to the read line contents being saved to $_?
Yes, it does, as of Perl 5.005, I believe.
jeffp@hut [11:22am] ~ #107> perl -MO=Deparse
while (<FH>) { 1 }
while ($s = <FH>) { 1 }
while ($s = scalar <FH>) { 1 }
while (1 and $s = scalar <FH>) { 1 }
while (defined($_ = <FH>)) {
'???';
}
while (defined($s = <FH>)) {
'???';
}
while ($s = scalar <FH>) {
'???';
}
while ($s = scalar <FH>) {
'???';
}
The explicit use of scalar, or making the <FH> construct (and
assignment) not the only thing in the while condition will override the
defined test.
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: 1 Oct 2000 16:15:41 GMT
From: Ilmari Karonen <iltzu@sci.invalid>
Subject: Re: while ($s = <WHATEVER>)
Message-Id: <970416637.22252@itz.pp.sci.fi>
In article <Pine.GSO.4.21.0010011125481.12979-100000@crusoe.crusoe.net>, Jeff Pinyan wrote:
>The explicit use of scalar, or making the <FH> construct (and
>assignment) not the only thing in the while condition will override the
>defined test.
The early logic optimizer strikes again:
iltzu@storm:~$ perl -MO=Deparse
while ($" and $s = <FH>) { 1 }
while (1 and $s = <FH>) { 1 }
- syntax OK
while ($" and $s = <FH>) {
'???';
}
while (defined($s = <FH>)) {
'???';
}
--
Ilmari Karonen - http://www.sci.fi/~iltzu/
Please ignore Godzilla | "By promoting postconditions to
and its pseudonyms - | preconditions, algorithms become
do not feed the troll. | remarkably simple." -- Abigail
------------------------------
Date: Sun, 1 Oct 2000 11:25:07 -0400
From: Jeff Pinyan <jeffp@crusoe.net>
Subject: Re: why it's called a "hash" (and a whole lot more)
Message-Id: <Pine.GSO.4.21.0010011110480.12979-100000@crusoe.crusoe.net>
[posted & mailed]
On Oct 1, Bart Lateur said:
>Jeff Pinyan wrote:
>
>> The hash algorithm is defined in the `PERL_HASH(hash, key,
>> klen)' macro:
>
>Cute. I have been looking for this kind of info a few months ago. Having
>to search through all of Perl's source, just to find this, isn't very,
>er, user-friendly. MJD has some Perl sample code on hash key clashing,
>but that's about it.
Well, the PERL_HASH macro is documented in perlguts.pod, and the place to
look for the hashing algorithm in the source would be hv.c or hv.h.
>An article like this should be permanently put on a website,
>(<www.perl.com>?), or perhaps even included with Perl's standard docs.
I doubt this is too frequently asked. :) And to tell you the truth, I
don't know the specific implementation in Perl -- I had to write a hash
structure in C++ class, and I assume Perl acts similarly, but I don't have
the know-how to wade through the source code.
And as for my statements in the article, there are some anomolies that I
can't quite figure out:
jeffp@hut [11:22am] ~ #106> perl hashing
randal rover rex rudolph
there are 8 buckets in %hash (4/8)
KEY HASH VALUE BUC ORD
rex 131586 [2] [2]
rover 143669573 [5] [1]
randal 4714752145 [1] [0]
rudolph 152063109693 [5] [3]
For some reason, the keys aren't returned in thir bucket order, and rover
comes before rudolph. I'm a bit baffled...
--
Jeff "japhy" Pinyan japhy@pobox.com http://www.pobox.com/~japhy/
PerlMonth - An Online Perl Magazine http://www.perlmonth.com/
The Perl Archive - Articles, Forums, etc. http://www.perlarchive.com/
CPAN - #1 Perl Resource (my id: PINYAN) http://search.cpan.org/
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4483
**************************************
