[22323] in Perl-Users-Digest
Perl-Users Digest, Issue: 4544 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Feb 10 19:22:05 2003
Date: Mon, 10 Feb 2003 16:16:45 -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 Mon, 10 Feb 2003 Volume: 10 Number: 4544
Today's topics:
Using scalars as hash names <bob@vdpcorp.com>
Re: Using scalars as hash names <mothra@nowhereatall.com>
Re: Using scalars as hash names <nobull@mail.com>
Re: Using scalars as hash names <bob@vdpcorp.com>
Re: Using scalars as hash names <usenet@dwall.fastmail.fm>
What do you think of this? <tyrannous@o-space.com>
Re: What do you think of this? <ajglist@izzy.net>
Re: What do you think of this? (Tad McClellan)
Re: What do you think of this? <flavell@mail.cern.ch>
Re: What do you think of this? <tassilo.parseval@post.rwth-aachen.de>
Re: What do you think of this? <Jodyman@hotmail.com>
Re: What do you think of this? <bigj@kamelfreund.de>
Re: What do you think of this? <flavell@mail.cern.ch>
Re: What do you think of this? <krahnj@acm.org>
Re: What do you think of this? (Helgi Briem)
Re: What do you think of this? <nobull@mail.com>
When will perl 5.8.1 be out? <f_ker@yahoo.co.uk_NO_SPAM>
Re: When will perl 5.8.1 be out? <tassilo.parseval@post.rwth-aachen.de>
Re: When will perl 5.8.1 be out? <goldbb2@earthlink.net>
Where to advertise simple perl project (mike)
Re: Where to advertise simple perl project <ali@packetknife.com>
Re: Where to advertise simple perl project <abigail@abigail.nl>
Re: Where to advertise simple perl project (Tad McClellan)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 10 Feb 2003 18:35:39 GMT
From: "Bob Van Der Ploeg" <bob@vdpcorp.com>
Subject: Using scalars as hash names
Message-Id: <%hS1a.45540$AQ3.820664@twister.tampabay.rr.com>
Can I use a scalar has a hash key?
ex:
foreach $hash_name (@hashes){
while(($key,$value)=each(%$hash_name)){
print "$hash_name $key is $value";
}
}
------------------------------
Date: Mon, 10 Feb 2003 10:50:10 -0800
From: "Mothra" <mothra@nowhereatall.com>
Subject: Re: Using scalars as hash names
Message-Id: <3e47f344$1@usenet.ugs.com>
Hi Bob,
"Bob Van Der Ploeg" <bob@vdpcorp.com> wrote in message
news:%hS1a.45540$AQ3.820664@twister.tampabay.rr.com...
> Can I use a scalar has a hash key?
> ex:
>
> foreach $hash_name (@hashes){
> while(($key,$value)=each(%$hash_name)){
> print "$hash_name $key is $value";
> }
> }
I found this is the docs :-)
How can I use a reference as a hash key?
You can't do this directly, but you could use the standard
Tie::Refhash module distributed with Perl.
hope this helps
Mothra
------------------------------
Date: 10 Feb 2003 18:45:48 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: Using scalars as hash names
Message-Id: <u9znp45603.fsf@wcl-l.bham.ac.uk>
"Bob Van Der Ploeg" <bob@vdpcorp.com> writes:
> Subject: Using scalars as hash names
This looks like FAQ: "How can I use a variable as a variable name?"
> Can I use a scalar has a hash key?
This appears to be a completely different question. You can only use
strings as hash keys.
> foreach $hash_name (@hashes){
> while(($key,$value)=each(%$hash_name)){
> print "$hash_name $key is $value";
> }
> }
The above will work just fine under "no strict" but it's a bad idea.
See the aforementioned FAQ.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 10 Feb 2003 18:52:05 GMT
From: "Bob Van Der Ploeg" <bob@vdpcorp.com>
Subject: Re: Using scalars as hash names
Message-Id: <pxS1a.45684$AQ3.822031@twister.tampabay.rr.com>
Thanks for your reply.
Yes. I read that too. But I still trying to learn how to use modules.
Bob
"Mothra" <mothra@nowhereatall.com> wrote in message
news:3e47f344$1@usenet.ugs.com...
> Hi Bob,
>
> "Bob Van Der Ploeg" <bob@vdpcorp.com> wrote in message
> news:%hS1a.45540$AQ3.820664@twister.tampabay.rr.com...
> > Can I use a scalar has a hash key?
> > ex:
> >
> > foreach $hash_name (@hashes){
> > while(($key,$value)=each(%$hash_name)){
> > print "$hash_name $key is $value";
> > }
> > }
> I found this is the docs :-)
>
> How can I use a reference as a hash key?
>
> You can't do this directly, but you could use the standard
> Tie::Refhash module distributed with Perl.
> hope this helps
>
> Mothra
>
>
>
------------------------------
Date: Mon, 10 Feb 2003 19:34:06 -0000
From: "David K. Wall" <usenet@dwall.fastmail.fm>
Subject: Re: Using scalars as hash names
Message-Id: <Xns931E9432DDEABdkwwashere@216.168.3.30>
Bob Van Der Ploeg <bob@vdpcorp.com> wrote on 10 Feb 2003:
> Can I use a scalar has a hash key?
> ex:
>
> foreach $hash_name (@hashes){
> while(($key,$value)=each(%$hash_name)){
> print "$hash_name $key is $value";
> }
> }
Sounds like an X/Y question: "I want to do Y, I'm using X", then
comes a question about X, when possibly Z would work better. What
are you trying to do?
You could create an array or a hash to store labels/titles/names and
references to the hashes you're printing. Might not be worth the
trouble, though.
my @hashes = (
['Hash 1 label', \%hash1],
['Hash 2 label', \%hash2],
# and so on...
);
foreach my $hash (@hashes){
while( my($key,$value) = each %{$hash->[1]} ) {
print "$hash->[0]: $key is $value\n";
}
}
--
David K. Wall - usenet@dwall.fastmail.fm
"Oook."
------------------------------
Date: Sun, 9 Feb 2003 22:45:49 -0000
From: <tyrannous@o-space.com>
Subject: What do you think of this?
Message-Id: <b26lm0$9h9$1@newsg1.svr.pol.co.uk>
opendir(FILES, "../httpdocs/members");
@filesa=grep(/\.pri$/i, readdir FILES);
closedir(FILES);
@filesu=();
$mdaycounter=31;
$moncounter =12;
$yearcounter=$dtyear;
&beginsort;
sub beginsort {
foreach $temp (@filesa) {
$alert=0;
open(DATA, "../httpdocs/members/$temp");
@data=<DATA>;
close(DATA);
$joindate = @data[4];
($joinmday, $joinmon, $joinyear) = split(/\//, $joindate);
if ($joinyear == $yearcounter) {
if ($joinmon == $moncounter) {
if ($joinmday == $mdaycounter) {
foreach (@filesu) {
if ($_ =~/^$temp$/) {
$alert++;
}
}
unless ($alert >0) {
@filesu[$i] = "$joindate#$temp";
$i++;
}
}
}
}
}
unless ($#filesa == $#filesu) {
$mdaycounter--;
if ($mdaycounter == 0) {
$mdaycounter = 31;
$moncounter--;
}
if ($moncounter == 0) {
$moncounter = 12;
$yearcounter--;
}
&beginsort;
}
}
------------------------------
Date: Sun, 09 Feb 2003 23:26:30 GMT
From: Alan Gutierrez <ajglist@izzy.net>
Subject: Re: What do you think of this?
Message-Id: <GsB1a.17335$tQ1.1187668@news2.east.cox.net>
tyrannous@o-space.com wrote:
[snip]
I think "Why would I want to read someone else's boring Perl script?"
--
Alan Gutierrez - ajglist@izzy.net
------------------------------
Date: Sun, 9 Feb 2003 17:18:37 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: What do you think of this?
Message-Id: <slrnb4doed.td.tadmc@magna.augustmail.com>
tyrannous@o-space.com <tyrannous@o-space.com> wrote:
> Subject: What do you think of this?
I give it a "D-".
> opendir(FILES, "../httpdocs/members");
You should check the return value. Asking to open the directory
does not imply that you will actually get what you've asked for.
> @filesa=grep(/\.pri$/i, readdir FILES);
You should enable strictures, and declare your variables:
use strict;
my @filesa=grep(/\.pri$/i, readdir FILES);
> $yearcounter=$dtyear;
$dtyear has never been given a value.
You should enable warnings when developing Perl code, it would
have caught that for you:
use warnings;
> &beginsort;
I doubt that you want the semantics associated with that form of
function call. Read perlsub.pod to see what that form does.
beginsort();
> sub beginsort {
>
> foreach $temp (@filesa) {
Communicating via global variables is generally bad. Pass arguments
instead.
> open(DATA, "../httpdocs/members/$temp");
You should always, yes *always*, check the return value from open():
open(TEMP, "../httpdocs/members/$temp")
or die "could not open '../httpdocs/members/$temp' $!";
The DATA filehandle is special, you should choose a different name.
> $joindate = @data[4];
^
^
You should always enable warnings when developing Perl code.
> if ($_ =~/^$temp$/) {
If you want to test for equality then you should use the operator
that is for testing for equality:
if ( $_ eq $temp ) {
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 10 Feb 2003 01:05:34 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: What do you think of this?
Message-Id: <Pine.LNX.4.53.0302100102510.18547@lxplus071.cern.ch>
On Feb 9, tyrannous@o-space.com inscribed on the eternal scroll:
| What do you think of this?
Evidence of another damned fool who doesn't read posting guidelines
first (or do any of the other things expected of newcomers to a big-8
usenet group).
The time and effort that you waste isn't only your own, you know.
bye
------------------------------
Date: 10 Feb 2003 00:35:11 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: What do you think of this?
Message-Id: <b26s3v$k78$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Alan J. Flavell:
> On Feb 9, tyrannous@o-space.com inscribed on the eternal scroll:
>
>| What do you think of this?
>
> Evidence of another damned fool who doesn't read posting guidelines
> first (or do any of the other things expected of newcomers to a big-8
> usenet group).
Hmmh, he violated those guidelines insofar as he neither used strict nor
warnings. But since he did not have a particular question but rather
wanted some general comments on his code (which is fair and on topic for
this group), I don't see why this omission couldn't be simply mentioned
in the code-critique (along with a pointer to the posting guidelines
that he obviously doesn't know about yet afterwards).
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 10 Feb 2003 04:06:41 GMT
From: "Jodyman" <Jodyman@hotmail.com>
Subject: Re: What do you think of this?
Message-Id: <lzF1a.8570$1q2.833590@newsread2.prod.itd.earthlink.net>
"Alan Gutierrez" <ajglist@izzy.net> wrote in message
> tyrannous@o-space.com wrote:
>
> [snip]
>
> I think "Why would I want to read someone else's boring Perl script?"
Too funny! LOL.
Jody
------------------------------
Date: Mon, 10 Feb 2003 09:18:40 +0100
From: "Janek Schleicher" <bigj@kamelfreund.de>
Subject: Re: What do you think of this?
Message-Id: <pan.2003.02.10.08.00.09.907593@kamelfreund.de>
On Sun, 09 Feb 2003 22:45:49 +0000, tyrannou wrote:
Well, cross posting is really not nice.
use strict;
use warnings;
> opendir(FILES, "../httpdocs/members");
> @filesa=grep(/\.pri$/i, readdir FILES);
> closedir(FILES);
Simpler:
my @filesa = <*.pri>;
>
>
> @filesu=();
It's dangerous to have variables that are only different in on vowel. In
greater projects, you'll have a lot of typos and difficult finding errors.
>
>
> $mdaycounter=31;
> $moncounter =12;
> $yearcounter=$dtyear;
Where does $dtyear come from ?
>
> &beginsort;
beginsort();
>
> sub beginsort {
>
> foreach $temp (@filesa) {
>
> $alert=0;
>
> open(DATA, "../httpdocs/members/$temp");
Never open without beeing sure that nothing failed!
DATA is a bad name for a file descriptor.
First it's the name for a __DATA__ section at the end of the script.
Second it describes very bad, what the variable is for. Every input file
contains data.
open MEMBER, "../htttpdocs/members/$temp" or die "Can't open $temp: $!";
> @data=<DATA>;
> close(DATA);
>
> $joindate = @data[4];
^^^^^^^^
That's in principle a list, where you need left a scalar.
You surely meant
my $joindate = $data[4];
BTW: What stands joindate for ? (joindate is an action, what a variable
shouldn't stand for ? Perhaps you meant $joineddate or similar ?)
>
> ($joinmday, $joinmon, $joinyear) = split(/\//, $joindate);
>
> if ($joinyear == $yearcounter) {
>
> if ($joinmon == $moncounter) {
>
> if ($joinmday == $mdaycounter) {
>
> foreach (@filesu) {
>
> if ($_ =~/^$temp$/) {
That's equivalent to
if ($_ eq $temp)
To say the truth, it's not equivalent as your statement is much more
dangerous. If the filename would consist of any special character, your
regexp would fail.
>
> $alert++;
>
> }
>
> }
>
> unless ($alert >0) {
Here's a simpler writing for the whole last loop and this condition:
unless (grep {$_ eq $temp} @filesu) {
>
> @filesu[$i] = "$joindate#$temp";
You meant
$filesu[$i] = "$joindate#$temp";
> $i++;
That's the only place where you use the $i variable.
Why do you need it to increment then ?
Of course, I see that you gonna replace all contents of @filesu starting
with element nr. 1, but I don't understand.
I'm sure you won't too if you look at the script in one year again!
>
> }
>
> }
>
> }
>
> }
>
> }
>
> unless ($#filesa == $#filesu) {
Easier is
unless (@filesa == @filesu) {
>
> $mdaycounter--;
>
> if ($mdaycounter == 0) {
>
> $mdaycounter = 31;
> $moncounter--;
>
> }
>
> if ($moncounter == 0) {
>
> $moncounter = 12;
> $yearcounter--;
>
> }
>
> &beginsort;
>
> }
>
> }
Greetings,
Janek
------------------------------
Date: Mon, 10 Feb 2003 11:51:55 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: What do you think of this?
Message-Id: <Pine.LNX.4.53.0302101146280.6248@lxplus066.cern.ch>
On Feb 10, Tassilo v. Parseval inscribed on the eternal scroll:
> Also sprach Alan J. Flavell:
>
> > On Feb 9, tyrannous@o-space.com inscribed on the eternal scroll:
In fact I now know that it was also multi-posted... (grumble)
> Hmmh, he violated those guidelines insofar as he neither used strict nor
> warnings. But since he did not have a particular question but rather
> wanted some general comments on his code (which is fair and on topic for
> this group), I don't see why this omission couldn't be simply mentioned
> in the code-critique
You're entitled to your views, obviously, but I don't see why the code
critique should even start before certain minimum requirements have
been satisfied. Tad showed IMHO remarkable patience in commenting on
the code, but there was rather little in what he wrote that wouldn't
have come to light programmatically if the guidelines had been
followed.
all the best
------------------------------
Date: Mon, 10 Feb 2003 11:14:55 GMT
From: "John W. Krahn" <krahnj@acm.org>
Subject: Re: What do you think of this?
Message-Id: <3E478984.A37A710B@acm.org>
Janek Schleicher wrote:
>
> On Sun, 09 Feb 2003 22:45:49 +0000, tyrannou wrote:
>
> > opendir(FILES, "../httpdocs/members");
> > @filesa=grep(/\.pri$/i, readdir FILES);
> > closedir(FILES);
>
> Simpler:
> my @filesa = <*.pri>;
That doesn't do the same thing, it would have to be:
my @filesa = <*.[Pp][Rr][Ii]>;
John
--
use Perl;
program
fulfillment
------------------------------
Date: Mon, 10 Feb 2003 12:41:01 GMT
From: helgi@decode.is (Helgi Briem)
Subject: Re: What do you think of this?
Message-Id: <3e479d7a.262136081@news.cis.dfn.de>
On Mon, 10 Feb 2003 09:18:40 +0100, "Janek Schleicher"
<bigj@kamelfreund.de> wrote:
>> @filesa=grep(/\.pri$/i, readdir FILES);
>Simpler:
>my @filesa = <*.pri>;
Simpler, perhaps, but not clearer or better in any
way. Plus, it is not functionally equivalent because
the grep is case insensitive.
I recommend the readdir and grep method for
anything except oneliners.
--
Regards, Helgi Briem
helgi AT decode DOT is
------------------------------
Date: 10 Feb 2003 12:55:39 +0000
From: Brian McCauley <nobull@mail.com>
Subject: Re: What do you think of this?
Message-Id: <u9hebc70s4.fsf@wcl-l.bham.ac.uk>
"Janek Schleicher" <bigj@kamelfreund.de> writes:
> Well, cross posting is really not nice.
There is nothing wrong with crossposting if done appropriately.
Anyhow there is no crossposting in this thread.
Crossposting alt.perl and comp.lang.perl.misc is not nice because if
pollutes comp.lang.perl.misc with traffic from the outcasts in alt.perl.
That said, crossposting still preferable to doing what the OP did -
multiposting.
The best solution is to ignore alt.perl altogether.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Mon, 10 Feb 2003 08:49:32 +0000
From: Asfand yar Qazi <f_ker@yahoo.co.uk_NO_SPAM>
Subject: When will perl 5.8.1 be out?
Message-Id: <b27p1o$5ho$1@newsg4.svr.pol.co.uk>
I want to wait to upgrade from 5.6.1 until the inevitable 'bugfix'
release comes out.
Does anybody know how I can reuse my 5.6.1 installed modules in
5.8.{0/1} without reinstalling them?
------------------------------
Date: 10 Feb 2003 09:50:38 GMT
From: "Tassilo v. Parseval" <tassilo.parseval@post.rwth-aachen.de>
Subject: Re: When will perl 5.8.1 be out?
Message-Id: <b27sle$eb4$1@nets3.rz.RWTH-Aachen.DE>
Also sprach Asfand yar Qazi:
> I want to wait to upgrade from 5.6.1 until the inevitable 'bugfix'
> release comes out.
>
> Does anybody know how I can reuse my 5.6.1 installed modules in
> 5.8.{0/1} without reinstalling them?
You can't if those are modules that contain XS-portions (that is, C code
that needs to be compiled) because some things changed significantly
between 5.6.1 and 5.8.0. You can reuse the Perl-only modules though.
On the other hand, what is wrong with simply reinstalling them.
Installing a module doesn't take that long.
Anyway, the reinstallation issue will be regardless whether you prefer to
wait or install 5.8.0 right now and later upgrade to 5.8.1. A module
installed for 5.8.0 will most probably work for 5.8.1 as well.
Tassilo
--
$_=q#",}])!JAPH!qq(tsuJ[{@"tnirp}3..0}_$;//::niam/s~=)]3[))_$-3(rellac(=_$({
pam{rekcahbus})(rekcah{lrePbus})(lreP{rehtonabus})!JAPH!qq(rehtona{tsuJbus#;
$_=reverse,s+(?<=sub).+q#q!'"qq.\t$&."'!#+sexisexiixesixeseg;y~\n~~dddd;eval
------------------------------
Date: Mon, 10 Feb 2003 16:03:46 -0500
From: Benjamin Goldberg <goldbb2@earthlink.net>
Subject: Re: When will perl 5.8.1 be out?
Message-Id: <3E4813B2.35DA708A@earthlink.net>
Asfand yar Qazi wrote:
>
> I want to wait to upgrade from 5.6.1 until the inevitable 'bugfix'
> release comes out.
>
> Does anybody know how I can reuse my 5.6.1 installed modules in
> 5.8.{0/1} without reinstalling them?
For those modules which don't have XS extentions, this will be done
automatically, afaik.
For those modules which do have XS extentions, you'll need to recompile,
since 5.8 is not binary compatible with 5.6. There is a CPAN.pm command
to do this: perl -MCPAN -e "recompile"
--
"So, who beat the clueless idiot today?"
"Well, we flipped for it, but when Kuno
landed, he wasn't in any shape to fight."
"Next time, try flipping a *coin.*"
------------------------------
Date: 8 Feb 2003 10:54:50 -0800
From: trey-l@cmichaelbeck.com (mike)
Subject: Where to advertise simple perl project
Message-Id: <61ea00b1.0302081054.5224980f@posting.google.com>
Hullo, list. I have a simple perl script that I need written for a
nonprofit organization. Where should I post it to get a response from
good programmers with a quick turnaround?
Thanks,
Trey
------------------------------
Date: Sat, 08 Feb 2003 17:20:31 -0500
From: Ali-Reza Anghaie <ali@packetknife.com>
Subject: Re: Where to advertise simple perl project
Message-Id: <swmdneZGhpUzH9ijXTWc-w@speakeasy.net>
mike wrote:
> Hullo, list. I have a simple perl script that I need written for a
> nonprofit organization. Where should I post it to get a response from
> good programmers with a quick turnaround?
Look at scriptlance.com, elance,com, asynchrony.com, topcoder.com, ..
Not sure if any of them welcome non-profits but you can try. Cheers, -Ali
--
OpenPGP Key: 030E44E6
--
Was I helpful?: http://svcs.affero.net/rm.php?r=packetknife
--
I believe that sex is the most beautiful, natural, and wholesome
thing that money can buy. -- Steve Martin
------------------------------
Date: 09 Feb 2003 01:45:21 GMT
From: Abigail <abigail@abigail.nl>
Subject: Re: Where to advertise simple perl project
Message-Id: <slrnb4bclh.sb.abigail@alexandra.abigail.nl>
mike (trey-l@cmichaelbeck.com) wrote on MMMCDXLVIII September MCMXCIII in
<URL:news:61ea00b1.0302081054.5224980f@posting.google.com>:
`' Hullo, list. I have a simple perl script that I need written for a
`' nonprofit organization. Where should I post it to get a response from
`' good programmers with a quick turnaround?
We have lots of nonprofit organizations as our customers. We do charge
them though, and not a penny less than organizations for profit.
Abigail
--
sub J::FETCH{Just }$_.='print+"@{[map';sub J::TIESCALAR{bless\my$J,J}
sub A::FETCH{Another}$_.='{tie my($x),$';sub A::TIESCALAR{bless\my$A,A}
sub P::FETCH{Perl }$_.='_;$x}qw/J A P';sub P::TIESCALAR{bless\my$P,P}
sub H::FETCH{Hacker }$_.=' H/]}\n"';eval;sub H::TIESCALAR{bless\my$H,H}
------------------------------
Date: Sun, 9 Feb 2003 07:40:16 -0600
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: Where to advertise simple perl project
Message-Id: <slrnb4cmi0.u3s.tadmc@magna.augustmail.com>
mike <trey-l@cmichaelbeck.com> wrote:
> for a
> nonprofit organization.
That is irrelevant (unless you are seeking volunteers, in which case
I don't know of any place to post).
> Where should I post it to get a response from
> good programmers with a quick turnaround?
http://jobs.perl.org/
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
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 4544
***************************************
