[24260] in Perl-Users-Digest
Perl-Users Digest, Issue: 6451 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Apr 23 11:06:00 2004
Date: Fri, 23 Apr 2004 08:05:14 -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 Fri, 23 Apr 2004 Volume: 10 Number: 6451
Today's topics:
assigning variable to a pipe (mike)
Re: assigning variable to a pipe (Anno Siegel)
Re: autobox <bik.mido@tiscalinet.it>
Re: free source guestbook (finished) <bik.mido@tiscalinet.it>
Grep in sub directories <bill@hotmail.com>
Re: Grep in sub directories <mothra@mothra.pub>
Re: Grep in sub directories <bill@hotmail.com>
Re: Grep in sub directories <tore@aursand.no>
Re: Grep in sub directories <mothra@mothra.pub>
Re: inefficient regex (clarified) <mothra@mothra.pub>
Re: inefficient regex (clarified) <mothra@mothra.pub>
inefficient regex - please help! <mothra@mothra.pub>
Re: inefficient regex - please help! <for-spammers-only@web.de>
Re: inefficient regex - please help! <noreply@gunnar.cc>
Re: inefficient regex - please help! <mothra@mothra.pub>
Re: inefficient regex - please help! <mothra@mothra.pub>
Re: inefficient regex - please help! <tore@aursand.no>
Insecure dependency in unlink while running with -T swi <arthur0421@163.com>
Re: Insecure dependency in unlink while running with -T <noreply@gunnar.cc>
Is this a valid number? (AShrestha)
Re: Is this a valid number? <thepoet_nospam@arcor.de>
Re: Is this a valid number? <1usa@llenroc.ude>
Re: need a good module. <Joe.Smith@inwap.com>
Re: need a good module. <bik.mido@tiscalinet.it>
Re: operator <jurgenex@hotmail.com>
Re: perl book list <remorse@partners.org>
Re: perl <jurgenex@hotmail.com>
Re: perl <wi@rjsolutions.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 23 Apr 2004 01:06:14 -0700
From: s99999999s2003@yahoo.com (mike)
Subject: assigning variable to a pipe
Message-Id: <dfd17ef4.0404230006.56508098@posting.google.com>
hi
i have a piece of code like this
open CMD ,"| wc -l " or die "blah blah: $!\n";
print CMD "ls -l" ;
how can i assign a variable (or array ) to store the output of print
CMD "ls -l" statement??
thanks...
------------------------------
Date: 23 Apr 2004 08:24:45 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: assigning variable to a pipe
Message-Id: <c6ajsd$gs2$1@mamenchi.zrz.TU-Berlin.DE>
mike <s99999999s2003@yahoo.com> wrote in comp.lang.perl.misc:
> hi
>
> i have a piece of code like this
>
> open CMD ,"| wc -l " or die "blah blah: $!\n";
> print CMD "ls -l" ;
>
> how can i assign a variable (or array ) to store the output of print
> CMD "ls -l" statement??
That's "assigning a variable to a pipe"?
It looks like what you're trying to do would be easier accomplished with
a shell script. With Perl, you want IPC::Open2 for that.
Anno
------------------------------
Date: Fri, 23 Apr 2004 12:29:59 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: autobox
Message-Id: <hgih80574j3slcvk30h0dqhhib3tju6eb5@4ax.com>
On 21 Apr 2004 20:57:06 GMT, "Tassilo v. Parseval"
<tassilo.parseval@rwth-aachen.de> wrote:
>You find the complete thread starting with this article here:
>
> http://tinyurl.com/3cegc
TY, I've read it at length: hope they will change their mind first or
later! BTW: since it has not been mentioned in that thread, but it has
here, what goes on with qr//?!? i.e., does it return a *blessed*
refence into Regexp or does perl just fake it has? Also, I'd like to
know what those objecting that autoboxing is not consistent with
current Perl's semantics think about this particular, isolated,
instance of autoboxing...
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Fri, 23 Apr 2004 16:35:15 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: free source guestbook (finished)
Message-Id: <huth80lvl25tph5ukqgo6snbd7mmm01ujo@4ax.com>
On Thu, 22 Apr 2004 11:33:23 -0700, "Robin" <robin @ infusedlight.net>
wrote:
[snip *252* lines of unneccessary quoted content, including .sig!]
>thanks tassilo, thanks bigtime, I shall probably get back to work on it
Please take also some time to learn how to quote and post properly so
that your articles are not such a PITA. Posting guidelines are posted
here regularly just for this purpose...
>soon. This is great advice. BTW, the /g modifier means global replace.
I have a *slight* (but mind you: only very slight!) feeling that
Tassilo already knows what /g does mean, but that he was asking *why*
you were doing a global replace!
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Fri, 23 Apr 2004 13:21:08 GMT
From: "blnukem" <bill@hotmail.com>
Subject: Grep in sub directories
Message-Id: <8L8ic.106753$_g4.25066638@news4.srv.hcvlny.cv.net>
Hi All
How do I grep all files with a html extension and html files in sub
directories?
Thanks
Blnukem
------------------------------
Date: Fri, 23 Apr 2004 14:37:45 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: Grep in sub directories
Message-Id: <c6b65e$s50$1@newsg4.svr.pol.co.uk>
"blnukem" <bill@hotmail.com> wrote in message
news:8L8ic.106753$_g4.25066638@news4.srv.hcvlny.cv.net...
> Hi All
>
> How do I grep all files with a html extension and html files in sub
> directories?
>
> Thanks
> Blnukem
>
What code have you written so far? Where are you getting stuck?
------------------------------
Date: Fri, 23 Apr 2004 13:48:22 GMT
From: "blnukem" <bill@hotmail.com>
Subject: Re: Grep in sub directories
Message-Id: <G89ic.107033$_g4.25137832@news4.srv.hcvlny.cv.net>
"Mothra" <mothra@mothra.pub> wrote in message
news:c6b65e$s50$1@newsg4.svr.pol.co.uk...
> "blnukem" <bill@hotmail.com> wrote in message
> news:8L8ic.106753$_g4.25066638@news4.srv.hcvlny.cv.net...
> > Hi All
> >
> > How do I grep all files with a html extension and html files in sub
> > directories?
> >
> > Thanks
> > Blnukem
> >
> What code have you written so far? Where are you getting stuck?
>
>
opendir DIR, "../";
@htmlpages = grep /\.html$/i, readdir DIR;
print "@htmlpages";
------------------------------
Date: Fri, 23 Apr 2004 16:10:50 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: Grep in sub directories
Message-Id: <pan.2004.04.23.14.10.09.908936@aursand.no>
On Fri, 23 Apr 2004 13:21:08 +0000, blnukem wrote:
> How do I grep all files with a html extension and html files in sub
> directories?
perldoc File::Find
perldoc File::Find::Rule
perldoc -f grep
--
Tore Aursand <tore@aursand.no>
"When you love someone, all your saved-up wishes start coming out."
(Elizabeth Bowen)
------------------------------
Date: Fri, 23 Apr 2004 15:30:53 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: Grep in sub directories
Message-Id: <c6b992$mu6$1@news5.svr.pol.co.uk>
"blnukem" <bill@hotmail.com> wrote in message
news:G89ic.107033$_g4.25137832@news4.srv.hcvlny.cv.net...
>
> "Mothra" <mothra@mothra.pub> wrote in message
> news:c6b65e$s50$1@newsg4.svr.pol.co.uk...
> > "blnukem" <bill@hotmail.com> wrote in message
> > news:8L8ic.106753$_g4.25066638@news4.srv.hcvlny.cv.net...
> > > Hi All
> > >
> > > How do I grep all files with a html extension and html files in sub
> > > directories?
> > >
> > > Thanks
> > > Blnukem
> > >
> > What code have you written so far? Where are you getting stuck?
> >
> >
>
>
> opendir DIR, "../";
> @htmlpages = grep /\.html$/i, readdir DIR;
>
> print "@htmlpages";
>
>
OK, if you're wanting to search recursively, you need to make your code
recursive too. Here is an example (inspired by an example in the book "Perl
for System Administration" from O'Reilly) that keeps track of where you
started and then keeps running the 'scan' sub routine from within itself.
Any files ending in '.html' are pushed into the @htmlpages array.
I recommend that book by the way :-)
------------------
#!/usr/bin/perl -w
use strict;
use Cwd;
my @htmlpages;
sub scan{
my $currentdir = shift;
my $startdir = &cwd;
chdir($currentdir);
opendir(DIR, '.');
my @files = readdir(DIR);
closedir(DIR);
foreach (@files){
next if /^\./;
if (-d $_){
&scan($_);
next;
}
if (/\.html$/) {
push (@htmlpages, $_)
}
}
chdir($startdir);
}
&scan('.');
print @htmlpages;
------------------------------
Date: Fri, 23 Apr 2004 15:46:28 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: inefficient regex (clarified)
Message-Id: <c6ba68$k5d$1@news6.svr.pol.co.uk>
OK, I just posted an earlier request, but wasn't clear enough about what I
wanted - my bad :-$
I need a regex string that performs the same function as this:
/(.*Lost connection.*(\n.*)*){8}/
but that runs more quickly when scanning a text file.
It needs to be a regex solution, as the program I need it for only accepts
perl regular expression syntax (rather than perl itself) to scan log files.
The above example is crude and slow and I reckon there must be a better way
to do it.
Any takers?
------------------------------
Date: Fri, 23 Apr 2004 15:59:46 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: inefficient regex (clarified)
Message-Id: <c6bav8$vu5$1@newsg4.svr.pol.co.uk>
"Mothra" <mothra@mothra.pub> wrote in message
news:c6ba68$k5d$1@news6.svr.pol.co.uk...
> OK, I just posted an earlier request, but wasn't clear enough about what I
> wanted - my bad :-$
>
> I need a regex string that performs the same function as this:
>
> /(.*Lost connection.*(\n.*)*){8}/
>
> but that runs more quickly when scanning a text file.
>
OK I managed to make it less ugly with:
/(Lost connection.*){19}/s
when I discovered that the 's' allows dot to match a newline character, but
it's still quite slow when you want to match say 40 occurences in a file
that only actually contains 4.
Is it because the regex is having to backtrack through the entire string
each time it tries to ascertain whether or not the limit has been reached?
------------------------------
Date: Fri, 23 Apr 2004 14:01:58 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: inefficient regex - please help!
Message-Id: <c6b42a$f7r$1@news6.svr.pol.co.uk>
Am trying to match n occurences of a phrase ("Lost connection") in a text
file.
Here's the code I;ve got so far (I'm reading the whole file into the scalar
$lines)...
if ($lines =~ /(.*Lost connection.*(\n.*)*{4}/) {
print "yep\n";
} else {
print "nope\n";
}
The above works and prints "yep" if 4 or more occurences are found; however,
it's quite slow and if I want to match more occurences (e.g. 9) it takes
forever: almost as if the length of time the script takes to run is being
raised to the power of the number of occurences I'm trying to match!
How could I rewrite this regex more efficiently?
------------------------------
Date: Fri, 23 Apr 2004 15:37:32 +0200
From: Toni Erdmann <for-spammers-only@web.de>
Subject: Re: inefficient regex - please help!
Message-Id: <c6b66t$ods$1@news.mch.sbs.de>
Mothra wrote:
> Am trying to match n occurences of a phrase ("Lost connection") in a text
> file.
>
> Here's the code I;ve got so far (I'm reading the whole file into the scalar
> $lines)...
>
> if ($lines =~ /(.*Lost connection.*(\n.*)*{4}/) {
> print "yep\n";
> } else {
> print "nope\n";
> }
>
> The above works and prints "yep" if 4 or more occurences are found; however,
> it's quite slow and if I want to match more occurences (e.g. 9) it takes
> forever: almost as if the length of time the script takes to run is being
> raised to the power of the number of occurences I'm trying to match!
>
> How could I rewrite this regex more efficiently?
>
$count = 0;
while ($lines=~ /Lost connection/g) { $count++; }
You can 'break' the while loop: 'break if ( $count >= 4 );'
or any number you like
Toni
------------------------------
Date: Fri, 23 Apr 2004 15:38:53 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: inefficient regex - please help!
Message-Id: <c6b6mq$9urin$1@ID-184292.news.uni-berlin.de>
Mothra wrote:
> Am trying to match n occurences of a phrase ("Lost connection") in
> a text file.
>
> Here's the code I;ve got so far (I'm reading the whole file into
> the scalar $lines)...
>
> if ($lines =~ /(.*Lost connection.*(\n.*)*{4}/) {
> print "yep\n";
> } else {
> print "nope\n";
> }
Hmm.. Yes, the regex seems unnecessarily complicated. Another approach:
my $cnt;
while ($lines =~ /Lost connection/g) {
if (++$cnt == 4) {
print "yep\n";
last;
}
}
print "nope\n" unless $cnt == 4;
Maybe not very elegant, but I'd guess it's faster.
The index() function might be an alternative, since the pattern is a
plain string.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: Fri, 23 Apr 2004 14:51:46 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: inefficient regex - please help!
Message-Id: <c6b6vn$l7s$1@news5.svr.pol.co.uk>
"Toni Erdmann" <for-spammers-only@web.de> wrote in message
news:c6b66t$ods$1@news.mch.sbs.de...
> Mothra wrote:
>
> > Am trying to match n occurences of a phrase ("Lost connection") in a
text
> > file.
> >
> > Here's the code I;ve got so far (I'm reading the whole file into the
scalar
> > $lines)...
> >
<snip>
> > How could I rewrite this regex more efficiently?
> >
>
> $count = 0;
> while ($lines=~ /Lost connection/g) { $count++; }
>
> You can 'break' the while loop: 'break if ( $count >= 4 );'
> or any number you like
>
Sorry but I meant specifically "how can I write the regex" part more
efficiently, i.e. counting the occurences of the phrase by using regex
against the scalar. The regex is actually needed for a separate program -
the script I posted was just an example. Sorry, should have been more clear
about that.
------------------------------
Date: Fri, 23 Apr 2004 14:53:55 +0100
From: "Mothra" <mothra@mothra.pub>
Subject: Re: inefficient regex - please help!
Message-Id: <c6b73o$su5$1@newsg4.svr.pol.co.uk>
sorry - see response above, but I need to do the whole thing in regex.
------------------------------
Date: Fri, 23 Apr 2004 16:10:50 +0200
From: Tore Aursand <tore@aursand.no>
Subject: Re: inefficient regex - please help!
Message-Id: <pan.2004.04.23.14.08.24.212536@aursand.no>
On Fri, 23 Apr 2004 14:01:58 +0100, Mothra wrote:
> Am trying to match n occurences of a phrase ("Lost connection") in a text
> file.
>
> Here's the code I;ve got so far (I'm reading the whole file into the scalar
> $lines)...
>
> if ($lines =~ /(.*Lost connection.*(\n.*)*{4}/) {
> print "yep\n";
> } else {
> print "nope\n";
> }
How about this?
my $count;
$count++ while ( $lines =~ /Lost connection/g );
--
Tore Aursand <tore@aursand.no>
"I am become Death, shatterer of worlds." (J. Robert Oppenheimer, upon
witnessing the explosion of the first atomic bomb.)
------------------------------
Date: Fri, 23 Apr 2004 22:10:08 +0800
From: Regent <arthur0421@163.com>
Subject: Insecure dependency in unlink while running with -T switch
Message-Id: <c6b84e$j9j$1@mail.cn99.com>
I must say I'm a newbie, writing a script that tries to unlink a
particular file. Both the name of the file and that of the folder are
variable scalar strings. Now that I habitually write with -T and
strictures, I always get the error message "Insecure dependency in
unlink while running with -T switch". The relevant block of code:
if ("$root/$uploadDir/$origfn" ne "")
{
my $toDel = "$root/$uploadDir/$origfn";
unlink ($toDel) or die "$!";
}
where $root is the root path of the web site, $uploadDir is a folder for
temporary uploads, $origfn is the name of the file to be deleted.
How do I solve this problem? Thanks
--
Regent
------------------------------
Date: Fri, 23 Apr 2004 16:15:52 +0200
From: Gunnar Hjalmarsson <noreply@gunnar.cc>
Subject: Re: Insecure dependency in unlink while running with -T switch
Message-Id: <c6b8s7$9vk4r$1@ID-184292.news.uni-berlin.de>
Regent wrote:
> I must say I'm a newbie, writing a script that tries to unlink a
> particular file. Both the name of the file and that of the folder
> are variable scalar strings. Now that I habitually write with -T
> and strictures, I always get the error message "Insecure dependency
> in unlink while running with -T switch".
<snip>
> How do I solve this problem?
You learn how to untaint a tainted variable by studying "perldoc
perlsec". If you "habitually" have -T enabled, I can't believe that
you haven't done so before.
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
------------------------------
Date: 23 Apr 2004 06:15:23 -0700
From: ashokshrestha@hotmail.com (AShrestha)
Subject: Is this a valid number?
Message-Id: <af27ad0b.0404230515.71fcffe3@posting.google.com>
Hi,
I am checking to see if an $a is valid number (could be 12 12. 12.0
.12). The logic I used was to check for only digits with no or one \.
character. I am not able to get the right answer with this? Help
appreciated
regards,
AS
#!/usr/bin/perl
$a= "11.2.";
if ($a != /(\D+ & [^\.?])/) {
print "$a it VALID\n";
} else {
print "INVALID number\n";
}
------------------------------
Date: Fri, 23 Apr 2004 15:28:41 +0200
From: Christian Winter <thepoet_nospam@arcor.de>
Subject: Re: Is this a valid number?
Message-Id: <40891a09$0$26756$9b4e6d93@newsread4.arcor-online.net>
AShrestha schrieb:
> Hi,
>
> I am checking to see if an $a is valid number (could be 12 12. 12.0
> .12). The logic I used was to check for only digits with no or one \.
> character. I am not able to get the right answer with this? Help
> appreciated
typing "perldoc -q number" on the command line will lead you
to a working solution. In the section
"How do I determine whether a scalar is a number/whole/integer/float?"
you will find examples for different definitions of "number".
"perldoc perlre" helps you understand what those regexes do.
HTH
-Christian
------------------------------
Date: 23 Apr 2004 14:37:07 GMT
From: "A. Sinan Unur" <1usa@llenroc.ude>
Subject: Re: Is this a valid number?
Message-Id: <Xns94D46C0557989asu1cornelledu@132.236.56.8>
ashokshrestha@hotmail.com (AShrestha) wrote in
news:af27ad0b.0404230515.71fcffe3@posting.google.com:
> Hi,
>
> I am checking to see if an $a is valid number (could be 12 12. 12.0
> .12).
http://search.cpan.org/~abigail/Regexp-Common-
2.113/lib/Regexp/Common/number.pm
In case the URL does not display properly, you can also use:
http://tinyurl.com/2n49v
--
A. Sinan Unur
1usa@llenroc.ude (reverse each component for email address)
------------------------------
Date: Fri, 23 Apr 2004 08:56:34 GMT
From: Joe Smith <Joe.Smith@inwap.com>
Subject: Re: need a good module.
Message-Id: <2T4ic.6937$cF6.340516@attbi_s04>
Robin wrote:
> Does anyone know of any modules that create and display dynamically
> dhtml/css layers?
Display as what? Fixed-width text on an 80 column by 24 line screen?
------------------------------
Date: Fri, 23 Apr 2004 16:35:16 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: need a good module.
Message-Id: <onuh80pdhpqo7ftut94bjlu90e899lpgbu@4ax.com>
On Fri, 23 Apr 2004 03:03:07 GMT, Uri Guttman <uri@stemsystems.com>
wrote:
>i use Delete::Robin all the time. i highly recommend it.
>
>why do these dumb self-taught coders never realize how little we care
>about their opinions or code? is it some self-delusion that they
Dear URI,
I, for one, slightly *disagree* with you: while I find too that most
threads started by Robin are a real PITA, I don't see why *a priori*
self-taught coders' opinons/code should not be cared. Of course it
would be better if they accepted more intelligently the suggestions
they receive, but then again I, for one, am a self-taught coder
happily perling mostly everyday on a non-professional basis *and*
AFAICT you've never complained with me like this, yet, my very first
posts here were not much better than Robin's. (I suppose!)
$uri->kindness->increase_by(10);
$uri->elitarism->increase_by(-10);
Just my two Eurocents,
Michele
--
you'll see that it shouldn't be so. AND, the writting as usuall is
fantastic incompetent. To illustrate, i quote:
- Xah Lee trolling on clpmisc,
"perl bug File::Basename and Perl's nature"
------------------------------
Date: Fri, 23 Apr 2004 09:59:03 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: operator
Message-Id: <HN5ic.27021$Aq.17601@nwrddc03.gnilink.net>
kums wrote:
> tell me the difference between the substitution operator(s) and
> transliteration operator(tr)
Which part of the perldoc pages do you have problems with?
jue
------------------------------
Date: Fri, 23 Apr 2004 10:49:09 -0400
From: Richard Morse <remorse@partners.org>
Subject: Re: perl book list
Message-Id: <remorse-31CEA9.10490923042004@plato.harvard.edu>
In article <c69phf$jae$1@reader2.nmix.net>,
"Robin" <robin @ infusedlight.net> wrote:
> Title: Programming Perl
> Author(s): Larry Wall, Tom Christiansen & Randal L. Schwartz
>
> The grand-daddy of all Perl books, now in it's second edition!
^^^^^^
I think this explains a lot...
Ricky
--
Pukku
------------------------------
Date: Fri, 23 Apr 2004 10:00:38 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: perl
Message-Id: <aP5ic.27024$Aq.23516@nwrddc03.gnilink.net>
kums wrote:
> why we are using perl?
> what is the perl's usage and advantages?
Which part of the "perldoc perl" do you have problems with?
jue
------------------------------
Date: Fri, 23 Apr 2004 08:30:37 -0400
From: "Rich Bogle" <wi@rjsolutions.org>
Subject: Re: perl
Message-Id: <c6b29f$2j7v$1@msunews.cl.msu.edu>
perl's advantages are very numerous and it would take days to list them all
here. Read up on it, there is enough info available to keep you busy for a
long time.
"kums" <bckumari@yahoo.com> wrote in message
news:3a83479f9333ef9d7438fbe705cf0c5b@localhost.talkaboutprogramming.com...
> why we are using perl?
> what is the perl's usage and advantages?
>
------------------------------
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 V10 Issue 6451
***************************************
