[29583] in Perl-Users-Digest
Perl-Users Digest, Issue: 827 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Sep 6 21:09:40 2007
Date: Thu, 6 Sep 2007 18:09:08 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Thu, 6 Sep 2007 Volume: 11 Number: 827
Today's topics:
Array of hashes? <njc@cookie.uucp>
Re: Array of hashes? (Alan Curry)
Re: Array of hashes? <wahab-mail@gmx.de>
Re: Array of hashes? <yankeeinexile@gmail.com>
Re: Array of hashes? <njc@cookie.uucp>
Re: Array of hashes? <njc@cookie.uucp>
Re: Array of hashes? <ben@morrow.me.uk>
Re: Array of hashes? <tadmc@seesig.invalid>
Re: Ensuring parent/child processes <ced@blv-sam-01.ca.boeing.com>
Re: Poll with clpmisc option <dummy@example.com>
Re: Poll with clpmisc option <kkeller-usenet@wombat.san-francisco.ca.us>
Reduce CPU time while polling serial port <jismagic@gmail.com>
Re: Reduce CPU time while polling serial port xhoster@gmail.com
Re: Using DBI, Set Select to Variable (Gary E. Ansok)
Re: Warning about unused lexical variables <jurgenex@hotmail.com>
Re: Warning about unused lexical variables <jgibson@mail.arc.nasa.gov>
Re: Works in telnet but not in perl? <benoit.lefebvre@gmail.com>
Re: Works in telnet but not in perl? <benoit.lefebvre@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 06 Sep 2007 15:01:39 -0500
From: Neil Cherry <njc@cookie.uucp>
Subject: Array of hashes?
Message-Id: <slrnfe0n52.967.njc@cookie.uucp>
I'm trying to do what I think is simple but I can't get to work.
I have an array:
$foo->['a'] = 1001;
$foo->['b'] = "Some string";
push(@arr, \%foo);
$bar = pop(@arr);
print "B = $bar->{'b'}\n";
Am I missing something obvious (except to me)? I am searching
but not finding much (except an answer on Perl Monks that looks
exactly the same as my code above).
Thanks
--
Linux Home Automation Neil Cherry ncherry@linuxha.com
http://www.linuxha.com/ Main site
http://linuxha.blogspot.com/ My HA Blog
Author of: Linux Smart Homes For Dummies
------------------------------
Date: Thu, 6 Sep 2007 20:08:42 +0000 (UTC)
From: pacman@TheWorld.com (Alan Curry)
Subject: Re: Array of hashes?
Message-Id: <fbpmoa$i6a$1@pcls6.std.com>
In article <slrnfe0n52.967.njc@cookie.uucp>,
Neil Cherry <ncherry@comcast.net> wrote:
>I'm trying to do what I think is simple but I can't get to work.
>I have an array:
>
>$foo->['a'] = 1001;
>$foo->['b'] = "Some string";
>
>push(@arr, \%foo);
>
$foo is an arrayref, not a hashref. Even if it was a hashref, it wouldn't be
referring to %foo (unless you'd previously done $foo=\%foo). Both of the
array subscripts are 0 since that's what you get when you use a string that
doesn't look like a number in a numeric context.
You probably meant
$foo->{'a'} = 1001;
$foo->{'b'} = "Some string";
push(@arr, $foo);
>
>$bar = pop(@arr);
>
>print "B = $bar->{'b'}\n";
>
--
Alan Curry
pacman@world.std.com
------------------------------
Date: Thu, 06 Sep 2007 22:17:35 +0200
From: Mirco Wahab <wahab-mail@gmx.de>
Subject: Re: Array of hashes?
Message-Id: <fbpnlc$1sm$1@mlucom4.urz.uni-halle.de>
Neil Cherry wrote:
> I'm trying to do what I think is simple but I can't get to work.
> I have an array:
>
> $foo->['a'] = 1001;
> $foo->['b'] = "Some string";
> push(@arr, \%foo);
> $bar = pop(@arr);
> print "B = $bar->{'b'}\n";
The variable "foo" has to be a *hash*
if you want it that way ...
...
my %foo; # let there be hash
$foo{a} = 1001;
$foo{b} = "Some string";
my @arr;
push(@arr, \%foo);
my $bar = pop(@arr);
print "B = $bar->{b}\n"; # now it works
...
Regards
M.
------------------------------
Date: 06 Sep 2007 15:33:32 -0500
From: Lawrence Statton <yankeeinexile@gmail.com>
Subject: Re: Array of hashes?
Message-Id: <87sl5rttyb.fsf@hummer.cluon.com>
Neil Cherry <njc@cookie.uucp> writes:
> I'm trying to do what I think is simple but I can't get to work.
> I have an array:
>
> $foo->['a'] = 1001;
> $foo->['b'] = "Some string";
Mmmmmmm ... is $foo an arrayref ( indexes like 0, 1, 2, 3, ... ) or is
$foo a hashref ( keys like 'a', 'b', 'mairzydoats' )?
What you have now is $foo is an arrayref with one value 'Some string'
at index zero.
>
> push(@arr, \%foo);
Now @arr has at its end a reference to some hash you have made no
mention of anywhere in your posting. None of us can come CLOSE to
telling you what values it holds.
>
> $bar = pop(@arr);
>
> print "B = $bar->{'b'}\n";
>
Since we don't know what was in %foo, we can't guess what might be at
key $foo{b}
> Am I missing something obvious (except to me)? I am searching
> but not finding much (except an answer on Perl Monks that looks
> exactly the same as my code above).
>
Well, two things you are missing: $arrayref->['any string value'] is
the same as $arrayref->[0]
(and had you used warnings the "Argument "a" isn't numeric in
array element at /tmp/foo.pl line 9. Argument "b" isn't numeric in
array element at /tmp/foo.pl line 10." would have been a bit of a
dead giveaway)
And perhaps more importantly $foo->{x} has (nearly absolutely)[1] nothing
to do with %foo
my %foo;
$foo{x} = 'Hash';
my $foo;
$foo->{x} = 'Hashref';
print "$foo{x} $foo->{x}\n"
[1] Some know-it-all will point out that they share a slot in the
symbol table, along with <foo>, sub foo {} and @foo
--
Lawrence Statton - lawrenabae@abaluon.abaom s/aba/c/g
Computer software consists of only two components: ones and
zeros, in roughly equal proportions. All that is required is to
place them into the correct order.
------------------------------
Date: Thu, 06 Sep 2007 16:20:50 -0500
From: Neil Cherry <njc@cookie.uucp>
Subject: Re: Array of hashes?
Message-Id: <slrnfe0rpi.967.njc@cookie.uucp>
On Thu, 06 Sep 2007 22:17:35 +0200, Mirco Wahab wrote:
> Neil Cherry wrote:
>> I'm trying to do what I think is simple but I can't get to work.
>> I have an array:
>>
>> $foo->['a'] = 1001;
>> $foo->['b'] = "Some string";
>> push(@arr, \%foo);
>> $bar = pop(@arr);
>> print "B = $bar->{'b'}\n";
>
> The variable "foo" has to be a *hash*
> if you want it that way ...
>
> ...
> my %foo; # let there be hash
> $foo{a} = 1001;
> $foo{b} = "Some string";
>
> my @arr;
> push(@arr, \%foo);
>
> my $bar = pop(@arr);
> print "B = $bar->{b}\n"; # now it works
> ...
DOH! You are quite correct, I shouldn't have been using [] when I
wanted {} instead. I bet I did the same thing in my code. Thanks!
--
Linux Home Automation Neil Cherry ncherry@linuxha.com
http://www.linuxha.com/ Main site
http://linuxha.blogspot.com/ My HA Blog
Author of: Linux Smart Homes For Dummies
------------------------------
Date: Thu, 06 Sep 2007 16:21:45 -0500
From: Neil Cherry <njc@cookie.uucp>
Subject: Re: Array of hashes?
Message-Id: <slrnfe0rr9.967.njc@cookie.uucp>
On Thu, 6 Sep 2007 20:08:42 +0000 (UTC), Alan Curry wrote:
> In article <slrnfe0n52.967.njc@cookie.uucp>,
> Neil Cherry <ncherry@comcast.net> wrote:
>>I'm trying to do what I think is simple but I can't get to work.
>>I have an array:
>>
>>$foo->['a'] = 1001;
>>$foo->['b'] = "Some string";
>>
>>push(@arr, \%foo);
>>
>
> $foo is an arrayref, not a hashref. Even if it was a hashref, it wouldn't be
> referring to %foo (unless you'd previously done $foo=\%foo). Both of the
> array subscripts are 0 since that's what you get when you use a string that
> doesn't look like a number in a numeric context.
>
> You probably meant
>
> $foo->{'a'} = 1001;
> $foo->{'b'} = "Some string";
>
> push(@arr, $foo);
Yep, messed that up real good didn't I. Thanks.
--
Linux Home Automation Neil Cherry ncherry@linuxha.com
http://www.linuxha.com/ Main site
http://linuxha.blogspot.com/ My HA Blog
Author of: Linux Smart Homes For Dummies
------------------------------
Date: Fri, 7 Sep 2007 00:29:01 +0100
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Array of hashes?
Message-Id: <t2f6r4-7h3.ln1@osiris.mauzo.dyndns.org>
Quoth Lawrence Statton <yankeeinexile@gmail.com>:
<useful content snipped :)>
> And perhaps more importantly $foo->{x} has (nearly absolutely)[1] nothing
> to do with %foo
>
> my %foo;
> $foo{x} = 'Hash';
> my $foo;
> $foo->{x} = 'Hashref';
>
> [1] Some know-it-all will point out that they share a slot in the
> symbol table, along with <foo>, sub foo {} and @foo
Nope, instead I'll point out that neither $foo nor %foo reside in the
symbol table at all, they both reside in the lexical pad, and that they
have really really absolutely nothing to do with each other. :P
Ben
------------------------------
Date: Thu, 6 Sep 2007 18:35:29 -0500
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Array of hashes?
Message-Id: <slrnfe13m1.itr.tadmc@tadmc30.sbcglobal.net>
Neil Cherry <njc@cookie.uucp> wrote:
> On Thu, 6 Sep 2007 20:08:42 +0000 (UTC), Alan Curry wrote:
>> In article <slrnfe0n52.967.njc@cookie.uucp>,
>> Neil Cherry <ncherry@comcast.net> wrote:
>>>I'm trying to do what I think is simple but I can't get to work.
>>>I have an array:
>>>
>>>$foo->['a'] = 1001;
>>>$foo->['b'] = "Some string";
>>>
>>>push(@arr, \%foo);
>>>
>>
>> $foo is an arrayref, not a hashref. Even if it was a hashref, it wouldn't be
>> referring to %foo (unless you'd previously done $foo=\%foo). Both of the
>> array subscripts are 0 since that's what you get when you use a string that
>> doesn't look like a number in a numeric context.
>>
>> You probably meant
>>
>> $foo->{'a'} = 1001;
>> $foo->{'b'} = "Some string";
>>
>> push(@arr, $foo);
>
> Yep, messed that up real good didn't I. Thanks.
You should always enable warnings when developing Perl code.
You should *especially* enable warnings when Perl is behaving
in a way that you do not understand.
The machine will help you find your bugs, but only if you ask it to.
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Thu, 06 Sep 2007 14:45:52 -0700
From: "comp.llang.perl.moderated" <ced@blv-sam-01.ca.boeing.com>
Subject: Re: Ensuring parent/child processes
Message-Id: <1189115152.727693.277180@19g2000hsx.googlegroups.com>
On Sep 6, 9:14 am, jrpfinch <jrpfi...@gmail.com> wrote:
> Below is a script that represents a much longer/complicated script
> that takes up a large amount of memory. I understand that the
> approved way of forking involves the parent process _just_ managing
> the forking and having all the actual program-related stuff done by
> the children.
>
> Memory constraints mean I would like one parent and one child both to
> do 'program-related stuff'. I would like to ensure that if either the
> child or the parent die unexpectedly, then the other process dies
> too.
>
> I have read perlipc and would like to know what the approved way to do
> this is. I am thinking two solutions - 1. have a die signal handler
> kill the other process 2. use big eval blocks to trap any unexpected
> errors and kill the other process.
>
> Which is best? Is there a better way?
>
> Cheers
>
> Jon
>
> #!/opt/perl5.8.8/bin/perl
> #-------------------------------------------------------------------------------
> # Interpreter settings
> #-------------------------------------------------------------------------------
> use warnings;
> use strict;
> $SIG{CHLD}='IGNORE';
> my $gPid;
> print "Parent process pid=$$\n";
> unless (defined ($gPid = fork))
> {
> die "cannot fork: $!";}
>
> #-------------------------------------------------------------------------------
> # Child process loops for 50 seconds
> # How to ensure this stops if the parent process dies unexpectedly?
> #-------------------------------------------------------------------------------
> unless ($gPid)
> {
> print "Inside unless pid=$$, gpid=$gPid\n";
> for (0..10)
> {
> sleep 5;
> }
> print "About to exit inside unless\n";
> # i am the child
> exit;
>
> }
>
> #-------------------------------------------------------------------------------
> # Parent process loops for 20 seconds and then dies unexpectedly
> #-------------------------------------------------------------------------------
> print "After unless gpid=$gPid\n";
> for (0..10)
> {
> sleep 2;} # i am the parent
>
> print "About to die after unless";
> die "dying after unless";
>
> print "About to waitpid after unless\n";
> waitpid($gPid, 0);
> exit;
>
> __END__
Note: I'm not sure why you waitpid with SIGCHLD set to 'IGNORE'...?
But, to get sychronized deaths, the parent/child pair could
cross signal one another via an END block (which simulates an
atexit() call). Exiting this way may short-circuit cleanup or
other processing though so you may need something more elaborate
than just an 'exit' in a USR1 signal handler.
[ Untested ]
use warnings;
use strict;
use sigtrap qw(die normal-signals);
use POSIX qw(_exit);
$SIG{CHLD}='IGNORE';
$SIG{USR1} = sub { POSIX::_exit(1); }; # assumes USR1 unused
my $parent_pid = $$;
my $child_pid = fork ...
...
END { kill 'USR1', $$ == $parent_pid ? $child_pid : $parent_pid; }
__END__
--
Charles DeRykus
------------------------------
Date: Thu, 06 Sep 2007 23:02:02 GMT
From: "John W. Krahn" <dummy@example.com>
Subject: Re: Poll with clpmisc option
Message-Id: <KF%Di.21927$bO6.20618@edtnps89>
Michele Dondi wrote:
> http://perlmonks.org/?node_id=637052
>
>
> When I'm arguing with a fool...
>
>
> * chances are he's doing the same => 44/33%
>
> * certainly he's doing the same => 29/22%
>
> * I'm in clpmisc, being told I am an elitist b**tard for pointing out
> that "it doesn't work" is not an appropriate description of the
> problem => 10/7%
>
> * he's claiming Perl to be "constantly loosing ground on php" =>
> 20/15%
>
> * UR HLP CAN HAS BEEN SQL IS TOO MUCH DOCS PLZ SUPER URGENT THX. =>
> 31/23%
>
>
> (Results thus far)
And did you expect an argument? :-)
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: Thu, 6 Sep 2007 16:20:12 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Poll with clpmisc option
Message-Id: <cie6r4xeso.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-09-06, John W. Krahn <dummy@example.com> wrote:
> Michele Dondi wrote:
>> http://perlmonks.org/?node_id=637052
>>
>> * I'm in clpmisc, being told I am an elitist b**tard for pointing out
>> that "it doesn't work" is not an appropriate description of the
>> problem => 10/7%
>
> And did you expect an argument? :-)
Perhaps just some help boosting this option's numbers. :)
--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: Thu, 06 Sep 2007 22:18:04 -0000
From: jis <jismagic@gmail.com>
Subject: Reduce CPU time while polling serial port
Message-Id: <1189117084.010327.91390@19g2000hsx.googlegroups.com>
Hi,
I am using Win32::serialport for reading a data through a scanner
which is connected to the serial port.
I use polling as below.But this consumes 99% of my CPU time. and
slows down the system.
while(!($data=~/\r/))
{
$data=$Scanner->input(); #read the scanner port
$labeldata=$labeldata.$data; #append
}
Is there any way I implement interrupts or events using perl. Or is
there any other method to solve this issue.
I use WIndows NT4(its old..but i have to...)
Pls share your ideas.
Cheers,
jis
------------------------------
Date: 06 Sep 2007 23:34:19 GMT
From: xhoster@gmail.com
Subject: Re: Reduce CPU time while polling serial port
Message-Id: <20070906193422.946$OY@newsreader.com>
jis <jismagic@gmail.com> wrote:
> Hi,
>
> I am using Win32::serialport for reading a data through a scanner
> which is connected to the serial port.
> I use polling as below.But this consumes 99% of my CPU time. and
> slows down the system.
> while(!($data=~/\r/))
> {
> $data=$Scanner->input(); #read the scanner port
> $labeldata=$labeldata.$data; #append
> }
>
> Is there any way I implement interrupts or events using perl.
Have you looked into the "lookfor" feature of Win32::SerialPort?
I have used it, but this seems to be what it is there for.
Also, appends should be done like this:
$labeldata .= $data;
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: Thu, 6 Sep 2007 18:24:29 +0000 (UTC)
From: ansok@alumni.caltech.edu (Gary E. Ansok)
Subject: Re: Using DBI, Set Select to Variable
Message-Id: <fbpgks$ldu$1@naig.caltech.edu>
In article <1188229483.566269.31330@o80g2000hse.googlegroups.com>,
it_says_BALLS_on_your forehead <simon.chao@fmr.com> wrote:
>On Aug 27, 12:35 am, Jason <jwcarl...@gmail.com> wrote:
>> I know how to load info into an array:
>>
>> my $sth = $dbh->prepare("SELECT username, password FROM users WHERE
>> username=?");
>> $sth->execute($given_username);
>> while (my ($userID, $passID) = $sth->fetchrow_arrayref()) { ... }
>>
>> What I can't figure out is how to load it to a single variable if I
>> know that there's only 1 value, instead of an array. For instance,
>> what if I only need to read "password" instead of "username,
>> password"?
>
>my ( $pass ) = $dbh->selectrow_array("SELECT password FROM users WHERE
>username=?");
This suggestion is missing how to pass the placeholder value to the query:
my ($pass) = $dbh->selectrow_array(
"SELECT password FROM users WHERE username=?",
undef, $given_username);
The second argument is used to pass options to the query. When no
options are being specified, as is the case here, you still must
pass in an undef (or {}) so that the values for the placeholders
will be found correctly in the remainder of the argument list.
Gary
--
The recipe says "toss lightly," but I suppose that depends
on how much you eat and how bad the cramps get. - J. Lileks
------------------------------
Date: Thu, 06 Sep 2007 18:58:04 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Warning about unused lexical variables
Message-Id: <05YDi.11825$Ov2.4092@trndny06>
Peter J. Holzer wrote:
> It would be nice if perl could warn about lexical variables which are
> never used in their scope after their initialization. Does anybody
> else find this useful, and if so, is there a reason (besides "life is
> short") why it hasn't been implemented?
Useful? Yes.
Easy to implement? No.
Example:
my ($x, $y) = (1,2);
if (<some complex condition depending on the environment>) {
call_my_sub($x)
} else {
call_my_sub($y)
}
In this example either $x or $y remains unused.
However a static analysis at compile time cannot detect this.
And neither can a dyamic analysis during runtime because that complex
condition may evaluate to false only in an odd one-in-a-million situation.
jue
------------------------------
Date: Thu, 06 Sep 2007 12:27:38 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Warning about unused lexical variables
Message-Id: <060920071227386760%jgibson@mail.arc.nasa.gov>
In article <05YDi.11825$Ov2.4092@trndny06>, Jürgen Exner
<jurgenex@hotmail.com> wrote:
> Peter J. Holzer wrote:
> > It would be nice if perl could warn about lexical variables which are
> > never used in their scope after their initialization. Does anybody
> > else find this useful, and if so, is there a reason (besides "life is
> > short") why it hasn't been implemented?
>
> Useful? Yes.
> Easy to implement? No.
>
> Example:
>
> my ($x, $y) = (1,2);
> if (<some complex condition depending on the environment>) {
> call_my_sub($x)
> } else {
> call_my_sub($y)
> }
>
> In this example either $x or $y remains unused.
> However a static analysis at compile time cannot detect this.
But both $x and $y appear in two separate instances within their scope.
Contrast that with:
my ($x, $y) = (1,2);
if (<condition>) {
call_my_sub($x)
} else {
call_my_sub($z)
}
$y and $z both only appear once, so it looks like there has been a
typo. That is the type of error that could be caught with an analysis
of lexical variables.
>
> And neither can a dyamic analysis during runtime because that complex
> condition may evaluate to false only in an odd one-in-a-million situation.
A dynamic analysis is not needed.
--
Jim Gibson
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Thu, 06 Sep 2007 13:24:37 -0700
From: Benoit Lefebvre <benoit.lefebvre@gmail.com>
Subject: Re: Works in telnet but not in perl?
Message-Id: <1189110277.269674.194940@57g2000hsv.googlegroups.com>
On Sep 6, 12:48 pm, Bill H <b...@ts1000.us> wrote:
> I have a perl program that is converting a pdf file to a jpg using
> imagemagik and gs. Using the following command line in a telnet shell
> logged in as the webmaster and in the same directory as the perl
> program it works:
>
> cd Pages;/usr/local/bin/convert ZGRH3122CHAP070827063618-1-1.pdf -
> resize 300 ZGRH3122CHAP070827063618-1-1.jpg
>
> But when I do it in perl with the following:
>
> system("cd $displaypath;/usr/local/bin/convert $THISPROJECT
> $thepagemap[$i].pdf -resize 300 $THISPROJECT$thepagemap[$i].jpg");
>
> which expands out to (same as above):
>
> cd Pages;/usr/local/bin/convert ZGRH3122CHAP070827063618-1-1.pdf -
> resize 300 ZGRH3122CHAP070827063618-1-1.jpg
>
> I get this error:
>
> sh: gs: command not found
> convert: Postscript delegate failed
> `ZGRH3122CHAP070827063618-1-1.pdf'.
> convert: missing an image filename `ZGRH3122CHAP070827063618-1-1.jpg'.
>
> Anyone have any clue why I would get this error? Convert works fine,
> it just doesn't work with gs (ghostscript) when I call it from the
> perl. Also gs is in /usr/local/bin same as convert.
>
> Bill H
Do a chdir() instead of "cd" in your system();
chdir($displaypath);
system("/usr/local/bin/convert $THISPROJECT $thepagemap[$i].pdf -
resize 300 $THISPROJECT$thepagemap[$i].jpg");
------------------------------
Date: Thu, 06 Sep 2007 13:26:37 -0700
From: Benoit Lefebvre <benoit.lefebvre@gmail.com>
Subject: Re: Works in telnet but not in perl?
Message-Id: <1189110397.853463.215330@r34g2000hsd.googlegroups.com>
Or use the full path to your $THISPROJECT$thepagemap[$i].pdf and
$THISPROJECT$thepagemap[$i].jpg
(sorry for the "double post")
--Ben
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
#The Perl-Users Digest is a retransmission of the USENET newsgroup
#comp.lang.perl.misc. For subscription or unsubscription requests, send
#the single line:
#
# subscribe perl-users
#or:
# unsubscribe perl-users
#
#to almanac@ruby.oce.orst.edu.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
#To request back copies (available for a week or so), send your request
#to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
#where x is the volume number and y is the issue number.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 827
**************************************
