[18082] in Perl-Users-Digest
Perl-Users Digest, Issue: 242 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Feb 8 09:10:42 2001
Date: Thu, 8 Feb 2001 06:10:18 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <981641418-v10-i242@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 8 Feb 2001 Volume: 10 Number: 242
Today's topics:
Re: Newbie - Perl for Win32 (Gasp!) <dk_sz@hotmail.com>
Re: Newbie - Perl for Win32 (Gasp!) <camerond@mail.uca.edu>
Re: Newbie here please help! Permission errors while cr (Helgi Briem)
Re: Perl / Java and checkbox <ron@savage.net.au>
Perl, Solaris and readdir64 <j.pearson@ge.ucl.ac.uk>
Re: Poetry in Perl ??? <nospam@nospam.com>
Re: Problems with Perl on Apache? <dk_sz@hotmail.com>
put undef as place holder in an array <johnlin@chttl.com.tw>
put undef as place holder in an array <johnlin@chttl.com.tw>
Re: put undef as place holder in an array <jonni@ifm.liu.se>
Re: put undef as place holder in an array <bart.lateur@skynet.be>
Re: Radical readdir suggestion (Martien Verbruggen)
removing empty line <tfiedler@zen.moldsandwich.com>
Re: removing empty line mike_solomon@lineone.net
SGML-X/HTML <Luuk.Houwen@t-online.de>
Re: SGML-X/HTML (Eric Bohlman)
Re: splitting a string on the / character (Randal L. Schwartz)
Validating date formats <mtoman@bfsec.bt.co.uk>
Re: Validating date formats mike_solomon@lineone.net
Re: When is an array @f allowed in a string? (Bernard El-Hagin)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 8 Feb 2001 11:49:13 +0100
From: "Thomas Schulz" <dk_sz@hotmail.com>
Subject: Re: Newbie - Perl for Win32 (Gasp!)
Message-Id: <95tuoq$8p$1@news.inet.tele.dk>
> extension you are using for your Perl programs (.pl, hopefully). That
> filename extension needs to be set up to run Perl.
But not on e.g. Apache that interprets everything in cgi-bin as scripts (and
executes them with the shebang thingy)?
Thomas
------------------------------
Date: Thu, 08 Feb 2001 08:00:34 -0600
From: Cameron Dorey <camerond@mail.uca.edu>
Subject: Re: Newbie - Perl for Win32 (Gasp!)
Message-Id: <3A82A682.BF592EAE@mail.uca.edu>
TJ Pontious wrote:
>
> I have Perl 5.6.0 installed on Windows 2000 server, and the command line
> runs scripts perfectly. However, when I submit a form from a web page, it
> displays the perl script instead of running the script. Did I miss a
> setting I'm supposed to use somewhere in NT or IIS5 ?
>
> [Yes, I know that Win32 thing makes me the oddball in a Unix/Linux world,
> but hey, somebody has to do it, right?] Thanks.
Check the FAQ right there on your hard drive. And not all of us run *x,
no matter what it looks like here.
Cameron
--
Cameron Dorey
Associate Professor of Chemistry
University of Central Arkansas
Phone: 501-450-5938
camerond@mail.uca.edu
------------------------------
Date: Thu, 08 Feb 2001 12:31:05 GMT
From: helgi@NOSPAMdecode.is (Helgi Briem)
Subject: Re: Newbie here please help! Permission errors while creating directories
Message-Id: <3a828f2f.1483487261@news.itn.is>
On Wed, 07 Feb 2001 20:43:09 GMT, hilljroberts@my-deja.com
wrote:
>I am a beginning user of Perl, and think that it is a very useful
>language. However I'm having trouble getting it to create a directory
>with the permissions that I desire. (This is being done on a UNIX
>server). I want the directory to have the permissions:
>User(ReadWriteExecute), Group(ReadExecute), World(ReadExecute). Is the
>sample below the only commands that I need? When I run this, the
>directory gets the permissions: User(WriteExecute), Group(Read),
>World(Execute). What did I do wrong? Do I need to use a different
>value, another command? Thank for your help everyone.
>
>Here's a sample of what I am doing:
>
> $dirname = \dica\server;
> $mode = 755; # Permissions for the directory
> mkdir ($dirname, $mode);
This is better:
#!/usr/bin/perl -w
use strict;
# -w and use strict together would solve 90%+
# of the problems people ask about here.
# You need to quote the string $dirname
# Use double quotes if you need interpolation
# otherwise single quotes.
# Use my to properly scope the variable
my $dirname = '\dica\server';
# Modes are given in octal, so:
my $mode = '0755'; # Permissions for the directory
# Always trap the error.
mkdir ($dirname, $mode)
or die "Cannot mkdir $dirname:$!\n";
Regards,
Helgi Briem
------------------------------
Date: Thu, 8 Feb 2001 21:58:07 +1100
From: "Ron Savage" <ron@savage.net.au>
Subject: Re: Perl / Java and checkbox
Message-Id: <o5ug6.287$vA4.5826@ozemail.com.au>
Tested code this time :-).
#!D:/Perl/bin/perl
use integer;
use strict;
use warnings;
use CGI;
use CGI::Carp;
# ---------------------------------------------------
my($dir_name) = 'D:/Temp';
opendir(INX, $dir_name) || die("Can't opendir($dir_name): $!");
my(@file) = sort grep{! /^\.\.?$/} readdir(INX);
closedir(INX);
my($q) = CGI -> new();
my(@f) = $q -> param('file');
my($html) = '';
if (@f)
{
my($count) = 1;
$html = 'On the previous screen the bunny bashing the keys chose:' .
$q -> table
(
$q -> Tr([map{$q -> td($count++ . ": $_")} @f])
);
}
print $q -> header(),
$q -> start_html(),
$html,
$q -> start_form({action => $q -> url()}),
$q -> h1('Display checkbox per file name'),
$q -> checkbox_group({name => 'file', cols => 1, values => \@file}),
$q -> submit(),
$q -> end_form(),
$q -> end_html();
Perhaps all of us with web sites should have a Hax page, where we can post
snippents like this?
--
Cheers
Ron Savage
ron@savage.net.au
http://savage.net.au/index.html
------------------------------
Date: Thu, 08 Feb 2001 13:25:17 GMT
From: James Pearson <j.pearson@ge.ucl.ac.uk>
Subject: Perl, Solaris and readdir64
Message-Id: <95u6nn$jlu$1@nnrp1.deja.com>
I have a perl (v5.005_02) script that is running on Solaris 2.6 (sparc)
that uses find.pl, but is failing to read the contents of a certain
directory.
The directory in question is NFS mounted from an SGI - find($dir) does
not find anything in the directory (although it contains over 700
files).
I can reproduce the problem with the following:
opendir(DIR,$dir);
@filenames = readdir(DIR);
closedir(DIR);
print "@filenames\n";
For the directory in question - readdir() returns an empty list (the
directory is readable ...) - not even the "." and ".." entries.
However, this doesn't seem to be a perl problem (in fact it *may* be a
problem with the "version" of the XFS filesystem on the SGI - but I
can't doing anything about that).
I can reproduce the same problem with some C code:
dirp = opendir(dir);
while ((dp = readdir(dirp)) != NULL)
printf("%s ", dp->d_name);
closedir(dirp);
If I replace readdir() in the C code with readdir64(), then it works OK
- the contents of the directory in question are printed out ...
So my question is, can I do something similar in perl? Can I force perl
on Solaris to use readdir64() somehow? Or, is there some sort of
readdir64 for perl available via a module etc.?
Thanks
James Pearson
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: 8 Feb 2001 11:39:26 GMT
From: The WebDragon <nospam@nospam.com>
Subject: Re: Poetry in Perl ???
Message-Id: <95u0he$na5$0@216.155.32.222>
In article <CJqg6.153$M8.188493312@news.frii.net>,
cfedde@fedde.littleton.co.us (Chris Fedde) wrote:
| >> Pattern-matching is one of the many areas of perl I haven't got a
| >> chance to work much with. I am trying hard to learn it... and what
| >> better way than consulting the knowledgeable !!
| >
| >Cute joke.
| >
|
| 80% of usenet postings are junk for the same reason that 80% of
| commercial TV is junk.
reminded of a quote..
"USENET is like a herd of performing elephants with diarrhea: massive,
difficult to redirect, awe-inspiring, entertaining, and a source of mind
boggling amounts of excrement when you least expect it." [Eugene "Spaf"
Spafford]
:)
--
unmunge e-mail here:
#!perl -w
print map {chr(ord($_)-3)} split //, "zhepdvwhuCzhegudjrq1qhw";
# ( damn spammers. *shakes fist* take a hint. =:P )
------------------------------
Date: Thu, 8 Feb 2001 11:14:30 +0100
From: "Thomas Schulz" <dk_sz@hotmail.com>
Subject: Re: Problems with Perl on Apache?
Message-Id: <95tsan$lnk$1@news.inet.tele.dk>
>..
And chanhing helloworld.pl to:
#!c:\webserve\perl\bin\perl.exe
print "Content-type: text/html\n\n";
print "Hello, world";
doesn't work either
Thomas Schulz
------------------------------
Date: Thu, 8 Feb 2001 18:01:13 +0800
From: "John Lin" <johnlin@chttl.com.tw>
Subject: put undef as place holder in an array
Message-Id: <95tqsr$9jl@netnews.hinet.net>
Dear all,
Today when I write a program, I encounter an interesting question.
my @a = ('a b','d e','h');
The first string is expected to have 3 elements.
The trailing ones may disappear (here, the 'c' disappears).
So is 4 elements for the second string and 5 elements for the third.
my @len = (3,4,5);
I want to split on @a and put undef as place holder for those missing
trailing elements. The result should be
my @result = (
'a','b',undef,
'd','e',undef,undef,
'h',undef,undef,undef,undef
);
My trial showed 'split' with 3 arguments doesn't help here.
my @result = map { split ' ',$a[$_],$len[$_] } 0..$#a;
print map { defined()? $_: '?' } @result;
__END__
abdeh
I failed because the result I wanted is ab?de??h???
The second trial:
my @result = map { (split ' ',$a[$_])[0..$len[$_]-1] } 0..$#a;
works, but failed when
my @a = ('a b','','h'); # with empty string
Any ideas to solve this problem?
Thank you.
John Lin
------------------------------
Date: Thu, 8 Feb 2001 18:01:13 +0800
From: "John Lin" <johnlin@chttl.com.tw>
Subject: put undef as place holder in an array
Message-Id: <95tqte$9le@netnews.hinet.net>
Dear all,
Today when I write a program, I encounter an interesting question.
my @a = ('a b','d e','h');
The first string is expected to have 3 elements.
The trailing ones may disappear (here, the 'c' disappears).
So is 4 elements for the second string and 5 elements for the third.
my @len = (3,4,5);
I want to split on @a and put undef as place holder for those missing
trailing elements. The result should be
my @result = (
'a','b',undef,
'd','e',undef,undef,
'h',undef,undef,undef,undef
);
My trial showed 'split' with 3 arguments doesn't help here.
my @result = map { split ' ',$a[$_],$len[$_] } 0..$#a;
print map { defined()? $_: '?' } @result;
__END__
abdeh
I failed because the result I wanted is ab?de??h???
The second trial:
my @result = map { (split ' ',$a[$_])[0..$len[$_]-1] } 0..$#a;
works, but failed when
my @a = ('a b','','h'); # with empty string
Any ideas to solve this problem?
Thank you.
John Lin
------------------------------
Date: Thu, 8 Feb 2001 11:48:36 +0100
From: "Jonas Nilsson" <jonni@ifm.liu.se>
Subject: Re: put undef as place holder in an array
Message-Id: <95ttgv$pbj$1@newsy.ifm.liu.se>
Something like:
my @a = ('a b','d e','h');
my @tmp=split(' ',join(' ',@a));
my(%tmp,@result);;
for (@tmp) {$tmp{$_}=1};
for ('a'..'z') {
push @result,($tmp{$_}?$_:undef);
}
for (@result) {print((defined $_)?$_:'?')};
/jN
--
_____________________ _____________________
| Jonas Nilsson | | |
|Linkoping University | | Telephone |
| IFM | | --------- |
| Dept. of Chemistry | | work: +46-13-285690 |
| 581 83 Linkoping | | fax: +46-13-281399 |
| Sweden | | home: +46-13-130294 |
|_____________________| |_____________________|
"John Lin" <johnlin@chttl.com.tw> wrote in message
news:95tqte$9le@netnews.hinet.net...
> Dear all,
>
> Today when I write a program, I encounter an interesting question.
>
> my @a = ('a b','d e','h');
>
> The first string is expected to have 3 elements.
> The trailing ones may disappear (here, the 'c' disappears).
> So is 4 elements for the second string and 5 elements for the third.
>
> my @len = (3,4,5);
>
> I want to split on @a and put undef as place holder for those missing
> trailing elements. The result should be
>
> my @result = (
> 'a','b',undef,
> 'd','e',undef,undef,
> 'h',undef,undef,undef,undef
> );
>
> My trial showed 'split' with 3 arguments doesn't help here.
>
> my @result = map { split ' ',$a[$_],$len[$_] } 0..$#a;
>
> print map { defined()? $_: '?' } @result;
>
> __END__
> abdeh
>
> I failed because the result I wanted is ab?de??h???
>
> The second trial:
>
> my @result = map { (split ' ',$a[$_])[0..$len[$_]-1] } 0..$#a;
>
> works, but failed when
>
> my @a = ('a b','','h'); # with empty string
>
> Any ideas to solve this problem?
>
> Thank you.
>
> John Lin
>
>
>
------------------------------
Date: Thu, 08 Feb 2001 12:18:59 GMT
From: Bart Lateur <bart.lateur@skynet.be>
Subject: Re: put undef as place holder in an array
Message-Id: <ji358toict0kqaikr6b4bf91sp3cchuf9t@4ax.com>
John Lin wrote:
>my @a = ('a b','d e','h');
>
>The first string is expected to have 3 elements.
>The trailing ones may disappear (here, the 'c' disappears).
>So is 4 elements for the second string and 5 elements for the third.
>
>my @len = (3,4,5);
>
>I want to split on @a and put undef as place holder for those missing
>trailing elements. The result should be
>
>my @result = (
> 'a','b',undef,
> 'd','e',undef,undef,
> 'h',undef,undef,undef,undef
>);
Set the upper bound for the dimension of the subarrays. For example,
setting
$#{$result[2]} = 4;
will do what you want for the third subarray.
If your original array was longer than the newly assigned length, then
you'll loose the superfluous elements.
--
Bart.
------------------------------
Date: Thu, 8 Feb 2001 21:24:51 +1100
From: mgjv@tradingpost.com.au (Martien Verbruggen)
Subject: Re: Radical readdir suggestion
Message-Id: <slrn984svj.vht.mgjv@martien.heliotrope.home>
On 7 Feb 2001 15:20:43 GMT,
Ilmari Karonen <iltzu@sci.invalid> wrote:
> In article <slrn9829pp.vht.mgjv@martien.heliotrope.home>, Martien Verbruggen wrote:
>>
>>The file foo is also not part of the content of a directory. The name
>>foo points to a file on the file systems somewhere. The names . and ..
>>point to files on the file system somewhere. They are in that respect
>>not special at all. They get automatically created by a mkdir, and they
>>always point to directories, but that's pretty much where their
>>specialness, as far as how they are part of a directory, ends.
>
> Well, except for that fact that they create a loop of hard links.
But a loop of hard links can be created with otherwise named entries as
well. It is generally disallowed for regular users to create hard links
to directories, because they are dangerous when used incorrectly, but
that doesn't make . and .. really special.
> The problem, as the OP stated, is that Unix filesystems can't make up
> their minds whether to be trees or arbitrary directed graphs. On any
By design.
> system which is fully the former, like that in AmigaOS, there are no
> special entries in a directory, and every file and directory has one
> and only one link pointing to it. On a system that is completely the
One of the strengths of the Unix file system is that multiple links can
point to the same file. Add in symbolic links, and the .. entry is
almost necessary to get to where you want to be. It can be done without
this structure, as many other file systems prove, but that doesn't mean
either is better. I much prefer the Unix file system over many others
I've got a knowledge of.
> latter, of course, the concept of a parent directory is meaningless.
Unix file systems couldn't be as featureful as they are without them.
You can't take one particular feature of a file system and compare it to
the absence of that feature in another without taking the whole system
into account.
> I wanted to check how File::Find deals with this, but apparently it
> doesn't. There are other OS specific checks, but "." and ".." are
> always skipped. So File::Find is broken on Macs, Amigas, etc.
Then File::Find should be fixed, most likely by someone who actually is
on a system where . and .. aren't special.
> Please ignore Godzilla and its pseudonyms - do not feed the troll.
Stop mentioning it. I was still blissfully unaware of her return until
people started mentioning it again. Even a good set of killfile rules
isn't enough anymore, nowadays :)
Martien
--
Martien Verbruggen |
Interactive Media Division | That's not a lie, it's a
Commercial Dynamics Pty. Ltd. | terminological inexactitude.
NSW, Australia |
------------------------------
Date: Thu, 08 Feb 2001 09:48:00 GMT
From: Ted Fiedler <tfiedler@zen.moldsandwich.com>
Subject: removing empty line
Message-Id: <Pine.BSO.4.32.0102080447220.11661-100000@zen.moldsandwich.com>
how would I remove an empty line from only the end of a file?
questionable in PA
------------------------------
Date: Thu, 08 Feb 2001 12:27:44 GMT
From: mike_solomon@lineone.net
Subject: Re: removing empty line
Message-Id: <95u3bp$h76$1@nnrp1.deja.com>
In article <Pine.BSO.4.32.0102080447220.11661-
100000@zen.moldsandwich.com>,
Ted Fiedler <tfiedler@zen.moldsandwich.com> wrote:
> how would I remove an empty line from only the end of a file?
>
> questionable in PA
>
>
The following code checks if the last line of a file is empty.
if so it write the file to a new file name without the last line then
renames the new file to the old file name.
I hope this is what you want.
there is probably a better way of doing it but this worked on my test
file
use strict;
use diagnostics;
my $file = "mike.txt";
my $count = 0;
my $test = "1";
open (FILE, $file);
while (<FILE>) {
$count++;
chomp;
$test = 0 if $_ eq "";
}
close FILE;
if ( $test == 0 ) {
open (NEW,">${file}new");
open (FILE,${file});
while (<FILE>) {
print NEW $_ if $count != $.;
}
}
close FILE;
close NEW;
rename "${file}new","$file";
Regards
Mike Solomon
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 8 Feb 2001 14:28:54 +0100
From: "Luuk Houwen" <Luuk.Houwen@t-online.de>
Subject: SGML-X/HTML
Message-Id: <95u6ub$u5q$04$1@news.t-online.com>
I have been landed with 40 Mb of sgml documents and no browser. I would love
to convert these documents to either XML or(X) HTML. Does anyone know if
there is a Perl script about that does the job?
Luuk
------------------------------
Date: 8 Feb 2001 13:35:55 GMT
From: ebohlman@omsdev.com (Eric Bohlman)
Subject: Re: SGML-X/HTML
Message-Id: <95u7br$iv2$2@bob.news.rcn.net>
Luuk Houwen <Luuk.Houwen@t-online.de> wrote:
> I have been landed with 40 Mb of sgml documents and no browser. I would love
> to convert these documents to either XML or(X) HTML. Does anyone know if
> there is a Perl script about that does the job?
Rather than re-inventing the wheel, I'd suggest getting a hold of James
Clark's SP package and using SX to convert the documents to XML.
Note that SP includes nsgmls, which converts an SGML document to a
line-oriented format called ESIS, which is easy to process with Perl
(there are a couple modules on CPAN specifically intended for helping with
this).
------------------------------
Date: 08 Feb 2001 04:29:22 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: splitting a string on the / character
Message-Id: <m1k871qrx9.fsf@halfdome.holdit.com>
>>>>> "Studio" == Studio 51 <leekembel@hotmail.com> writes:
Studio> My point is that a lot of "helpful" replies seem to just be
Studio> "read the man pages". That is not helpful,
Yes it is. If a clueful person can determine that the answer is
derivable directly from the manpages, the original poster should be
directed there first. But if someone says "I've read manpage XYZ, and
still don't understand it", I'm sure you'll find that we don't then
say "well go back and read it again". That *would* be rude. Instead,
we try to help explain if we can.
But why should you waste the resources of Usenet as a simple Manpage
Copy-N-Paste service? That's silly.
From the "worth repeating 27 more times department":
THIS IS NOT A HELP DESK.
THIS IS A COMMUNITY POTLUCK.
DON'T BOGART THE POTATO SALAD.
BRING A DISH IF YOU CAN.
DON'T WHINE IF NOBODY BROUGHT ICE CREAM.
There.
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: Thu, 8 Feb 2001 12:24:16 -0000
From: "Martin Toman" <mtoman@bfsec.bt.co.uk>
Subject: Validating date formats
Message-Id: <95u3au$nc$1@pheidippides.axion.bt.co.uk>
Hello,
Can anyone tell me the best way to check that a string is in a particular
date format; ie;
DDMMYYhhmm
Any ideas how to check for this format will be gratefully accepted
Thanks in Advance
martin
------------------------------
Date: Thu, 08 Feb 2001 13:25:03 GMT
From: mike_solomon@lineone.net
Subject: Re: Validating date formats
Message-Id: <95u6n9$jkd$1@nnrp1.deja.com>
In article <95u3au$nc$1@pheidippides.axion.bt.co.uk>,
"Martin Toman" <mtoman@bfsec.bt.co.uk> wrote:
> Hello,
> Can anyone tell me the best way to check that a string is in a
particular
> date format; ie;
>
> DDMMYYhhmm
>
> Any ideas how to check for this format will be gratefully accepted
>
> Thanks in Advance
>
> martin
>
>
I don't think it is possible
0101010101
could be DDMMYYhhmm or MMDDYYhhmm or YYMMDDhhmm etc.
Regards
Mike Solomon
Sent via Deja.com
http://www.deja.com/
------------------------------
Date: Thu, 8 Feb 2001 08:27:08 +0000 (UTC)
From: bernard.el-hagin@lido-tech.net (Bernard El-Hagin)
Subject: Re: When is an array @f allowed in a string?
Message-Id: <slrn984m2q.2uq.bernard.el-hagin@gdndev25.lido-tech>
On 08 Feb 2001 07:43:47 GMT, Philip Hirschhorn <psh@math.mit.edu> wrote:
>My apologies for asking a question that I should probably able to
>remember where I've seen answered before, but I'm stumped. If I run
>the script
>
>--------------------------------------------------------------------
>#! /usr/bin/perl -w
>
>&makepoly;
>print "f = @f\n";
>exit(0);
>
>sub makepoly {
> $f[0] = 0;
> $f[1] = 1;
> $f[2] = 2;
>} # makepoly
>--------------------------------------------------------------------
>
>Then I get the error mesage:
>
>In string, @f now must be written as \@f at printtest line 4, near "f = @f"
>Execution of printtest aborted due to compilation errors.
[snip]
Place the line:
use diagnostics;
at the top of your script and you'll get your answer.
Cheers,
Bernard
--
#requires 5.6.0
perl -le'* = =[[`JAPH`]=>[q[Just another Perl hacker,]]];print @ { @ = [$ ?] }'
------------------------------
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 V10 Issue 242
**************************************
