[29841] in Perl-Users-Digest
Perl-Users Digest, Issue: 1084 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 1 00:09:41 2007
Date: Fri, 30 Nov 2007 21:09:06 -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 Fri, 30 Nov 2007 Volume: 11 Number: 1084
Today's topics:
Email with text file attachment <ytlim1@gmail.com>
Re: Email with text file attachment <jurgenex@hotmail.com>
Re: Email with text file attachment <ytlim1@gmail.com>
Re: Email with text file attachment <rkb@i.frys.com>
Error using SMTP object. <pgmrdan@hotmail.com>
Re: Error using SMTP object. <pgmrdan@hotmail.com>
Re: Net::SSH::Perl security question <zhilianghu@gmail.com>
Re: Net::SSH::Perl security question <ben@morrow.me.uk>
Newbie Question: How do I make this code snippet a loo prelim_questions@yahoo.com
Re: Newbie Question: How do I make this code snippet a <ben@morrow.me.uk>
Re: Newbie Question: How do I make this code snippet a <jurgenex@hotmail.com>
Re: OT raibow <stoupa@practisoft.cz>
Re: out of memory <04e40e32-58da-4a64-9a34-6d334135ca55 <hjp-usenet2@hjp.at>
Re: out of memory <04e40e32-58da-4a64-9a34-6d334135ca55 <ben@morrow.me.uk>
Re: SvUOK always fails on 64bit platform <nospam-abuse@ilyaz.org>
Re: Why is a perl script 'sleep 100' uses 100 MEGS of R <joost@zeekat.nl>
Re: Why is a perl script 'sleep 100' uses 100 MEGS of R <ignoramus22774@NOSPAM.22774.invalid>
Re: Why is a perl script 'sleep 100' uses 100 MEGS of R <joost@zeekat.nl>
Re: Why is a perl script 'sleep 100' uses 100 MEGS of R <smallpond@juno.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 30 Nov 2007 16:18:50 -0800 (PST)
From: Why Tea <ytlim1@gmail.com>
Subject: Email with text file attachment
Message-Id: <3822223c-2d8f-4a75-b049-7b8dcf605d31@e10g2000prf.googlegroups.com>
What is the easiest way to send an email with a text file attachment
(without MIME::LITE, etc)?
/Why Tea
------------------------------
Date: Sat, 01 Dec 2007 00:39:26 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Email with text file attachment
Message-Id: <2324j.990$gs.672@trndny08>
Why Tea wrote:
> What is the easiest way to send an email with a text file attachment
Your Question is Asked Frequently, please see "perldoc -q attachment".
> (without MIME::LITE, etc)?
Oh, in that case I would guess by re-implementing significant parts of
MIME::LITE from scratch in your program.
jue
------------------------------
Date: Fri, 30 Nov 2007 20:12:43 -0800 (PST)
From: Why Tea <ytlim1@gmail.com>
Subject: Re: Email with text file attachment
Message-Id: <340d9e97-f5fc-43fc-9c82-6541f961f2de@a35g2000prf.googlegroups.com>
> > (without MIME::LITE, etc)?
>
> Oh, in that case I would guess by re-implementing significant parts of
> MIME::LITE from scratch in your program.
Oh, not really. I have seen bits and pieces about using sendmail or
similar. I'm only after a minimal way of sending an email with a text
attachment without any additional package.
------------------------------
Date: Fri, 30 Nov 2007 20:30:41 -0800 (PST)
From: Ron Bergin <rkb@i.frys.com>
Subject: Re: Email with text file attachment
Message-Id: <64cc36b8-a571-4c28-a235-8e24dbe83f0c@s19g2000prg.googlegroups.com>
On Nov 30, 8:12 pm, Why Tea <ytl...@gmail.com> wrote:
> > > (without MIME::LITE, etc)?
>
> > Oh, in that case I would guess by re-implementing significant parts of
> > MIME::LITE from scratch in your program.
>
> Oh, not really. I have seen bits and pieces about using sendmail or
> similar. I'm only after a minimal way of sending an email with a text
> attachment without any additional package.
This is not the method I'd use, because I'd be using MIME::Lite, but
you could do a system call to uuencode (to encode your file
attachment) and pass it to the mail command.
man uuencode
man mail
------------------------------
Date: Fri, 30 Nov 2007 18:57:13 -0600
From: "pgmrdan" <pgmrdan@hotmail.com>
Subject: Error using SMTP object.
Message-Id: <fiqb57$83p$1@news.netins.net>
I'm getting the following message -
Can't call method "domain" on an undefined value at domain.pl line 4.
When trying to execute the following -
use Net::SMTP;
$smtp = Net::SMTP->new('xxxxxxxxxx.xxx');
print $smtp->domain,"\n";
$smtp->quit;
I'm using my ISP provider in place of the x's.
What am I doing wrong?
Thanks.
------------------------------
Date: Fri, 30 Nov 2007 19:41:05 -0600
From: "pgmrdan" <pgmrdan@hotmail.com>
Subject: Re: Error using SMTP object.
Message-Id: <fiqdnf$aio$1@news.netins.net>
Never mind. I had the wrong SMTP server name. It works now.
Thanks.
"pgmrdan" <pgmrdan@hotmail.com> wrote in message
news:fiqb57$83p$1@news.netins.net...
> I'm getting the following message -
>
> Can't call method "domain" on an undefined value at domain.pl line 4.
>
> When trying to execute the following -
>
> use Net::SMTP;
>
> $smtp = Net::SMTP->new('xxxxxxxxxx.xxx');
> print $smtp->domain,"\n";
> $smtp->quit;
>
> I'm using my ISP provider in place of the x's.
>
> What am I doing wrong?
>
> Thanks.
>
>
------------------------------
Date: Fri, 30 Nov 2007 16:30:13 -0800 (PST)
From: Joe <zhilianghu@gmail.com>
Subject: Re: Net::SSH::Perl security question
Message-Id: <fb53ba23-6ec2-4bae-8c96-0d6cfe7eabcd@e23g2000prf.googlegroups.com>
On Nov 30, 12:28 pm, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
> The CGI is probably looking for $HOME/.ssh/known_hosts2. Which means that
> either the HOME variable is not filled, or the user has / as his homedir.
>
> M4
Thanks for the clue -- Just found out that when the web server's
account is
set to "/bin/nologin" or "/bin/false", the account's "HOME" becomes
"/".
When it's set to a shell, the home dir is properly identified.
This might be a web server question, but since we are here -- how may
I
"cheat" in the perl/CGI program in order to designate an env $HOME
variable?
(I tried a few options from within perl/CGI to "setenv" but never got
it right;
also had no luck with Google on this).
Thanks in advance,
Joe
------------------------------
Date: Sat, 1 Dec 2007 01:09:27 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Net::SSH::Perl security question
Message-Id: <7ro625-qr2.ln1@osiris.mauzo.dyndns.org>
Quoth Joe <zhilianghu@gmail.com>:
> On Nov 30, 12:28 pm, Martijn Lievaart <m...@rtij.nl.invlalid> wrote:
>
> > The CGI is probably looking for $HOME/.ssh/known_hosts2. Which means that
> > either the HOME variable is not filled, or the user has / as his homedir.
>
> This might be a web server question, but since we are here -- how may
> I "cheat" in the perl/CGI program in order to designate an env $HOME
> variable?
$ENV{HOME} = '...';
It might be better to do it in a BEGIN block, in case something checks
it at use time, and you can extract the correct value from /etc/passwd
(or equivalent) using User::pwent:
use User::pwent;
BEGIN { $ENV{HOME} = getpwuid($<)->dir }
Ben
------------------------------
Date: Fri, 30 Nov 2007 18:15:38 -0800 (PST)
From: prelim_questions@yahoo.com
Subject: Newbie Question: How do I make this code snippet a loop?
Message-Id: <fb08e79f-4fb6-4849-b47e-d154b39c9e67@x69g2000hsx.googlegroups.com>
I have only a couple weeks of experience with Perl. In that time, I
figured out how to put together a prototype CGI application. But at
times, I had to resort to writing bad code, because I did not know how
to do certain things in Perl.
How do I turn the following into a loop or otherwise make it much
easier to write?
if (param("pick") eq "$quiz11[4]"){
system("/home/username/script option1 option2 \"$quiz11[4]\" ");
print redirect("http:my_url");
} elsif (param("pick") eq "$quiz11[3]"){
system("/home/username/script option1 option2 \"$quiz11[3]\" ");
print redirect("http:my_url");
} elsif (param("pick") eq "$quiz11[2]"){
system("/home/username/script option1 option2 \"$quiz11[2]\" ");
print redirect("http:my_url");
} elsif (param("pick") eq "$quiz11[1]"){
system("/home/username/script option1 option2 \"$quiz11[1]\" ");
print redirect("http:my_url");
}
So in this example, $quiz11 has 4 elements, hence 4 conditionals and
in general would have number of conditionals equal to number of
elements. Also, within a given block of code like this, the URL, the
script, and the option1 and option2 do not change.
Thanks in advance... I am trying to learn as much as I can!
------------------------------
Date: Sat, 1 Dec 2007 02:51:49 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Newbie Question: How do I make this code snippet a loop?
Message-Id: <5ru625-3e3.ln1@osiris.mauzo.dyndns.org>
Quoth prelim_questions@yahoo.com:
> I have only a couple weeks of experience with Perl. In that time, I
> figured out how to put together a prototype CGI application. But at
> times, I had to resort to writing bad code, because I did not know how
> to do certain things in Perl.
>
> How do I turn the following into a loop or otherwise make it much
> easier to write?
>
> if (param("pick") eq "$quiz11[4]"){
You don't need the double quotes here. See perldoc -q quoting.
> system("/home/username/script option1 option2 \"$quiz11[4]\" ");
I don't know what this script does, but if it's written in Perl there's
almost certainly a better way to use it than running it with system.
When you do need system, it's better to use the list form when you can:
system '/home/username/script', 'option1', 'option2', $quiz11[4];
or use qw// which splits on whitespace:
system qw{ /home/username/script option1 option2 }, $quiz11[4];
as it doesn't invoke the shell, so it's faster and you don't need the
double quotes (which aren't safe, by the way: what if $quiz11[4]
contained an '$'?).
> print redirect("http:my_url");
<snip>
> } elsif (param("pick") eq "$quiz11[1]"){
Note that in Perl arrays start with element 0 (except when someone's
been messing with $[, which is a *very* bad idea). There are valid
reasons for skipping the first element, but it's usually more trouble
than it's worth.
> So in this example, $quiz11 has 4 elements, hence 4 conditionals and
> in general would have number of conditionals equal to number of
> elements. Also, within a given block of code like this, the URL, the
> script, and the option1 and option2 do not change.
In general the answer here is to use a hash. Build a hash with all valid
options as keys, and check it with exists. Something like
my %valid;
@valid{ @quiz11 } = ();
my $pick = param('pick');
if (exists $valid{ $pick }) {
system ..., $pick;
print redirect('http:...');
}
That second line does quite a lot:
Take a list of all the allowed values,
@quiz11
look each of them up in the hash %valid and return a list of the
results (none of them will exist yet, of course, but that doesn't
matter)
@valid{ @quiz11 }
and assign the empty list to the result.
@valid{ @quiz11 } = ();
This creates all the corresponding entries in the hash (so exists says
they exist) without assigning them any value (since we don't need to).
If you find it less confusing you can write something like
$valid{$_} = 1 for @quiz11;
which loops through the allowed values and sets the correspoding entry
in the hash to 1, but the way I used is more efficient. This often
doesn't matter, though, so use whichever you find clearer.
If you don't make other use of @quiz11, you can keep the list in a hash
to start with. If necessary you can retrieve the whole list with keys
%quiz11.
> Thanks in advance... I am trying to learn as much as I can!
Good luck :).
Ben
------------------------------
Date: Sat, 01 Dec 2007 03:16:13 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Newbie Question: How do I make this code snippet a loop?
Message-Id: <1m44j.870$Uy.468@trndny07>
prelim_questions@yahoo.com wrote:
> How do I turn the following into a loop or otherwise make it much
> easier to write?
> if (param("pick") eq "$quiz11[4]"){
> system("/home/username/script option1 option2 \"$quiz11[4]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[3]"){
> system("/home/username/script option1 option2 \"$quiz11[3]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[2]"){
> system("/home/username/script option1 option2 \"$quiz11[2]\" ");
> print redirect("http:my_url");
> } elsif (param("pick") eq "$quiz11[1]"){
> system("/home/username/script option1 option2 \"$quiz11[1]\" ");
> print redirect("http:my_url");
> }
Easy. Just check what changes between each case and make that part a
variable:
for (1..4) {
if (param("pick") eq $quiz11[$_]){
system("/home/username/script option1 option2 \"$quiz11[$_]\" ");
print redirect("http:my_url");
}
}
However, there are probably better ways to achive the same end goal. E.g. I
would probably create a hash mapping from those @quiz11 values to the
desired print values directly. Then you don't need dozens of comparisons and
the whole loop would collaps to a simple
system('/home/username/script option1 option2 "'.
$mappingtable{param('pick')} .
'"');
jue
------------------------------
Date: Sat, 1 Dec 2007 04:37:25 +0100
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: OT raibow
Message-Id: <fiqktt$1in4$1@ns.felk.cvut.cz>
Joost Diepenmaat wrote:
> On Fri, 30 Nov 2007 18:39:35 +0100, Petr Vileta wrote:
>
>> I want to generate html <select> object with all "safe" colors but in
>> rainbow order (from white over yellow, red upt to black). I want to
>> use hexadecimal values for RGB but only 0,33,66,99,cc and ff values.
>> Please know anybody some algorithm how to do it?
>
> A rainbow contains just the "unmixed" colors in the visible spectrum
> so it does not contain white or black and also misses a few other
> colors: http://en.wikipedia.org/wiki/Visible_spectrum
>
> If that's not a problem, see:
> http://www.philiplaven.com/p19.html
> http://www.midnightkite.com/color.html
>
> Joost.
Thank you Joost, but my problem is a bit different. Not all internet user can
see thousands or milions colors on display (e.g. on mobile phone), but most
people can see 256 color. In addition to this fe years ago somebody define set
of colors called "safe colors". This set contain 215 colors only and the
html/css definitions looks like this
#0033CC
#3399FF
For this color set are used only 0x0, 0x33, 0x66, 0x99, 0xCC and 0xFF values
for all R,G,B colors. I wrote script with 3 foreach() cycles but this script
generate a pretty bad set.
#!/usr/sbin/perl
use strict;
my @colors=('FF','CC','99','66','33','00');
open H,"> colors.htm";
print H "<html><body><table border=1>\n";
foreach my $r(@colors)
{
foreach my $g(@colors)
{
foreach my $b(@colors)
{
print H "<tr><td bgcolor='##r$g$b'>", ' 'x5, "</td></tr>\n";
}
}
}
close H;
I'm looking for some algorithm what generate the same table but more similar
to rainbow. I mean that all red tones will be together, all yellow tones will
be together etc. in right order.
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your
mail from another non-spammer site please.)
Please reply to <petr AT practisoft DOT cz>
------------------------------
Date: Fri, 30 Nov 2007 23:54:59 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: out of memory <04e40e32-58da-4a64-9a34-6d334135ca55@a39g2000pre.googlegroups.com> <p58125-v03.ln1@osiris.mauzo.dyndns.org>
Message-Id: <slrnfl1563.aok.hjp-usenet2@zeno.hjp.at>
On 2007-11-28 22:54, Ben Morrow <ben@morrow.me.uk> wrote:
> Quoth aniait <aithalanirudh@gmail.com>:
>> Is there any way to solve the 'out of memory exception' of perl on
>> windows? I got this when i tried to dump a large hash into a file
>> using Dumper.
>
> Increase the size of your swapfile :). Windows machines usually don't
> have anywhere near enough swap.
OTOH perl hashes tend to have absolutely abysmal performance as soon as
swapping is required, so increasing the size of RAM is probably less
painful (although a bit more expensive).
But the main problem with Dumper is that it constructs one huge string,
so the problem can be solved by walking the hash and writing each
element to disk immediately. Storable and YAML at least offer functions
to read from/write to files, although I don't know offhand if they
really stream or if they need a huge buffer.
hp
--
_ | Peter J. Holzer | It took a genius to create [TeX],
|_|_) | Sysadmin WSR | and it takes a genius to maintain it.
| | | hjp@hjp.at | That's not engineering, that's art.
__/ | http://www.hjp.at/ | -- David Kastrup in comp.text.tex
------------------------------
Date: Sat, 1 Dec 2007 01:03:12 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: out of memory <04e40e32-58da-4a64-9a34-6d334135ca55@a39g2000pre.googlegroups.com> <p58125-v03.ln1@osiris.mauzo.dyndns.org>
Message-Id: <gfo625-qr2.ln1@osiris.mauzo.dyndns.org>
Quoth "Peter J. Holzer" <hjp-usenet2@hjp.at>:
> On 2007-11-28 22:54, Ben Morrow <ben@morrow.me.uk> wrote:
> > Quoth aniait <aithalanirudh@gmail.com>:
> >> Is there any way to solve the 'out of memory exception' of perl on
> >> windows? I got this when i tried to dump a large hash into a file
> >> using Dumper.
> >
> > Increase the size of your swapfile :). Windows machines usually don't
> > have anywhere near enough swap.
>
> OTOH perl hashes tend to have absolutely abysmal performance as soon as
> swapping is required, so increasing the size of RAM is probably less
> painful (although a bit more expensive).
OTGH I was assuming that perl wasn't in fact filling physical memory,
and there were other things running that could usefully be swapped out.
Windows is rather funny about swap usage: for instance, IIRC all shared
libraries are copied into swap and demand-paged from there, rather than
from the original file.
> But the main problem with Dumper is that it constructs one huge string,
> so the problem can be solved by walking the hash and writing each
> element to disk immediately.
Yes. I've been thinking lately that a generic 'walk this data structure'
module, sort-of like File::Find, would be handy. Getting it right is
*far* from trivial, especially if you want to pick up 'sideways' stuff
like magic objects and closed-over lexicals, and a lot of modules seem
to have their own version. Maybe I'll generalise the code in
Clone::Closure slightly, and nick some bits from Storable...
> Storable and YAML at least offer functions
> to read from/write to files, although I don't know offhand if they
> really stream or if they need a huge buffer.
Storable at least really streams.
Ben
------------------------------
Date: Fri, 30 Nov 2007 23:51:41 +0000 (UTC)
From: Ilya Zakharevich <nospam-abuse@ilyaz.org>
Subject: Re: SvUOK always fails on 64bit platform
Message-Id: <fiq7md$29n9$1@agate.berkeley.edu>
[A complimentary Cc of this posting was sent to
Ben Morrow
<ben@morrow.me.uk>], who wrote in article <76v325-9e4.ln1@osiris.mauzo.dyndns.org>:
> > <u8526505@gmail.com>], who wrote in article
> > <46372675-8f8c-4703-9d68-e135639c5ea0@d27g2000prf.googlegroups.com>:
> > IMO, you should disregard the direct criticism of the other reply to
> > your posting (the general musing there is correct, but applications to
> > your code look misplaced).
> If anything I've said is incorrect or inapplicable I'll gladly accept
> correction. I know you know the guts of perl better than I do :).
I was not discussing "guts of perl". I was discussing your opinion
about "which places in the supplied C code need improvement". IMO, it
was too vague and misplaced.
Hope this helps,
Ilya
------------------------------
Date: 30 Nov 2007 21:26:20 GMT
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Why is a perl script 'sleep 100' uses 100 MEGS of RAM
Message-Id: <47507ffc$0$18601$e4fe514c@dreader28.news.xs4all.nl>
On Fri, 30 Nov 2007 09:25:55 -0800, smallpond wrote:
> Neither VSZ nor RSZ mean much. VSZ corresponds to no practical limit on
> a 64-bit system, and RSZ includes all linked shared libraries that
> are currently resident.
Can you or anyone else tell me where to find more information about how
to interpret a processes' virtual memory stats as given by top or ps on
linux (and/or other unix-like systems). This has been bugging me for
quite a while now.
A good explanation on why they're useless (as you claim) would also be
good. I'm just trying to figure out what's what.
ps: my ps manual claims that -vsz memory is reported in 1Kb blocks (not
4k blocks as you stated)
Joost.
------------------------------
Date: Fri, 30 Nov 2007 15:43:25 -0600
From: Ignoramus22774 <ignoramus22774@NOSPAM.22774.invalid>
Subject: Re: Why is a perl script 'sleep 100' uses 100 MEGS of RAM
Message-Id: <0vadnb6B7cNgHs3anZ2dnUVZ_qbinZ2d@giganews.com>
On 2007-11-30, Joost Diepenmaat <joost@zeekat.nl> wrote:
> On Fri, 30 Nov 2007 09:25:55 -0800, smallpond wrote:
>> Neither VSZ nor RSZ mean much. VSZ corresponds to no practical limit on
>> a 64-bit system, and RSZ includes all linked shared libraries that
>> are currently resident.
>
> Can you or anyone else tell me where to find more information about how
> to interpret a processes' virtual memory stats as given by top or ps on
> linux (and/or other unix-like systems). This has been bugging me for
> quite a while now.
man ps
s size memory size in kilobytes
i
> A good explanation on why they're useless (as you claim) would also be
> good. I'm just trying to figure out what's what.
>
> ps: my ps manual claims that -vsz memory is reported in 1Kb blocks (not
> 4k blocks as you stated)
>
> Joost.
------------------------------
Date: 30 Nov 2007 21:55:41 GMT
From: Joost Diepenmaat <joost@zeekat.nl>
Subject: Re: Why is a perl script 'sleep 100' uses 100 MEGS of RAM
Message-Id: <475086dd$0$18601$e4fe514c@dreader28.news.xs4all.nl>
On Fri, 30 Nov 2007 15:43:25 -0600, Ignoramus22774 wrote:
> man ps
>
> s size memory size in kilobytes
Yeah, well... *what* memory are we talking about? for instance, are
shared library memory sizes added to each program that uses that library?
How are copy-on-write fork/exec semantics handled etc etc.
Joost.
------------------------------
Date: Fri, 30 Nov 2007 15:11:18 -0800 (PST)
From: smallpond <smallpond@juno.com>
Subject: Re: Why is a perl script 'sleep 100' uses 100 MEGS of RAM
Message-Id: <59af26a5-d82a-4c1b-8635-505449f3d62a@t47g2000hsc.googlegroups.com>
On Nov 30, 4:26 pm, Joost Diepenmaat <jo...@zeekat.nl> wrote:
> On Fri, 30 Nov 2007 09:25:55 -0800, smallpond wrote:
> > Neither VSZ nor RSZ mean much. VSZ corresponds to no practical limit on
> > a 64-bit system, and RSZ includes all linked shared libraries that
> > are currently resident.
>
> Can you or anyone else tell me where to find more information about how
> to interpret a processes' virtual memory stats as given by top or ps on
> linux (and/or other unix-like systems). This has been bugging me for
> quite a while now.
>
> A good explanation on why they're useless (as you claim) would also be
> good. I'm just trying to figure out what's what.
>
> ps: my ps manual claims that -vsz memory is reported in 1Kb blocks (not
> 4k blocks as you stated)
>
> Joost.
You're right, it is in multiples of 1024 bytes, I was remembering
wrong. As for a reference, you could look at the kernel source
documentation for the proc filesystem, which is how ps gets its
information. Ultimately, it all comes from the process table
in the kernel.
See: Documentation/filesystems/proc.txt
------------------------------
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 1084
***************************************
