[17034] in Perl-Users-Digest
Perl-Users Digest, Issue: 4446 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 27 14:10:33 2000
Date: Wed, 27 Sep 2000 11:10:15 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <970078215-v9-i4446@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Wed, 27 Sep 2000 Volume: 9 Number: 4446
Today's topics:
Re: Recommendations for Best Beginners book? <lmoran@wtsg.com>
Re: Recommendations for Best Beginners book? (Abigail)
Re: Recommendations for Best Beginners book? (Andrew Johnson)
Re: REGEX problem (Gary E. Ansok)
remote machine call to registry... <boogiemonster@usa.net>
retrieve the date and size of a file running pim53@my-deja.com
Re: Salary Range for Perl Programmers (B. Elijah Griffin)
Re: shell problem <amonotod@netscape.net>
String Index (Swaminathan Ananthanarayan)
Re: String Index <pap@sotonians.org.uk>
Re: String Index <pap@sotonians.org.uk>
Re: String Index <ren.maddox@tivoli.com>
Re: String Index (Craig Berry)
Re: system("cd /var") command aravindh@technologist.com
Re: system("cd /var") command <sariq@texas.net>
Re: system("cd /var") command <jeff@vpservices.com>
Re: system("cd /var") command nobull@mail.com
unexpected changes from 5.005_03 to 5.6.0 <honeyman@decipher.com>
Re: unexpected changes from 5.005_03 to 5.6.0 <ren.maddox@tivoli.com>
Re: Win32::API needs help <tye@metronet.com>
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 27 Sep 2000 11:12:14 -0400
From: Lou Moran <lmoran@wtsg.com>
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <vq24ts876bsub945o2q228jq0u9fgs0kch@4ax.com>
SNIP
>
>Andrew Johnson's _Elements of Programming with Perl_ starts at a
>pretty basic level, and teaches Perl as well as general programming.
>I'm not sure whether it is suited for someone who has never programmed
>before, but it's an excellent book. Even if you have to find another
>one that teaches general programming basics, this should be very
>helpful.
Johnson's book CAN teach you to be a programmer. The first chapters
do a "flow-charty thing" wherein you "think" about your program and
then he gets into the actual syntax. This is the book, then go buy a
bunch of O'reillys. If you get through EOPWP your next book could be
Programming Perl 3rd Ed
HTH
Registered Linux user number 187055
------------------------------
Date: 27 Sep 2000 15:23:37 GMT
From: abigail@foad.org (Abigail)
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <slrn8t445b.lo9.abigail@alexandra.foad.org>
Lou Moran (lmoran@wtsg.com) wrote on MMDLXXXIV September MCMXCIII in
<URL:news:vq24ts876bsub945o2q228jq0u9fgs0kch@4ax.com>:
][ SNIP
][
][
][ >
][ >Andrew Johnson's _Elements of Programming with Perl_ starts at a
][ >pretty basic level, and teaches Perl as well as general programming.
][ >I'm not sure whether it is suited for someone who has never programmed
][ >before, but it's an excellent book. Even if you have to find another
][ >one that teaches general programming basics, this should be very
][ >helpful.
][
][ Johnson's book CAN teach you to be a programmer. The first chapters
][ do a "flow-charty thing" wherein you "think" about your program and
][ then he gets into the actual syntax. This is the book, then go buy a
][ bunch of O'reillys. If you get through EOPWP your next book could be
][ Programming Perl 3rd Ed
Flow charts are so fifties, and are so inviting to make spagetti programs.
A flow chart is the graphical equivalent of a goto.
Abigail
--
$_ = "\nrekcaH lreP rehtona tsuJ"; my $chop; $chop = sub {print chop; $chop};
$chop -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
-> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> () -> ()
------------------------------
Date: Wed, 27 Sep 2000 17:49:33 GMT
From: andrew-johnson@home.com (Andrew Johnson)
Subject: Re: Recommendations for Best Beginners book?
Message-Id: <NqqA5.3388$zl4.473981@news1.rdc1.mb.home.com>
In article <slrn8t445b.lo9.abigail@alexandra.foad.org>,
Abigail <abigail@foad.org> wrote:
> Lou Moran (lmoran@wtsg.com) wrote on MMDLXXXIV September MCMXCIII in
[snip]
> ][ Johnson's book CAN teach you to be a programmer. The first chapters
> ][ do a "flow-charty thing" wherein you "think" about your program and
> ][ then he gets into the actual syntax. This is the book, then go buy a
> ][ bunch of O'reillys. If you get through EOPWP your next book could be
> ][ Programming Perl 3rd Ed
>
>
> Flow charts are so fifties, and are so inviting to make spagetti programs.
> A flow chart is the graphical equivalent of a goto.
Actually, the only time I use anything resembling flow charts in my
book is to depict flow of control in loop and decision statements. I
suspect Lou was more likely referring to chapter three's walk through
the development cycle (no flow charts or diagrams) and the idea of
breaking down a probem into more manageable 'chunks' (decomposition).
On the other hand, sometimes flow charts can be fun -- the following
is a crude adaptation of one I rather liked [1].
x
|
+-> apply for <------+------------------------------------+
| support | |
| | | |
| V | |
| given n peace keeping <-------------------+ |
| support? -> applications? | |
| | | |
| | y | |
| V | |
+--> discuss site rediscussed <------+ | publish
| selection model 20 y| | ^
| | | times? | | |
| V V | | +- tried 20 | write -> perish
| select select |y |n |n times? | ^
| site site | | | ^ | |
| | | | | | | | |
| V V | | | | +------+
| conciliate site | | | |n y |
| selection | | | +- works? -----+
| | | | | ^ |y
| V | | | | |
+--> discuss object <--+ | +--------> fudge <- is fit
| selection | a bit n good?
| | | | ^
| V V +----------+ |
| select select | analyze
| objects objects perish | models
| | | ^ | ^ ^
| V V | | | |
| conciliate object -> punch list | compute compute
| selection | | coefficients coefficients
| V | ^ ^
+-- sufficient <--------- publish | | |
n number? | select select
|y | model model
V | ^ ^
discuss <-----------------+ | | |
measures | | +- discuss ---+
| | |y +--------------> models
V V | ^
select select +------ tried 20 |
measure measure | n times? publish
| | | ^ ^
V V V |n |
conciliate --> measure --> works? --> punch list --> write
measure |
V
perish
regards,
andrew
[1] From: "Isadore Nabi on the Tendencies of Motion" in, Levins and
Lewonting (1985) The Dialectical Biologist.
--
Andrew L. Johnson http://members.home.net/andrew-johnson/
Some days you are the bug,
some days you are the windshield.
------------------------------
Date: 27 Sep 2000 17:17:49 GMT
From: ansok@alumni.caltech.edu (Gary E. Ansok)
Subject: Re: REGEX problem
Message-Id: <8qta3t$gvu@gap.cco.caltech.edu>
In article <mao3tscejuqk4475f971m7oaojughkdh36@4ax.com>,
Bart Lateur <bart.lateur@skynet.be> wrote:
>Shawn and Francine wrote:
>
>>I need to search a string and replace all instances of "." with a
>>space.
>
> tr/./ /;
>or
> s/\./ /g;
Actually, to do the operation as requested it should be
tr/./ /s;
-- Gary
------------------------------
Date: Wed, 27 Sep 2000 12:19:04 -0700
From: "J Joseph Yusko" <boogiemonster@usa.net>
Subject: remote machine call to registry...
Message-Id: <8qt6ln$a3b$1@usenet01.srv.cis.pitt.edu>
ok here is my dillemma. I'm trying to access the registry on a remote
machine so i can delete a value. Is there a sample code where I can make a
call to remote machine's registry? please help. I'm stumped.
------------------------------
Date: Wed, 27 Sep 2000 16:19:05 GMT
From: pim53@my-deja.com
Subject: retrieve the date and size of a file running
Message-Id: <8qt6lf$4ao$1@nnrp1.deja.com>
Hi,
I want to retrieve the date of last modification
of a file and its size.
So I used -s and -M to get that.
But somehow, for a file that is running at the
same time this test return that the file doesn't
exist even it does.
SO I used th `ls`command but I cannot get a full
date like 09/27/2000 17:45:56
How can I do?
Thanks...
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 27 Sep 2000 17:09:48 GMT
From: eli@panix5.panix.com (B. Elijah Griffin)
Subject: Re: Salary Range for Perl Programmers
Message-Id: <8qt9kr$e9k$1@news.panix.com>
In comp.lang.perl.misc, Tom Briles <sariq@texas.net> wrote:
> Roger Atkinson wrote:
> > I went to a two day PERL class
> > there and while it was designed for the beginner, I know they have some
> > very good PERL coders there. The two day class cost me (my company) $412
> > ($12 for parking at the Super Computer Center) and I found it well worth
> > the while.
> Any class that allows its students to leave calling 'Perl' 'PERL' isn't
> worth two cents, much less four hundred bucks.
You are far too narrow minded.
Think of it as the acryonym version of Perl: Pathologically
Eclectic Rubbish Lister.
Elijah
------
($ja,$ph)=(j("print"),j("chr"));for$japh(qw(74 117 115
116 32 65 110 111 116 104 101 114 32 80 101 114 108 32
72 97 99 107 101 114 10)){&$ja(&$ph($japh))}sub j{my$a
=shift;return sub{my$p=shift;my$h;eval"\$h=$a(\$p);"}}
------------------------------
Date: Wed, 27 Sep 2000 15:06:39 GMT
From: amonotod <amonotod@netscape.net>
Subject: Re: shell problem
Message-Id: <8qt2dp$dc$1@nnrp1.deja.com>
In article <39D20134.4576D40D@icd.teradyne.com>,
Ranjit Chacko <chacko@icd.teradyne.com> wrote:
> I have the following line in a script for moving some directories to a
> new disk.:
>
> `tar -cf - $_ | (cd $new_disk; tar -xBpf -)`;
>
> Unfortunately it seems the line is given to /bin/sh which does not
> understand it.
I have two suggestions:
slurp your string into a variable and print it first, like this:
$cmd = "tar -cf - $_ | (cd $new_disk; tar -xBpf -)";
print "$cmd \n";
If it looks okay, then use it. The other suggestion is that you may
need to escape your pipe and parens, as in:
`tar -cf - $_ \| \(cd $new_disk; tar -xBpf -\)`;
I don't use the script anymore, but I had used system() in the tape
script I wrote:
system "tar cvf /dev/rmt/1bn $a[$b-1] ";
>
> Is there some way to force Perl to use a different shell for stuff
> between ` `?
>
That's a little beyond me, but I'd venture to say that it probably
depends on the default shell for the account the script is being run as.
> What's the difference, if any, between using system and backticks
> anyway?
Let one of the gurus answer that one...
HTH,
amonotod
--
`\|||/ amonotod@
(@@) netscape.net
ooO_(_)_Ooo________________________________
_____|_____|_____|_____|_____|_____|_____|_____|
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 27 Sep 2000 11:57:24 -0400
From: anants@libr101.rcs.rpi.edu (Swaminathan Ananthanarayan)
Subject: String Index
Message-Id: <8qt5d4$vas@libr101.rcs.rpi.edu>
Greetings,
Given a particular string of arbitrary length, how can I access a
particular index in the string? For example, if I have
my $y = "hello all";
and if I wanted to access the 7th position, counting (0-6), "a", how
would I do so? Also what if I wanted to change the character in the 7th
position from an "a" to a "c"?
Thanks for any help
Swamy
------------------------------
Date: Wed, 27 Sep 2000 18:13:53 +0000
From: "Paul Taylor" <pap@sotonians.org.uk>
Subject: Re: String Index
Message-Id: <fZpA5.5462$qi7.510539@nnrp4.clara.net>
You want to use substr.
perldoc -f substr
Perl doesn't let you nip through a string using an index a la C.
You can achieve similar effects with substr ( but I don't know
how fast it'd be over large volumes of data).
Here's an example of getting and setting the fourth character of
a scalar string.
---#!/usr/bin/perl -w
use strict;
my $string = "spark" ;
# get the fourth character
my $character = substr ( $string, 3, 1 );
print "Character is $character.\n";
# set the fourth character (substr as lvalue)
substr( $string, 3, 1 ) = "n" ;
print "Modified string is $string\n" ;
In article <8qt5d4$vas@libr101.rcs.rpi.edu>, anants@libr101.rcs.rpi.edu
(Swaminathan Ananthanarayan) wrote:
>
> Greetings,
>
> Given a particular string of arbitrary length, how can I access a
> particular index in the string? For example, if I have
>
> my $y = "hello all";
>
> and if I wanted to access the 7th position, counting (0-6), "a", how
> would I do so? Also what if I wanted to change the character in the 7th
> position from an "a" to a "c"?
>
> Thanks for any help
>
> Swamy
------------------------------
Date: Wed, 27 Sep 2000 18:15:21 +0000
From: "Paul Taylor" <pap@sotonians.org.uk>
Subject: Re: String Index
Message-Id: <E_pA5.5463$qi7.510964@nnrp4.clara.net>
Of course, you want to ignore the erroneous shebang.....
P.
In article <fZpA5.5462$qi7.510539@nnrp4.clara.net>, "Paul Taylor"
------------------------------
Date: 27 Sep 2000 11:58:03 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: String Index
Message-Id: <m3em25rcv8.fsf@dhcp11-177.support.tivoli.com>
anants@libr101.rcs.rpi.edu (Swaminathan Ananthanarayan) writes:
> Given a particular string of arbitrary length, how can I access a
> particular index in the string? For example, if I have
>
> my $y = "hello all";
>
> and if I wanted to access the 7th position, counting (0-6), "a", how
> would I do so? Also what if I wanted to change the character in the 7th
> position from an "a" to a "c"?
You are looking for substr().
perldoc -f substr
Either of:
substr($y, 6, 1, "c");
-or-
substr($y, 6, 1) = "c";
should do what you want.
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: Wed, 27 Sep 2000 17:50:09 -0000
From: cberry@cinenet.net (Craig Berry)
Subject: Re: String Index
Message-Id: <st4cqh35f0pa56@corp.supernews.com>
Swaminathan Ananthanarayan (anants@libr101.rcs.rpi.edu) wrote:
: Given a particular string of arbitrary length, how can I access a
: particular index in the string? For example, if I have
:
: my $y = "hello all";
:
: and if I wanted to access the 7th position, counting (0-6), "a", how
: would I do so?
$char = substr $y, 6, 1;
: Also what if I wanted to change the character in the 7th
: position from an "a" to a "c"?
substr($y, 6, 1) = 'c';
perldoc -f substr
--
| Craig Berry - http://www.cinenet.net/~cberry/
--*-- "Quidquid latine dictum sit, altum viditur."
|
------------------------------
Date: Wed, 27 Sep 2000 15:39:57 GMT
From: aravindh@technologist.com
Subject: Re: system("cd /var") command
Message-Id: <8qt4cc$24v$1@nnrp1.deja.com>
Sorry about my posting style.
#!/usr/bin/perl
use strict;
use Cwd;
print cwd() ,"\n";
chdir ("/var");
print cwd() ,"\n";
i tried the code. but when i come out of the program i am back in the
location where i started. i need to be in /var when the program exits.
how can do it? thanks for all the help.
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Wed, 27 Sep 2000 10:59:10 -0500
From: Tom Briles <sariq@texas.net>
Subject: Re: system("cd /var") command
Message-Id: <39D2194E.B995880D@texas.net>
aravindh@technologist.com wrote:
>
> Sorry about my posting style.
>
> #!/usr/bin/perl
> use strict;
> use Cwd;
> print cwd() ,"\n";
> chdir ("/var");
> print cwd() ,"\n";
>
> i tried the code. but when i come out of the program i am back in the
> location where i started. i need to be in /var when the program exits.
> how can do it? thanks for all the help.
I knew it'd come down to this...
RTFFAQ.
perldoc -q 'changed directory'
- Tom
- Tom
------------------------------
Date: Wed, 27 Sep 2000 09:06:51 -0700
From: Jeff Zucker <jeff@vpservices.com>
Subject: Re: system("cd /var") command
Message-Id: <39D21B1B.FA28E515@vpservices.com>
aravindh@technologist.com wrote:
>
> Sorry about my posting style.
>
> #!/usr/bin/perl
> use strict;
> use Cwd;
> print cwd() ,"\n";
> chdir ("/var");
> print cwd() ,"\n";
>
> i tried the code. but when i come out of the program i am back in the
> location where i started. i need to be in /var when the program exits.
> how can do it? thanks for all the help.
That snippet does what you asked for originally -- it changes the
directory *within* the script. What you apparently meant to ask, but
didn't, is how to change the directory *outside* of the script in a way
that will remain after the script exits. The answer is: you can't.
Please read perlfaq8 which explains in detail that it is impossible to
do that with Perl. This has to do with the basic logical relatonship
between a script and the shell it runs in. People have told you this
several times in this thread, please listen.
--
Jeff
------------------------------
Date: 27 Sep 2000 17:43:55 +0100
From: nobull@mail.com
Subject: Re: system("cd /var") command
Message-Id: <u9ya0d9450.fsf@wcl-l.bham.ac.uk>
aravindh@technologist.com writes:
> Sorry about my posting style.
What about not reading the FAQ, are you sorry about that too?
> but when i come out of the program i am back in the
> location where i started. i need to be in /var when the program exits.
> how can do it?
FAQ: "I {changed directory, modified my environment} in a perl script.
How come the change disappeared when I exited the script?"
> thanks for all the help.
Rather than just saying "thanks", you should show your gratitude by
consulting the FAQ each time you have a question.
--
\\ ( )
. _\\__[oo
.__/ \\ /\@
. l___\\
# ll l\\
###LL LL\\
------------------------------
Date: Wed, 27 Sep 2000 12:07:46 -0400
From: Ryan Honeyman <honeyman@decipher.com>
Subject: unexpected changes from 5.005_03 to 5.6.0
Message-Id: <39D21B51.72C213DB@decipher.com>
*** post for free via your newsreader at post.newsfeeds.com ***
This code snip below behaves differently:
-----------------------------------------
my $this = "2";
if ($this <= 10) { $this = "1$this"; }
printf("%s %02d\n",$this,$this);
perl 5.005_03 output...: 12 12
perl 5.6.0 output......: 12 02
---------------------------
I can avoid the error in 5.6.0 by using,
$this = ($this <= 10) ? "1$this" : "$this";
-or-
if ($this <= 10) { $this = int("1$this"); }
however, neither should be required.
Any ideas why this changed? Or what actually is happening?
Was this an unintentional fix for something that I had been exploiting
all this time?
+=================================+
| Ryan Honeyman, Programmer /
| Decipher, Web Group /
| http://www.decipher.com /
+-----------------------------+
| phone> 757.664.1126 /
| pager> 757.629.1567 /
+==========================+
**** Post for FREE via your newsreader at post.newsfeeds.com ****
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
*** Newsfeeds.com - The #1 Usenet Newsgroup Service on The Planet! ***
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
http://www.newsfeeds.com | http://www.newsfeeds.com
|
* Anonymous posting server! | * Totally Uncensored!
* SUPER Servers! | * Over 80,000 Newsgroups!
* BINARIES ONLY Servers! | * 16 seperate Newsgroup Servers!
* SPAM FILTERED Server! | * Instant access!
* ADULT ONLY Server! | * Multiple OC 3's and OC 12's!
* MP3 ONLY Server! | * 99% Article Completion!
* MULTIMEDIA ONLY Server! | * Months of Retention!
* 7 UNCENSORED Newsgroup Servers | * Lightning FAST downloads!
|
http://www.newsfeeds.com | http://www.newsfeeds.com
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
**** Point your newsreader to post.newsfeeds.com ****
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
------------------------------
Date: 27 Sep 2000 11:53:31 -0500
From: Ren Maddox <ren.maddox@tivoli.com>
Subject: Re: unexpected changes from 5.005_03 to 5.6.0
Message-Id: <m3hf71rd2s.fsf@dhcp11-177.support.tivoli.com>
Ryan Honeyman <honeyman@decipher.com> writes:
> my $this = "2";
> if ($this <= 10) { $this = "1$this"; }
> printf("%s %02d\n",$this,$this);
>
> perl 5.005_03 output...: 12 12
> perl 5.6.0 output......: 12 02
Works fine for me on both 5.005_03 and 5.6.0.
This is perl, version 5.005_03 built for i386-linux
This is perl, v5.6.0 built for i686-linux-thread-multi
--
Ren Maddox
ren@tivoli.com
------------------------------
Date: 27 Sep 2000 12:43:11 -0500
From: Tye McQueen <tye@metronet.com>
Subject: Re: Win32::API needs help
Message-Id: <8qtbjf$m59@beanix.metronet.com>
"Lucas" <wstsoi@hongkong.com> writes:
) $initTTS = new Win32::API("cutalk", "initTTS", [P, I], I);
) $spkTTS = new Win32::API("cutalk", "spkTTS", [P, N, I], I);
) $termTTS = new Win32::API("cutalk", "termTTS", [], V);
You really should test for success above.
As I recall, the last time I used Win32::API, there was no "V" nor
"I" and you use "N" to pass integers (but I also recall the docs
not being very clear on this so I could be wrong). To pass a
double you might need to use "N" (to pass in an integer) and do:
# The value we want to pass in:
my $val= 2.0;
# Stuff it into a buffer in the proper format (as a C<double>):
my $buf= pack( "d", $val );
# Get the address of the buffer:
my $addr= 0 + \$buf;
then pass in C<$addr> instead of C<2.0>. You can probably get
away with doing this all at once:
$spkTTS->Call( $the_string, 0+\pack("d",2.0), 1 )
Dang! I think I'm wrong here. I think a double would be passed
on the stack and this would pass it by reference. Perhaps this
might work:
# The value we want to pass in:
my $val= 2.0;
# Stuff it into a buffer in the proper format (as a C<double>):
my $buf= pack( "d", $val );
my @ints= unpack( "L*", $buf );
# Or you might need this next line instead:
# my @ints= reverse unpack( "L*", $buf );
$spkTTS->Call( $the_string, @ints, 1 )
and then initialize $spkTTS to take N integers in place of the 1
double (where N should be 2 on most platforms including Win32).
I suggest you grab C::Dynalib or the FFI module and use one of them
instead of Win32::API [but nobody takes my advice, not even me].
--
Tye McQueen Nothing is obvious unless you are overlooking something
http://www.metronet.com/~tye/ (scripts, links, nothing fancy)
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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 V9 Issue 4446
**************************************
