[23279] in Perl-Users-Digest
Perl-Users Digest, Issue: 5499 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Sep 13 18:10:35 2003
Date: Sat, 13 Sep 2003 15:10:09 -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 Sat, 13 Sep 2003 Volume: 10 Number: 5499
Today's topics:
readline() on closed fielhandle? <geoff.cox@blueyonder.co.uk>
Re: readline() on closed fielhandle? <kevin@vaildc.net>
Re: readline() on closed fielhandle? <mbudash@sonic.net>
Re: readline() on closed fielhandle? <geoff.cox@blueyonder.co.uk>
Re: readline() on closed fielhandle? <bwalton@rochester.rr.com>
Re: readline() on closed fielhandle? <geoff.cox@blueyonder.co.uk>
Re: readline() on closed fielhandle? (Tad McClellan)
Re: readline() on closed fielhandle? (Jay Tilton)
Re: readline() on closed fielhandle? <geoff.cox@blueyonder.co.uk>
Re: readline() on closed fielhandle? <geoff.cox@blueyonder.co.uk>
Re: regex help! <REMOVEsdnCAPS@comcast.net>
Re: regex help! <geoff.cox@blueyonder.co.uk>
Re: regex help! (Tad McClellan)
system call question <noemailplease@defunked.net>
variable-width negative look-behind emulation (Xavier Noria)
Re: Which Perl files (other than modules) are used by a <usenet@expires12.2003.tinita.de>
Re: <bwalton@rochester.rr.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 13 Sep 2003 14:48:32 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: readline() on closed fielhandle?
Message-Id: <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>
Hello,
Cannot see what is wrong with following - I get following error
message "readline() on closed fielhandle at line ++" - help please!
Cheers
Geoff
use warnings;
use strict;
use File::Find;
open (OUT, ">>out");
my $dir = 'c:/atemp1/test';
find ( sub {
open (IN, "$_");
++ while (defined(my $line=<IN>)) {
if ($line =~ /Mailto:(.*?)"/i) {
print OUT ("$1");
}
}
}, $dir);
close (OUT);
close (IN);
------------------------------
Date: Sat, 13 Sep 2003 11:07:59 -0400
From: Kevin Michael Vail <kevin@vaildc.net>
Subject: Re: readline() on closed fielhandle?
Message-Id: <kevin-BB3E5F.11075913092003@news101.his.com>
In article <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>,
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> Cannot see what is wrong with following - I get following error
> message "readline() on closed fielhandle at line ++" - help please!
>
> []
>
> open (IN, "$_");
You don't even know if the open succeeded. **Always** check to be sure
open succeeds:
open IN, $_ or die "can't open $_: $!\n";
(Oh, and you don't need the quotes around $_.)
> print OUT ("$1");
Don't need the quotes around $1, either.
--
Kevin Michael Vail | Dogbert: That's circular reasoning.
kevin@vaildc.net | Dilbert: I prefer to think of it as no loose ends.
http://www.vaildc.net/kevin/
------------------------------
Date: Sat, 13 Sep 2003 15:12:54 GMT
From: Michael Budash <mbudash@sonic.net>
Subject: Re: readline() on closed fielhandle?
Message-Id: <mbudash-7D4313.08125413092003@typhoon.sonic.net>
In article <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>,
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> Hello,
>
> Cannot see what is wrong with following - I get following error
> message "readline() on closed fielhandle at line ++" - help please!
>
> Cheers
>
> Geoff
>
> use warnings;
> use strict;
>
> use File::Find;
>
> open (OUT, ">>out");
>
> my $dir = 'c:/atemp1/test';
>
> find ( sub {
>
> open (IN, "$_");
open (IN, "$_") or return;
>
> ++ while (defined(my $line=<IN>)) {
>
[snip]
hth-
--
Michael Budash
------------------------------
Date: Sat, 13 Sep 2003 19:00:34 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: readline() on closed fielhandle?
Message-Id: <qqp6mv8hnh67uh9lp06lp7je7ulq47lpb5@4ax.com>
On Sat, 13 Sep 2003 11:07:59 -0400, Kevin Michael Vail
<kevin@vaildc.net> wrote:
>In article <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>,
> Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>
>> Cannot see what is wrong with following - I get following error
>> message "readline() on closed fielhandle at line ++" - help please!
>>
>> []
>>
>> open (IN, "$_");
>
>You don't even know if the open succeeded. **Always** check to be sure
>open succeeds:
>
>open IN, $_ or die "can't open $_: $!\n";
Kevin,
This has got me confused ! If I use the check for opening the file I
get error message "failed in open(): Permission denied at line 8" and
nothing goes into the file called out ...
If I use line 7 instead, I get error message "readline() on closed
filehandle IN at line 9" - but the email addresses are put into the
file
called out ..?? What am I missing here?
Geoff
1 use warnings;
2 use strict;
3 use File::Find;
4 open (OUT, ">>out");
5 my $dir = 'c:/atemp1/test';
6 find ( sub {
7 open (IN, "$_");
8 # open(IN, $_) or die "Failed in open(): $!";
9 while (defined(my $line=<IN>)) {
10 if ($line =~ /Mailto:(.*?)"/i) {
11 print OUT ("$1 \n");
12 }
13 }
14 }, $dir);
15 close (OUT);
16 close (IN);
>
>(Oh, and you don't need the quotes around $_.)
>
>> print OUT ("$1");
>
>Don't need the quotes around $1, either.
------------------------------
Date: Sat, 13 Sep 2003 19:29:13 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re: readline() on closed fielhandle?
Message-Id: <3F637001.80005@rochester.rr.com>
Geoff Cox wrote:
> On Sat, 13 Sep 2003 11:07:59 -0400, Kevin Michael Vail
> <kevin@vaildc.net> wrote:
>
>
>>In article <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>,
>>Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>>
>>
>>>Cannot see what is wrong with following - I get following error
>>>message "readline() on closed fielhandle at line ++" - help please!
>>>
>>>[]
>>>
>>>open (IN, "$_");
>>>
>>You don't even know if the open succeeded. **Always** check to be sure
>>open succeeds:
>>
>>open IN, $_ or die "can't open $_: $!\n";
>>
>
> Kevin,
>
> This has got me confused ! If I use the check for opening the file I
> get error message "failed in open(): Permission denied at line 8" and
> nothing goes into the file called out ...
>
> If I use line 7 instead, I get error message "readline() on closed
> filehandle IN at line 9" - but the email addresses are put into the
> file
> called out ..?? What am I missing here?
As the sub code reference argument to File::Find's find function, note
that your sub (and your open statement) is being executed many times,
once for each file (but your close statement isn't -- but that doesn't
matter, since open() will first close the filehandle if it is still
open). Apparently somewhere down that list of files you have a file
with permissions set so the user you are running this under cannot read
that file. At that point your open fails with your permission denied
error, and you choose to either die or ignore that fact, depending upon
whether you put the "or die" in. When you told it to die on error, it
did. Maybe you want to just "or return" on error and ignore that file.
You will probably note that only some of your email addresses are put
into the file called out, and that it either skips those files or
terminates when it gets to the first file with the bad permissions
anyway. I'm not sure if the readline() error is a warning or a fatal
error -- I'd guess it is merely a warning, and that consequently your
code is essentially skipping your bad-permission file(s) when you omit
the "or die" on the open.
>
> Geoff
>
>
> 1 use warnings;
> 2 use strict;
> 3 use File::Find;
> 4 open (OUT, ">>out");
> 5 my $dir = 'c:/atemp1/test';
> 6 find ( sub {
> 7 open (IN, "$_");
> 8 # open(IN, $_) or die "Failed in open(): $!";
> 9 while (defined(my $line=<IN>)) {
> 10 if ($line =~ /Mailto:(.*?)"/i) {
> 11 print OUT ("$1 \n");
> 12 }
> 13 }
> 14 }, $dir);
> 15 close (OUT);
> 16 close (IN);
...
--
Bob Walton
------------------------------
Date: Sat, 13 Sep 2003 20:13:17 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: readline() on closed fielhandle?
Message-Id: <95u6mv4ce7a76i3qovcfikjkjm4tc83l46@4ax.com>
On Sat, 13 Sep 2003 19:29:13 GMT, Bob Walton
<bwalton@rochester.rr.com> wrote:
>Geoff Cox wrote:
>
>> On Sat, 13 Sep 2003 11:07:59 -0400, Kevin Michael Vail
>> <kevin@vaildc.net> wrote:
>>
>>
>>>In article <uab6mvob4hsaigjvqjrhutudhjs4kjh4rk@4ax.com>,
>>>Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>>>
>>>
>>>>Cannot see what is wrong with following - I get following error
>>>>message "readline() on closed fielhandle at line ++" - help please!
>>>>
>>>>[]
>>>>
>>>>open (IN, "$_");
>>>>
>>>You don't even know if the open succeeded. **Always** check to be sure
>>>open succeeds:
>>>
>>>open IN, $_ or die "can't open $_: $!\n";
>>>
>>
>> Kevin,
>>
>> This has got me confused ! If I use the check for opening the file I
>> get error message "failed in open(): Permission denied at line 8" and
>> nothing goes into the file called out ...
>>
>> If I use line 7 instead, I get error message "readline() on closed
>> filehandle IN at line 9" - but the email addresses are put into the
>> file
>> called out ..?? What am I missing here?
>
>
>As the sub code reference argument to File::Find's find function, note
>that your sub (and your open statement) is being executed many times,
>once for each file (but your close statement isn't -- but that doesn't
>matter, since open() will first close the filehandle if it is still
>open). Apparently somewhere down that list of files you have a file
>with permissions set so the user you are running this under cannot read
>that file. At that point your open fails with your permission denied
Bob,
this is odd as I am using Windows 98(SE) and have checked that all
files have only the A atribute .. ?
>error, and you choose to either die or ignore that fact, depending upon
>whether you put the "or die" in. When you told it to die on error, it
>did. Maybe you want to just "or return" on error and ignore that file.
with "or return" the code runs without error message and the email
addresses are extracted ..
Cheers
Geoff
> You will probably note that only some of your email addresses are put
>into the file called out, and that it either skips those files or
>terminates when it gets to the first file with the bad permissions
>anyway. I'm not sure if the readline() error is a warning or a fatal
>error -- I'd guess it is merely a warning, and that consequently your
>code is essentially skipping your bad-permission file(s) when you omit
>the "or die" on the open.
>
>
>>
>> Geoff
>>
>>
>> 1 use warnings;
>> 2 use strict;
>> 3 use File::Find;
>> 4 open (OUT, ">>out");
>> 5 my $dir = 'c:/atemp1/test';
>> 6 find ( sub {
>> 7 open (IN, "$_");
>> 8 # open(IN, $_) or die "Failed in open(): $!";
>> 9 while (defined(my $line=<IN>)) {
>> 10 if ($line =~ /Mailto:(.*?)"/i) {
>> 11 print OUT ("$1 \n");
>> 12 }
>> 13 }
>> 14 }, $dir);
>> 15 close (OUT);
>> 16 close (IN);
>...
------------------------------
Date: Sat, 13 Sep 2003 15:24:31 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: readline() on closed fielhandle?
Message-Id: <slrnbm6v7v.33o.tadmc@magna.augustmail.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> 1 use warnings;
> 2 use strict;
> 3 use File::Find;
> 4 open (OUT, ">>out");
> 5 my $dir = 'c:/atemp1/test';
> 6 find ( sub {
> 7 open (IN, "$_");
> 8 # open(IN, $_) or die "Failed in open(): $!";
> 9 while (defined(my $line=<IN>)) {
> 10 if ($line =~ /Mailto:(.*?)"/i) {
> 11 print OUT ("$1 \n");
> 12 }
> 13 }
> 14 }, $dir);
> 15 close (OUT);
> 16 close (IN);
Please spend the time to format your code sensibly.
Many people will just move on to help someone else who has
done what they can to make it easier to give an answer.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 13 Sep 2003 20:51:28 GMT
From: tiltonj@erols.com (Jay Tilton)
Subject: Re: readline() on closed fielhandle?
Message-Id: <3f638071.98085630@news.erols.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
: Bob Walton <bwalton@rochester.rr.com> wrote:
: >Geoff Cox wrote:
: >> Kevin Michael Vail <kevin@vaildc.net> wrote:
: >>>open IN, $_ or die "can't open $_: $!\n";
: >> This has got me confused ! If I use the check for opening the file I
: >> get error message "failed in open(): Permission denied at line 8" and
: >> nothing goes into the file called out ...
: >Apparently somewhere down that list of files you have a file
: >with permissions set so the user you are running this under cannot read
: >that file.
: this is odd as I am using Windows 98(SE) and have checked that all
: files have only the A atribute .. ?
Win98 will also say "Permission denied" when your program tries to open
a directory as if it is a file.
------------------------------
Date: Sat, 13 Sep 2003 21:34:30 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: readline() on closed fielhandle?
Message-Id: <3537mv451nrv3cekfoj611n1qvq5s5a281@4ax.com>
On Sat, 13 Sep 2003 20:51:28 GMT, tiltonj@erols.com (Jay Tilton)
wrote:
>Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>: Bob Walton <bwalton@rochester.rr.com> wrote:
>: >Geoff Cox wrote:
>: >> Kevin Michael Vail <kevin@vaildc.net> wrote:
>
>: >>>open IN, $_ or die "can't open $_: $!\n";
>
>: >> This has got me confused ! If I use the check for opening the file I
>: >> get error message "failed in open(): Permission denied at line 8" and
>: >> nothing goes into the file called out ...
>
>: >Apparently somewhere down that list of files you have a file
>: >with permissions set so the user you are running this under cannot read
>: >that file.
>
>: this is odd as I am using Windows 98(SE) and have checked that all
>: files have only the A atribute .. ?
>
>Win98 will also say "Permission denied" when your program tries to open
>a directory as if it is a file.
Jay,
the email addresses are in files which are in a folder with no
sub-folders so it cannot be this, can it?
Geoff
------------------------------
Date: Sat, 13 Sep 2003 21:36:41 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: readline() on closed fielhandle?
Message-Id: <k837mvc5peldud806eurcubal7m23vjkih@4ax.com>
On Sat, 13 Sep 2003 15:24:31 -0500, tadmc@augustmail.com (Tad
McClellan) wrote:
>Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
>
>> 1 use warnings;
>> 2 use strict;
>> 3 use File::Find;
>> 4 open (OUT, ">>out");
>> 5 my $dir = 'c:/atemp1/test';
>> 6 find ( sub {
>> 7 open (IN, "$_");
>> 8 # open(IN, $_) or die "Failed in open(): $!";
>> 9 while (defined(my $line=<IN>)) {
>> 10 if ($line =~ /Mailto:(.*?)"/i) {
>> 11 print OUT ("$1 \n");
>> 12 }
>> 13 }
>> 14 }, $dir);
>> 15 close (OUT);
>> 16 close (IN);
>
>
>Please spend the time to format your code sensibly.
>
>Many people will just move on to help someone else who has
>done what they can to make it easier to give an answer.
Tad,
sorry about that - would you recommend any program which automates the
formatting?
Cheers
Geoff
------------------------------
Date: Sat, 13 Sep 2003 09:22:06 -0500
From: "Eric J. Roode" <REMOVEsdnCAPS@comcast.net>
Subject: Re: regex help!
Message-Id: <Xns93F5699C38BC3sdn.comcast@206.127.4.25>
-----BEGIN xxx SIGNED MESSAGE-----
Hash: SHA1
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote in
news:lle5mvgf13133a618g0s3h560bpi1c535e@4ax.com:
> I am trying to extract email addresses from about 1000 htm files.
>
> So far am trying
>
> if ($line =~ /Mailto:(.*)"/ {
> print OUT ("$1 \n");
>
> where the line is
>
> <a href="mailto:fred@aol.com"
>
> problem is with the " after the email address and the "greedy" regex
> characteristic which finds other " further along the line ...
>
> can I stop at the first " mark?
Change your thinking a bit. Instead of matching "Mailto:" followed by as
many characters as possible followed by a quote, match "Mailto:" followed
by as many non-quote characters as possible followed by a quote:
if ($line =~ /Mailto:([^"]*)"/)
Also consider making it case-insensitive with the i modifier.
- --
Eric
$_ = reverse sort $ /. r , qw p ekca lre uJ reh
ts p , map $ _. $ " , qw e p h tona e and print
-----BEGIN xxx SIGNATURE-----
Version: PGPfreeware 7.0.3 for non-commercial use <http://www.pgp.com>
iQA/AwUBP2MoO2PeouIeTNHoEQIdtACgxV2WliWoH07gZaS39JHGdb1q+wAAn1f6
oXom0J4O85KppYwOysICYuZs
=yU+G
-----END PGP SIGNATURE-----
------------------------------
Date: Sat, 13 Sep 2003 15:08:09 GMT
From: Geoff Cox <geoff.cox@blueyonder.co.uk>
Subject: Re: regex help!
Message-Id: <pic6mv8q8h1tm9es33aj6s6bjnni52n453@4ax.com>
On Sat, 13 Sep 2003 09:22:06 -0500, "Eric J. Roode"
<REMOVEsdnCAPS@comcast.net> wrote:
>Change your thinking a bit. Instead of matching "Mailto:" followed by as
>many characters as possible followed by a quote, match "Mailto:" followed
>by as many non-quote characters as possible followed by a quote:
>
> if ($line =~ /Mailto:([^"]*)"/)
Thanks Eric - will give it a try...
Cheers
Geoff
>
>Also consider making it case-insensitive with the i modifier.
------------------------------
Date: Sat, 13 Sep 2003 09:10:15 -0500
From: tadmc@augustmail.com (Tad McClellan)
Subject: Re: regex help!
Message-Id: <slrnbm69a7.2jg.tadmc@magna.augustmail.com>
Geoff Cox <geoff.cox@blueyonder.co.uk> wrote:
> On Sat, 13 Sep 2003 08:39:03 +0000 (UTC), Andreas Kahari
><ak+usenet@freeshell.org> wrote:
>> while(defined($line = <IN>)) {
I like this better:
while ( my $line = <IN> ) {
>> ... code ...
>> }
>>
>>And personally I would say
>>
>> open(IN, $_) or die "Failed in open(): $!";
>
> will use both - thanks!
If you read the docs for the function that you used, then you
would have already known to check open()'s return value.
(there is a general-purpose lesson there...)
perldoc -f open
Open returns nonzero upon success, the undefined value otherwise.
...
When opening a file, it's usually a bad idea to continue normal execution
if the request failed, so C<open> is frequently used in connection with
C<die>. Even if C<die> won't do what you want (say, in a CGI script,
where you want to make a nicely formatted error message (but there are
modules that can help with that problem)) you should always check
the return value from opening a file.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Sat, 13 Sep 2003 16:48:05 -0500
From: "J. Smith" <noemailplease@defunked.net>
Subject: system call question
Message-Id: <vm744i46nl3h6b@corp.supernews.com>
If I call an external program like so:
system("$bfish") or warn ("$!");
# Everything is ok
But when I pass parameters like so:
system("$bfish","/E","/I:$file","/O:$file.fish","/Q","/P:$bfishpwd") or
warn("$!");
# I get the "Warning: Something's wrong ....", but it still works.
If I use die instead of warn, the program obviously dies.
So can someone tell me what's going on?
I get a warning, but it still works.
Am I passing parameters the wrong way?
I'm running WinXP pro.
Thanks.
------------------------------
Date: 13 Sep 2003 07:14:52 -0700
From: fxn@hashref.com (Xavier Noria)
Subject: variable-width negative look-behind emulation
Message-Id: <31a13074.0309130614.485c12ad@posting.google.com>
I was playing with variable-width negative look-behind emulation and
worked out this regexp that supports assertions about substrings of
the pre-match:
/^.*(??{ index($&,"foo") == -1 ? "" : "(?!)" })bar/
That matches "bar" if it is not preceded at any point by "foo". I know
that can be achieved by reverse + negative look-ahead but this has to
be considered an exercise (that comes from a question in freenode#perl
that required a single regexp to solve the problem).
I tried a few tricks to extend that to patterns as
/^.*(??{ $& =~ m,fo+, ? "(?!)" : "" })bar/
or
/^.*(?{ local $m = $& })(??{ $m =~ m,fo+, ? "(?!)" : "" })bar/
and the like, but I got segmentation faults (maybe that hits some
corner of the documented experimentalness of that stuff). Looks like
the problem comes from nesting m//, but that's a guess.
Any comments?
-- fxn
------------------------------
Date: 13 Sep 2003 14:17:14 GMT
From: Tina Mueller <usenet@expires12.2003.tinita.de>
Subject: Re: Which Perl files (other than modules) are used by a script?
Message-Id: <bjv8ta$nfbae$1@ID-24002.news.uni-berlin.de>
Jonathan Gowland wrote:
> I'm writing a software installer (in Perl, of course) which is
> intended to run from a CD. Because it may be used on customer systems
> where they don't have Perl installed (shame on them, I know, but they
> pay the bills), I need to put enough of the Perl runtime environment
> on the CD to allow the installer program to run.
you might want to have a look at the PAR-module (available on
CPAN). it packs your program and all needed files into an
executable (or in an extra .par-file).
hth, tina
--
http://www.tinita.de/ \ enter__| |__the___ _ _ ___
http://Movies.tinita.de/ \ / _` / _ \/ _ \ '_(_-< of
http://www.perlquotes.de/ \ \ _,_\ __/\ __/_| /__/ perception
- the above mail address expires end of december 2003 -
------------------------------
Date: Sat, 19 Jul 2003 01:59:56 GMT
From: Bob Walton <bwalton@rochester.rr.com>
Subject: Re:
Message-Id: <3F18A600.3040306@rochester.rr.com>
Ron wrote:
> Tried this code get a server 500 error.
>
> Anyone know what's wrong with it?
>
> if $DayName eq "Select a Day" or $RouteName eq "Select A Route") {
(---^
> dienice("Please use the back button on your browser to fill out the Day
> & Route fields.");
> }
...
> Ron
...
--
Bob Walton
------------------------------
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.
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 5499
***************************************
