[24541] in Perl-Users-Digest
Perl-Users Digest, Issue: 6719 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 23 14:05:47 2004
Date: Wed, 23 Jun 2004 11:05:07 -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 Wed, 23 Jun 2004 Volume: 10 Number: 6719
Today's topics:
Re: $NF for perl <bmb@ginger.libs.uga.edu>
Re: 2 queries- first day of month and reading zipped f (Shalini Joshi)
Re: 2 queries- first day of month and reading zipped f <pinyaj@rpi.edu>
Re: 2 queries- first day of month and reading zipped f <mr_itty@gmail.com>
Re: anonymous fork, one writer, many readers (Edouard GAULUE)
Dealing with lists with SWIG. <mlanzkron@yahoo.co.uk>
Re: Dealing with lists with SWIG. <tassilo.parseval@rwth-aachen.de>
how add the multi, or arbitrary precision capability to (Jack)
Re: how add the multi, or arbitrary precision capabilit <mritty@gmail.com>
Re: Idiom for partitioning array? <mhunter@berkeley.edu>
Re: Idiom for partitioning array? <bmb@ginger.libs.uga.edu>
Re: Perl editors and debuggers ctcgag@hotmail.com
Regexp, Strings and spaces (Florent Carli)
Re: Regexp, Strings and spaces (Anno Siegel)
Re: Regexp, Strings and spaces (J. Romano)
Re: Using Perl to create user accounts on Windows 2003 (Daniel Berger)
WWW::RobotRules <boatingN.O.S.P.A.M@cox.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 23 Jun 2004 12:03:05 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: $NF for perl
Message-Id: <Pine.A41.4.58.0406231151450.15334@ginger.libs.uga.edu>
On Fri, 18 Jun 2004, Richard Morse wrote:
> In article <Pine.A41.4.58.0406051847200.7498@ginger.libs.uga.edu>,
> Brad Baxter <bmb@ginger.libs.uga.edu> wrote:
>
> > And the assignment to $n... provides the scalar context, so scalar() isn't
> > needed. There are good reasons not to use scalar() when it isn't needed.
>
> What would such reasons be? I often use it for clarity's sake even when
> it isn't strictly necessary -- what side effects does it have that might
> be invidious? `perldoc -f scalar` and `perldoc -q scalar` don't seem to
> note any deleterious side effects...
Others have given their points of view, with which I essentially agree.
I'll add that for myself, if I see scalar (for example) used when it isn't
needed, I wonder if perhaps there's a typo in that line, i.e., did the
programmer mean to have something different there and didn't notice? So
rather than clarifying the usage, it creates a mental speed bump. Of
course, you could put a comment that explains 'scalar' is there for
clarity, but that would be a bit over the top. :-)
Regards,
Brad
------------------------------
Date: 23 Jun 2004 09:46:04 -0700
From: shalinij1@yahoo.com (Shalini Joshi)
Subject: Re: 2 queries- first day of month and reading zipped files directly off server
Message-Id: <283d6b7e.0406230846.2f8852b2@posting.google.com>
Hey.
This is the code I came up with. I am just looking for the first day
of the month, but I still had to use the heavy Date::Manip module.
THis is what I came up with. I was working on a linux system with perl
5.0.8(or some such).It has the Date::Manip module inbuilt but doesnt
have hte Date::Calc one!
use Date::Manip;
#use Date::Calc qw(:all);
my @records;
my $i;
my $wanted_handle;
my @selected_records;
my $date;
my $cpday;
my $cpmonth;
my $cpyear;
my $cpdate;
my $cpfilename;
my %parameters;
my $year;
my $month;
my $day;
my $today;
local $[=1;
open RECORDS, "< AETNA1.txt " or die "Can't read file: $!";
$today=&ParseDate("today");
print "Today's date is $today\n";
$day= &UnixDate($today,"%d");
$month=&UnixDate($today,"%m");
$year=&UnixDate($today,"%Y");
print "$day\n";
print "$month\n";
print "$year\n";
if ($day == 01)
{
print "Today is the first day of the month!!\n";
print "We are going to read the Account Position File!\n";
}
else
{
print "Today is not the first day of the month!!\n";
print "We will make do with the Daily Activity File!\n";
};
That was indeed straightforward!
Thanks for all the help again.
--Shalini
------------------------------
Date: Wed, 23 Jun 2004 12:59:00 -0400
From: Jeff 'japhy' Pinyan <pinyaj@rpi.edu>
To: Shalini Joshi <shalinij1@yahoo.com>
Subject: Re: 2 queries- first day of month and reading zipped files directly off server
Message-Id: <Pine.SGI.3.96.1040623125743.42263A-100000@vcmr-64.server.rpi.edu>
[posted & mailed]
On 23 Jun 2004, Shalini Joshi wrote:
>local $[=1;
WHOA. What on EARTH did you do THAT for?
>$today=&ParseDate("today");
>print "Today's date is $today\n";
>$day= &UnixDate($today,"%d");
>$month=&UnixDate($today,"%m");
>$year=&UnixDate($today,"%Y");
>
>print "$day\n";
>print "$month\n";
>print "$year\n";
>
>if ($day == 01)
That's a whole lot of work. Determining if today is the first of the
month is a far simpler task, and doesn't require a module.
if ( (localtime)[3] == 1 ) {
# today is the first of the month
}
perldoc -f localtime
--
Jeff Pinyan RPI Acacia Brother #734 RPI Acacia Corp Secretary
"And I vos head of Gestapo for ten | Michael Palin (as Heinrich Bimmler)
years. Ah! Five years! Nein! No! | in: The North Minehead Bye-Election
Oh. Was NOT head of Gestapo AT ALL!" | (Monty Python's Flying Circus)
------------------------------
Date: Wed, 23 Jun 2004 13:04:59 -0400
From: Paul Lalli <mr_itty@gmail.com>
Subject: Re: 2 queries- first day of month and reading zipped files directly off server
Message-Id: <20040623125654.Y23512@dishwasher.cs.rpi.edu>
On Wed, 23 Jun 2004, Shalini Joshi wrote:
> Hey.
>
> This is the code I came up with. I am just looking for the first day
> of the month, but I still had to use the heavy Date::Manip module.
No, you don't have to. You *can*, but you don't have to. As someone else
in this thread pointed out, if all you want is the date of the month, the
built in (and far less heavy) localtime() function could be all you need.
> THis is what I came up with. I was working on a linux system with perl
> 5.0.8(or some such).
Most likely 5.8.0 - run `perl -v` to verify.
> It has the Date::Manip module inbuilt
Yes, Date::Manip is a standard module.
> but doesnt have hte Date::Calc one!
Date::Calc is available from CPAN: www.cpan.org
> use Date::Manip;
>
>
> #use Date::Calc qw(:all);
> my @records;
> my $i;
> my $wanted_handle;
> my @selected_records;
> my $date;
> my $cpday;
> my $cpmonth;
> my $cpyear;
> my $cpdate;
> my $cpfilename;
> my %parameters;
> my $year;
> my $month;
> my $day;
> my $today;
I'm going to guess that you use all these somewhere else in your actual
code? If not, please get rid of them. Declaring variables that you don't
use is bad coding style.
> local $[=1;
Why are you changing the first index of arrays, and first indices of
substrings? Who (or what documentation) told you to do this, and for what
purpose?
> open RECORDS, "< AETNA1.txt " or die "Can't read file: $!";
>
> $today=&ParseDate("today");
You generally don't want to call subroutines by prefixing them with the &,
even if you occasionally see it in documentation. It causes side affects
that are almost always unwanted.
> print "Today's date is $today\n";
> $day= &UnixDate($today,"%d");
> $month=&UnixDate($today,"%m");
> $year=&UnixDate($today,"%Y");
>
> print "$day\n";
> print "$month\n";
> print "$year\n";
>
> if ($day == 01)
this works, of course, but just to be picky, you don't need to specify 1
as 01. If you were doing a string comparison, you would indeed have to
do:
if ($day eq '01')
but you were comparing numerically.
As mentioned earlier, if you really just need the day of the month, you
can skip all that parseDate stuff and just make a call to localtime in
list context, and take the fourth element from it:
my $day = (localtime)[3];
perldoc -f localtime
will help you understand what localtime returns.
Hope this helps,
Paul Lalli
> {
> print "Today is the first day of the month!!\n";
> print "We are going to read the Account Position File!\n";
>
>
> }
>
> else
> {
> print "Today is not the first day of the month!!\n";
> print "We will make do with the Daily Activity File!\n";
> };
>
>
>
> That was indeed straightforward!
>
> Thanks for all the help again.
>
> --Shalini
>
------------------------------
Date: 23 Jun 2004 10:06:51 -0700
From: Edouard.Gaulue@ensg.ign.fr (Edouard GAULUE)
Subject: Re: anonymous fork, one writer, many readers
Message-Id: <77a8fc.0406230906.7d80565e@posting.google.com>
*****************************************
Using stio (not working, it's a shame) :
*****************************************
#!/usr/bin/perl
use POSIX;
$|=1;
$nb_test_elem=50;
$nprocs_ftp=5;
pipe READER, WRITER ;
select((select(WRITER),$|=1)[0]);
$i=0;
while (1) {
if ( $nb_procs < $nprocs_ftp ){
undef $pidfils;
unless($pidfils=fork) {
$|=1;
close WRITER;
while ( $indice=<READER> ) {
chomp $indice;
print "$$:".($i+1).":$indice\n";
sleep ($i+1);
}
close READER;
exit 5 ;
}
if(defined($pidfils) && ($pidfils>0)) {
$nb_procs++;
print ( "$pidfils ($nb_procs) child process started\n");
}
else {
print "Error starting child process $pidfils\n";
}
}
if ($i == 0) {close READER;print "!!! Close father READER !!!\n";}
if ($i<$nb_test_elem) {
print WRITER "$i\n";
$i++;
}
elsif ($i==$nb_test_elem) {
close WRITER;
print "!!! Close father WRITER !!!\n";
$i++;
}
if ($pid=waitpid(-1, &WNOHANG))
{
$exit_value = $? >> 8;
if ($pid > 0) {
$nb_procs--;
print("Lost child process $pid ($exit_value) ! (steel have
$nb_procs)\n");
}
if ($exit_value == 5 and $i > $nb_test_elem ) {print "Received
exit demand\n";last;}
}
} # End while(1)
************************************
using sysread, syswrite (working) :
************************************
#!/usr/bin/perl
use POSIX;
$|=1;
$nb_test_elem=50;
$nprocs_ftp=5;
$width=8;
pipe READER, WRITER ;
select((select(WRITER),$|=1)[0]);
$i=0;
while (1) {
if ( $nb_procs < $nprocs_ftp ){
undef $pidfils;
unless($pidfils=fork) {
$|=1;
close WRITER;
while ( sysread READER, $indice,width ) {
print "$$:".($i+1).":$indice\n";
sleep ($i+1);
}
close READER;
exit 5 ;
}
if(defined($pidfils) && ($pidfils>0)) {
$nb_procs++;
print ( "$pidfils ($nb_procs) child process started\n");
}
else {
print "Error starting child process $pidfils\n";
}
}
if ($i == 0) {close READER;print "!!! Close father READER !!!\n";}
if ($i<$nb_test_elem) {
syswrite WRITER,sprintf("%${width}.0d",$i);
$i++;
}
elsif ($i==$nb_test_elem) {
close WRITER;
print "!!! Close father WRITER !!!\n";
$i++;
}
if ($pid=waitpid(-1, &WNOHANG))
{
$exit_value = $? >> 8;
print "i=$i et proc=$nb_procs et $pid\n";
if ($pid > 0) {
$nb_procs--;
print("Lost child process $pid ($exit_value) ! (steel have
$nb_procs)\n");
}
if ($exit_value == 5 and $i > $nb_test_elem ) {print "Received
exit value\n";last;}
}
} # End while(1)
*********
Question
*********
Why doesn't it work with normal read and write ? Is there a way to use
them anyway by changing some parameters ?
What is the portability of the second code ?
Thanks, EG
------------------------------
Date: Wed, 23 Jun 2004 13:23:36 +0300
From: Motti Lanzkron <mlanzkron@yahoo.co.uk>
Subject: Dealing with lists with SWIG.
Message-Id: <qekid01tmoteklgq7ppooeu4b7a32jd5ud@4ax.com>
I'm trying to write a Perl module in C++ and I've downloaded SWIG.
But I'm having trouble finding how to deal with lists. The examples I
see only deal with scalars.
Perl: C++:
------------------------------------
sub foo { 1 } => int foo() { return 1; }
sub bar { (1..10) } => ????
What code do I in C++ write if I want to return a list of integers?
------------------------------
Date: Wed, 23 Jun 2004 19:28:16 +0200
From: "Tassilo v. Parseval" <tassilo.parseval@rwth-aachen.de>
Subject: Re: Dealing with lists with SWIG.
Message-Id: <2jtstiF14ob51U1@uni-berlin.de>
Also sprach Motti Lanzkron:
> I'm trying to write a Perl module in C++ and I've downloaded SWIG.
> But I'm having trouble finding how to deal with lists. The examples I
> see only deal with scalars.
>
> Perl: C++:
> ------------------------------------
> sub foo { 1 } => int foo() { return 1; }
> sub bar { (1..10) } => ????
>
> What code do I in C++ write if I want to return a list of integers?
I don't know much about SWIG other than that I dropped it after a few
minutes of disgust when I had a look at it a couple of years ago. Does
it help if you know how you'd do it in XS? It would look like:
void
bar ()
CODE:
{
register int i;
EXTEND(SP, 10); /* make room for ten values */
for (i = 0; i < 10; i++) {
ST(i) = sv_newmortal();
sv_setiv(ST(i), i);
}
XSRETURN(10);
}
Maybe you have the time and patience to make yourself acquainted with XS
or Inline::C. It is probably more difficult at the beginning, but it has
advantages on the long run. One advantage is that you can get help much
more easily.
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: 23 Jun 2004 10:12:17 -0700
From: jack_posemsky@yahoo.com (Jack)
Subject: how add the multi, or arbitrary precision capability to perl programs
Message-Id: <209b7e58.0406230912.5bf378d9@posting.google.com>
Greetings, I am trying to work beyond 15 floating pt decimal places in
my perl calculations, wondering where to find info on how display and
calculate at a higher level of precision.. is it a special library ?
Thank you,
Jack
------------------------------
Date: Wed, 23 Jun 2004 13:18:07 -0400
From: Paul Lalli <mritty@gmail.com>
Subject: Re: how add the multi, or arbitrary precision capability to perl programs
Message-Id: <20040623131727.B23512@dishwasher.cs.rpi.edu>
On Wed, 23 Jun 2004, Jack wrote:
> Greetings, I am trying to work beyond 15 floating pt decimal places in
> my perl calculations, wondering where to find info on how display and
> calculate at a higher level of precision.. is it a special library ?
Have a look at
perldoc Math::BigFloat
That might do what you want.
Paul Lalli
------------------------------
Date: Wed, 23 Jun 2004 16:59:01 +0000 (UTC)
From: Mike Hunter <mhunter@berkeley.edu>
Subject: Re: Idiom for partitioning array?
Message-Id: <slrncdjdj7.pt.mhunter@celeste.net.berkeley.edu>
On 23 Jun 2004 09:56:40 GMT, Anno Siegel wrote:
> J Krugman <jkrugman345@yahbitoo.com> wrote in comp.lang.perl.misc:
> >
> >
> > Is there a nice Perl idiom for partitioning an array of length N
> > into "subarrays of length n" (i.e. array refs pointing to arrays
> > of length n)? (If N is not a multiple of n, the last entry of the
> > partitioned array should be a subarray of length N mod n.) For
> > example, if n = 3, and the input array is
> >
> > ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h')
> >
> > the partitioned array should be:
> >
> > (['a', 'b', 'c'], ['d', 'e', 'f'], ['g', 'h'])
>
> map [ splice @a, 0, $n], 0 .. $#a/$n;
Winner! (Sick!)
Mike
------------------------------
Date: Wed, 23 Jun 2004 13:41:18 -0400
From: Brad Baxter <bmb@ginger.libs.uga.edu>
Subject: Re: Idiom for partitioning array?
Message-Id: <Pine.A41.4.58.0406231308220.5666@ginger.libs.uga.edu>
On Wed, 23 Jun 2004, Anno Siegel wrote:
> J Krugman <jkrugman345@yahbitoo.com> wrote in comp.lang.perl.misc:
> >
> >
> > Is there a nice Perl idiom for partitioning an array of length N
> > into "subarrays of length n" (i.e. array refs pointing to arrays
> > of length n)? (If N is not a multiple of n, the last entry of the
> > partitioned array should be a subarray of length N mod n.) For
> > example, if n = 3, and the input array is
> >
> > ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h')
> >
> > the partitioned array should be:
> >
> > (['a', 'b', 'c'], ['d', 'e', 'f'], ['g', 'h'])
>
> map [ splice @a, 0, $n], 0 .. $#a/$n;
Can't beat that. OP's "input array" vs. "partitioned array" makes me
think that he might want to keep the original array. Perhaps
sub min{$_[0]<$_[1]?$_[0]:$_[1]}
my @r = map [ @a[ $_*$n .. min ++$_*$n-1, $#a ] ], 0 .. $#a/$n;
:-)
Brad
------------------------------
Date: 23 Jun 2004 15:20:58 GMT
From: ctcgag@hotmail.com
Subject: Re: Perl editors and debuggers
Message-Id: <20040623112058.052$7V@newsreader.com>
"William Fields" <Bill_Fields@azb.uscourts.gov> wrote:
> Hello,
>
> Just looking for recommendations.
editor: vim
debugger: well-placed print statements, often invoking Data::Dumper.
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service $9.95/Month 30GB
------------------------------
Date: 23 Jun 2004 03:05:03 -0700
From: nospam@tomcat.ca.tc (Florent Carli)
Subject: Regexp, Strings and spaces
Message-Id: <6d12cccb.0406230205.5c5b99df@posting.google.com>
Hello experts,
I'm looking for a regexp to get the information from smtg like this :
field1="value with or without spaces" field2=valuewithoutspaces
My only concern is that I don't want to match the quotes caracters.
For now I came up with :
my (@res) = $line =~ m/=(?:((?<=["])[^"]+(?=["])|(?<!["])\S+(?!["])))/g
But the lookbehinds do not work ...
Any way to do this without using lookbehinds ?
Thanks!
------------------------------
Date: 23 Jun 2004 10:19:11 GMT
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Regexp, Strings and spaces
Message-Id: <cbblev$gol$3@mamenchi.zrz.TU-Berlin.DE>
Florent Carli <nospam@tomcat.ca.tc> wrote in comp.lang.perl.misc:
> Hello experts,
>
> I'm looking for a regexp to get the information from smtg like this :
>
> field1="value with or without spaces" field2=valuewithoutspaces
>
> My only concern is that I don't want to match the quotes caracters.
> For now I came up with :
> my (@res) = $line =~ m/=(?:((?<=["])[^"]+(?=["])|(?<!["])\S+(?!["])))/g
> But the lookbehinds do not work ...
>
> Any way to do this without using lookbehinds ?
Sure: /"?([^"]*)/
Take a look at one or another of the csv modules too.
Anno
------------------------------
Date: 23 Jun 2004 10:25:34 -0700
From: jl_post@hotmail.com (J. Romano)
Subject: Re: Regexp, Strings and spaces
Message-Id: <b893f5d4.0406230925.7c7c9c3f@posting.google.com>
nospam@tomcat.ca.tc (Florent Carli) wrote in message news:<6d12cccb.0406230205.5c5b99df@posting.google.com>...
> I'm looking for a regexp to get the information from smtg like this :
>
> field1="value with or without spaces" field2=valuewithoutspaces
>
> My only concern is that I don't want to match the quotes caracters.
> For now I came up with :
> my (@res) = $line =~ m/=(?:((?<=["])[^"]+(?=["])|(?<!["])\S+(?!["])))/g
> But the lookbehinds do not work ...
This is easier done without lookbehinds:
$line =
'field1="value with or without spaces" field2=valuewithoutspaces'
while ( $line =~ m/="([^"]*)"|=(\w*)/g )
{
push @res, $1 if defined $1;
push @res, $2 if defined $2;
}
Essentially, the above lines of code loop through every instance of
either
="some text"
or
=some_text
The first instance has a pattern match of m/="[^"]*"/ and the second
instance has a pattern match of m/=(\w*)/ . Therefore, I put them
together (by joining them with the "|" symbol and put capturing
parentheses around the text I'm intersted in) with the regular
expression m/="([^"]*)"|=(\w*)/g .
The "/g" is used to loop through every match, populating either $1
or $2 every time through the loop. Inside the loop, I push either $1
or $2 into the @res array, depending on which one is defined (that is,
which one happened to match).
I hope this helps.
-- Jean-Luc
------------------------------
Date: 23 Jun 2004 10:13:01 -0700
From: djberg96@hotmail.com (Daniel Berger)
Subject: Re: Using Perl to create user accounts on Windows 2003
Message-Id: <6e613a32.0406230913.49539d81@posting.google.com>
rev_maynard3@hotmail.com (Maynard) wrote in message news:<a4847dc.0406221333.227bc2c7@posting.google.com>...
> Hello all,
>
> I have Windows 2003 FTP servers that I store content on for external
> users to pick up on a schedule. Unfortunately I have about 300 of
> such users, and multiple servers. The time and energy to create these
> user accounts is obviously a factor, especially if I have to rebuild a
> box and have it up and running quickly.
>
> So, I went looking for Perl scripts / modules that could do this, but
> all I came up with was some old (for NT4) ones that used
> Win32::Lanman. I'm not creating domain (Active Directory) accounts,
> just local ones on the box. I have the users in a comma-delimited
> file, and really just need a shove in the right direction.
>
> Any suggestions would be most appreciated.
Win32::NetAdmin. Available on CPAN.
(The name is derived from the corresponding Win32 API calls)
Regards,
Dan
------------------------------
Date: Wed, 23 Jun 2004 13:52:44 -0400
From: "Jay" <boatingN.O.S.P.A.M@cox.net>
Subject: WWW::RobotRules
Message-Id: <BpjCc.43$CR3.42@lakeread03>
I'm having some problems with robotrules where it doesn't seem to work. I'm
using the demo code and it doesn't seem to match directories when the
robots.txt file has trailing slashes. For example on my site I have in my
robots.txt file
User-agent: *
Disallow: /sptrap/
If I the program if I am allowed to access
http://www.tequila-stuff.com/sptrap/ it works fine, if I ask it about
http://www.tequila-stuff.com/sptrap it does not report that I'm not allowed
to access it. Is this an issue with my robots.txt file or with robotrules?
use WWW::RobotRules;
use LWP::Simple qw(get);
my $rules = WWW::RobotRules->new('IE 6.0');
my $url = "http://www.tequila-stuff.com/robots.txt";
my $robots_txt = get $url;
print "$robots_txt\n";
$rules->parse($url, $robots_txt) if defined $robots_txt;
# Now we can check if a URL is valid for those servers
# whose "robots.txt" files we've gotten and parsed:
if($rules->allowed('http://www.tequila-stuff.com/sptrap')) {
print "Allowed \n";
}
else{
print "Not Allowed\n";
}
------------------------------
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 6719
***************************************
