[25973] in Perl-Users-Digest
Perl-Users Digest, Issue: 8192 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 22 14:05:26 2005
Date: Wed, 22 Jun 2005 11:05:05 -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, 22 Jun 2005 Volume: 10 Number: 8192
Today's topics:
Re: Activestate: how to read from a file or default to <tadmc@augustmail.com>
Re: Activestate: how to read from a file or default to <jgibson@mail.arc.nasa.gov>
Re: Email Address Validation <goff1234@NOSPAM.ntlworld.com>
Re: Email Address Validation <no@email.com>
Re: Email Address Validation <zen13097@zen.co.uk>
Re: Email Address Validation <no@email.com>
Re: Email Address Validation <lawshouse.public@btconnect.com>
Re: FAQ 4.12 How do I find the day or week of the year? <dwilga-MUNGE@mtholyoke.edu>
Is there a symbol table for special vars? <socyl@987jk.com.invalid>
Re: Is there a symbol table for special vars? <scobloke2@infotop.co.uk>
LWP::UserAgent and 404 page not found <iss025@bangor.ac.uk>
Re: LWP::UserAgent and 404 page not found <no@email.com>
Re: Millionaire at 31 ... on the Internet! Listen to ho <zentara@highstream.net>
Re: what's the right way to encode this? <sun_tong@users.sourceforge.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 22 Jun 2005 09:41:11 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Activestate: how to read from a file or default to STDIN
Message-Id: <slrndbiu47.u12.tadmc@magna.augustmail.com>
Henry Law <lawshouse.public@btconnect.com> wrote:
> In passing, I can't find the ActiveState equivalent of Ctrl-D to
> terminate STDIN -
That is because it has nothing to do with ActiveState Perl, managing
STDIN is the Operating System's job.
The answer is in the docs for Windows (I expect), not for Perl.
> and it's not in the html manual as far as I can see.
> Can someone help with that?
Ctrl-Z marks the end of input in Windows terminals.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Wed, 22 Jun 2005 08:56:58 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Activestate: how to read from a file or default to STDIN
Message-Id: <220620050856586246%jgibson@mail.arc.nasa.gov>
In article <1mkib1honfsaqtg9pb95hs6gfqbcqaggt8@4ax.com>, Henry Law
<lawshouse.public@btconnect.com> wrote:
> (Googled a lot for this without success; a good search string eluded
> me).
>
> I have a Perl program running under ActiveState Perl which needs to
> read in a number of control statements before it gets to work. I want
> to be able to specify the name of the file containing the control
> statements (myprog.pl -f filename), but have it default to STDIN if no
> name is supplied (myprog.pl). I can't find a neat way of coding it.
>
> This works (aside from an ActiveState problem I'll come to):
>
> #! C:\Perl\bin\Perl.exe
> use strict;
> use warnings;
>
> use Getopt::Std;
> our $opt_f;
> getopts('f:');
> my @control_commands;
>
> if (defined $opt_f) {
> open (COMMANDS,$opt_f) or
> die "Couldn't open command file '$opt_f'$!";
> @control_commands = <COMMANDS>;
> } else {
> print "Enter control commands, Ctrl-D to finish:";
> @control_commands = <STDIN>; # See problem described later
> }
>
> print for (@control_commands);
> __END__
>
> But it requires me to slurp the whole control file in at one go; there
> won't ever be more than a dozen or so statements so it'll work OK, but
> it's inelegant. What I'd like to do is (lapsing into pseudocode here
> and there as I really can't work out how to code this ...)
>
> if (defined $opt_f) {
> open ($file_handle,$opt_f) or
> die "Couldn't open command file '$opt_f'$!";
> } else {
> open ($file_handle,STDIN); # doesn't compile
> }
>
> while (my $command = <$file_handle> ) {
> do_stuff_with_single_command;
> }
>
> ... there must be a "usual" way of doing this; could someone point me
> in the right direction?
>
> In passing, I can't find the ActiveState equivalent of Ctrl-D to
> terminate STDIN - and it's not in the html manual as far as I can see.
> Can someone help with that?
One way is to assign a typeglob alias to STDIN:
#!/usr/local/bin/perl
use strict;
use warnings;
use Getopt::Std;
our $opt_f;
getopts('f:');
print "opt_f='$opt_f'\n";
my $fh;
if( defined $opt_f ) {
open(IN,$opt_f) or die("Can't open $opt_f: $!");
}else{
*IN = *STDIN;
}
while( my $input = <IN> ) {
chomp($input);
print "You entered: '$input'\n";
last if $input eq 'q';
}
print "Program terminated\n";
I don't know windows, but you can terminate your program based on the
command input, as above.
----== Posted via Newsfeeds.Com - Unlimited-Uncensored-Secure Usenet News==----
http://www.newsfeeds.com The #1 Newsgroup Service in the World! 120,000+ Newsgroups
----= East and West-Coast Server Farms - Total Privacy via Encryption =----
------------------------------
Date: Wed, 22 Jun 2005 13:28:35 GMT
From: Bob <goff1234@NOSPAM.ntlworld.com>
Subject: Re: Email Address Validation
Message-Id: <n7pib1h4sk7cuuc41lej5q8a860v96k8b3@4ax.com>
Thanks to you all, I should none better than to ask for help. So the
next time some one ask me about auto electrics I will say it's more
than my job worth to help. If the web site this is used on was
commercial I would willing pay to have it sorted out.
On Tue, 21 Jun 2005 15:28:48 GMT, Bob <goff1234@NOSPAM.ntlworld.com>
wrote:
>I am not a code type guy, and the code below was given to me it works
>but what I would like to do is put in some sort of email address
>validation as I am not a coder I need as much help as I can get and
>any help would be better than none.
>
>#!/bin/perl
>
># ------------------------------------------------------------
># Form-mail.pl
>#
># Form-mail provides a mechanism by which users of a World-
># Wide Web browser may submit comments to the webmasters
># (or anyone else) at a site. It should be compatible with
># any CGI-compatible HTTP server.
>#
># ------------------------------------------------------------
>
># ------------------------------------------------------------
>
># Define fairly-constants
>
># This should be set to the username or alias that runs your
># WWW server.
>$recipient = 'webmaster@looploon.com';
>
># E-mail address to send intake form to (your address)
># If not using PERL 5, escape the @ thus: \@ instead of @
>$YourEmail = 'webmaster@looploon.com';
>
># This should be set to the URL of your home page, or wherever
># you wish users to return.
>$homepage = 'http://www.looploon.com/loon/welcome.html';
>
># This should match the mail program on your system.
>$mailprog = '/usr/lib/sendmail';
>
># Print out a content-type for HTTP/1.0 compatibility
>print "Content-type: text/html\n\n";
>
># Print a title and initial heading
>print "<Head><Title>Thank you</Title></Head>";
>print "<Body><H1>Thank you</H1>";
>
># Get the input
>read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
>
># Split the name-value pairs
>@pairs = split(/&/, $buffer);
>
>foreach $pair (@pairs)
>{
> ($name, $value) = split(/=/, $pair);
>
> # Un-Webify plus signs and %-encoding
> $value =~ tr/+/ /;
> $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
>
> # Stop people from using subshells to execute commands
> # Not a big deal when using sendmail, but very important
> # when using UCB mail (aka mailx).
> # $value =~ s/~!/ ~!/g;
>
> # Uncomment for debugging purposes
> # print "Setting $name to $value<P>";
>
> $FORM{$name} = $value;
>}
>
># If the comments are blank, then give a "blank form" response
>&blank_response1 unless $FORM{'realname'};
>
># If the comments are blank, then give a "blank form" response
>&blank_response2 unless $FORM{'mnumber'};
>
># If the comments are blank, then give a "blank form" response
>&blank_response3 unless $FORM{'emailaddress'};
>
># Header line in the auto-reply message
>$Header = "LOOPLOON";
>
># Subject of the e-mail autoreply to the submitter
>$Subject = "Thanks for Your Message!";
>
># Your signature lines the end of the autoreply e-mail
>$Signature1 = "Bob Franklin (LoopLoon Web Master)";
>$Signature2 = "www.LoopLoon.com";
>
>&GetDate;
>&SendAutoReply;
>
># Now send mail to $recipient
>
>open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
>print MAIL "Reply-to: $FORM{'emailaddress'} ($FORM{'realname'})\n";
>print MAIL "Subject: LoopLoon Latest News (Forms submission)\n\n";
>print MAIL "Full Name: $FORM{'realname'}\n\n";
>print MAIL "Membership Number: $FORM{'mnumber'}\n\n";
>print MAIL "Email Address: $FORM{'emailaddress'}\n\n";
>print MAIL "Action: $FORM{'action'}\n\n";
>print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
>#print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
>print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
>close (MAIL);
>
># _________________________________________________________
>
>sub SendAutoReply {
>open (MAIL,"|$mailprog -t");
>#open (MAIL,"|$mailprog -t $recipient");
>#open (MAIL,"|$mailprog -t $FORM{'emailaddress'}");
>print MAIL "To: $FORM{'emailaddress'}\n";
>print MAIL "From: $YourEmail\n";
>print MAIL "Subject: LoopLoon Latest News (Subscription
>Confirmation)\n\n";
>print MAIL "$Header\n\n";
>print MAIL "Subject: Subscription confirmation automated
>response\n\n";
>print MAIL "$Date\n";
>print MAIL "$Subject\n\n";
>print MAIL "You sent the following:\n";
>print MAIL "==============================\n\n";
>print MAIL "Full Name: $FORM{'realname'}\n";
>print MAIL "Membership Number: $FORM{'mnumber'}\n";
>print MAIL "Email Address: $FORM{'emailaddress'}\n";
>print MAIL "Action: $FORM{'action'}\n\n";
>print MAIL "MESSAGE: Please reply to this automated Subscription
>Confirmation within 48 hours.\n";
>print MAIL "To do so just send this Email back as a reply.\n\n";
>print MAIL "==============================\n\n";
>print MAIL "Best regards,\n\n";
>print MAIL "$Signature1\n";
>print MAIL "$Signature2\n\n";
>close (MAIL);
>}
>
># _________________________________________________________
>
>sub GetDate {
>@days =
>('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');
>@months =
>('01','02','03','04','05','06','07','08','09','10','11','12');
>($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
>localtime(time);
>$year = $year+1900;
>$Date = "$days[$wday] $mday/$months[$mon]/$year";
>}
>
># _________________________________________________________
>
>
># Make the person feel good for writing to us
>print "Thank you for Subscribing to <I>LoopLoon Latest News</I>!<P>";
>print "You will receive an automated Subscription Confirmation which
>you must reply within 48 hours. ";
>print "Return to our <A HREF=\"$homepage\">home page</A>, if you
>want.<P>";
>
># ------------------------------------------------------------
># subroutine blank_response
>sub blank_response1
>{
> print "Your Full Name appear to be blank, and thus were not sent
>";
> print "to our webmasters. Please re-enter your Full Name, or ";
> print "return to our <A HREF=\"$homepage\">home page</A>, if you
>want.<P>";
> exit;
>}
>
># ------------------------------------------------------------
># subroutine blank_response
>sub blank_response2
>{
> print "Your Membership Number appear to be blank, and thus were
>not sent ";
> print "to our webmasters. Please re-enter your Membership Number,
>or ";
> print "return to our <A HREF=\"$homepage\">home page</A>, if you
>want.<P>";
> exit;
>}
>
># ------------------------------------------------------------
># subroutine blank_response
>sub blank_response3
>{
> print "Your Email Address appear to be blank, and thus were not
>sent ";
> print "to our webmasters. Please re-enter your Email Address, or
>";
> print "return to our <A HREF=\"$homepage\">home page</A>, if you
>want.<P>";
> exit;
>}
>
>
>
>Thanks
--
Goff
------------------------------
Date: Wed, 22 Jun 2005 15:13:13 +0100
From: Brian Wakem <no@email.com>
Subject: Re: Email Address Validation
Message-Id: <3ht9vqFilfflU1@individual.net>
Bob wrote:
> I am not a code type guy, and the code below was given to me it works
> but what I would like to do is put in some sort of email address
> validation as I am not a coder I need as much help as I can get and
> any help would be better than none.
>
> # If the comments are blank, then give a "blank form" response
> &blank_response3 unless $FORM{'emailaddress'};
Ask 5 programmers how to validate an email address and you'll get 6
different answers.
invalid_email_response() unless $FORM{'emailaddress'} =~
m/^[-a-zA-Z0-9_.]+\@[-a-zA-Z0-9_]+\.[-a-zA-Z0-9_.]+[a-zA-Z]$/;
sub invalid_email_response {
print "Enter a real email address please";
}
--
Brian Wakem
------------------------------
Date: 22 Jun 2005 14:53:02 GMT
From: Dave Weaver <zen13097@zen.co.uk>
Subject: Re: Email Address Validation
Message-Id: <42b97b4e$0$24082$db0fefd9@news.zen.co.uk>
On Wed, 22 Jun 2005 15:13:13 +0100, Brian Wakem <no@email.com> wrote:
>
> invalid_email_response() unless $FORM{'emailaddress'} =~
> m/^[-a-zA-Z0-9_.]+\@[-a-zA-Z0-9_]+\.[-a-zA-Z0-9_.]+[a-zA-Z]$/;
That code will reject perfectly valid email addesses, such as
joe+bloggs@example.com
my*name@example.com
and many others.
It will also accept .fred.bloggs@example.com which (I think) is
invalid.
The Mail::RFC822::Address module provides a method to validate
email addresses to the RFC822 specification.
------------------------------
Date: Wed, 22 Jun 2005 16:08:51 +0100
From: Brian Wakem <no@email.com>
Subject: Re: Email Address Validation
Message-Id: <3htd83FiqocoU1@individual.net>
Dave Weaver wrote:
> On Wed, 22 Jun 2005 15:13:13 +0100, Brian Wakem <no@email.com> wrote:
>>
>> invalid_email_response() unless $FORM{'emailaddress'} =~
>> m/^[-a-zA-Z0-9_.]+\@[-a-zA-Z0-9_]+\.[-a-zA-Z0-9_.]+[a-zA-Z]$/;
>
> That code will reject perfectly valid email addesses, such as
> joe+bloggs@example.com
> my*name@example.com
> and many others.
I know, but for ease of implementation against effectiveness it is a
reasonable trade-off IMO. I have a database of 1.4 million email addresses
and that regex matches *all* of them.
--
Brian Wakem
------------------------------
Date: Wed, 22 Jun 2005 17:31:46 +0100
From: Henry Law <lawshouse.public@btconnect.com>
Subject: Re: Email Address Validation
Message-Id: <d24jb11n0vpvrnioee31uo0glihr40vagq@4ax.com>
On Wed, 22 Jun 2005 13:28:35 GMT, Bob <goff1234@NOSPAM.ntlworld.com>
wrote:
>Thanks to you all, I should none better than to ask for help.
What did you ask for help with? The way I read it you wanted someone
to do it for you; and that's not what you get here. Here you get
help, which implies that you do something and then people help you to
do it right, or to do more.
And why should you have "none" [sic] better? Have you been lurking
here for a while, maybe? In which case you would have seen the
posting guidelines, which are posted about twice a week. They contain
lots of help about how to get help, which is what you need.
>So the
>next time some one ask me about auto electrics I will say it's more
>than my job worth to help. If the web site this is used on was
>commercial I would willing pay to have it sorted out.
Nobody is asking you to pay; they're just expecting you to put some
effort in. First.
So let me try to help you get help. Read the code; figure out where
an email address appears as a variable. Try to work out how you'd add
in some kind of validating code (doesn't matter if it's perfect: you
can address that later). Take a copy of the code and modify it a bit,
see if you can make it work. You will need to learn some Perl to do
that. When you can't make it work (and you won't) then localise the
bit that is causing the problem, read the posting guidelines, and post
here again. THEN help will appear; lots of it, of the highest
quality.
BTW, you'll get better treatment in all but muppet-level newsgroups if
you (a) don't top-post and (b) learn to trim follow-up posts; you
posted the whole of your program all over again.
--
Henry Law <>< Manchester, England
------------------------------
Date: Wed, 22 Jun 2005 09:34:07 -0400
From: Dan Wilga <dwilga-MUNGE@mtholyoke.edu>
Subject: Re: FAQ 4.12 How do I find the day or week of the year? (tiny typo)
Message-Id: <dwilga-MUNGE-ED8560.09340722062005@nap.mtholyoke.edu>
In article <d8us7k$7md$1@reader1.panix.com>,
PerlFAQ Server <comdog@panix.com> wrote:
> The Date::Calc module provides two functions for to calculate these.
While probably correct English, the use of "for to" is outmoded and
probably not what the author intended. I suggest s{for to}{to}.
--
Dan Wilga dwilga-MUNGE@mtholyoke.edu
** Remove the -MUNGE in my address to reply **
------------------------------
Date: Wed, 22 Jun 2005 13:25:55 +0000 (UTC)
From: kj <socyl@987jk.com.invalid>
Subject: Is there a symbol table for special vars?
Message-Id: <d9bot3$2rb$1@reader1.panix.com>
Is there a symbol table for special variables like $/ and $| ?
Thanks!
kj
--
NOTE: In my address everything before the first period is backwards;
and the last period, and everything after it, should be discarded.
------------------------------
Date: Wed, 22 Jun 2005 13:57:15 +0000 (UTC)
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: Is there a symbol table for special vars?
Message-Id: <d9bqnr$47d$1@nwrdmz01.dmz.ncs.ea.ibs-infra.bt.com>
kj wrote:
> Is there a symbol table for special variables like $/ and $| ?
perldoc perlvar
Useful clues like this are in the comp.lang.perl.miusc posting
guidelines which you should read.
------------------------------
Date: Wed, 22 Jun 2005 17:47:28 +0100
From: "P.R.Brady" <iss025@bangor.ac.uk>
Subject: LWP::UserAgent and 404 page not found
Message-Id: <42B99620.401@bangor.ac.uk>
I'm using LWP::UserAgent (Active Perl v5.6.1.638) in a web site
crawler, but there's a page I just can't read -
http://www.psychology.bangor.ac.uk/ gives '404 not found' It is
similarly inaccessible for many of the web checkers out there (like
http://validator.w3.org/) but is okay with 'real' browsers like Internet
Explorer and Netscape.
There's a redirection there somewhere behind the scenes to index.php
(which can be read), but then that is so for our main web page
http://www.bangor.ac.uk/ as well and that redirects okay.
I suppose the problem is not understanding how redirection takes place.
Is it a server issue? Do the regular browsers 'guess' at filenames if
none are given? Is there some browser/server negotiation which is not
being implemented?
An extract from the code which exhibits the symptoms is below (but note
the folding of the 'my $referer' line!)
I'd appreciate any help you can give - I've drawn blanks elsewhere!
Regards
Phil
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Response;
use HTML::TokeParser;
#the page which refers to the culprit:
my $referer = http://www.bangor.ac.uk/corporate/informationabout/depts.php';
#the inaccessible page
my $url='http://www.psychology.bangor.ac.uk/';
#but these are okay
# $url='http://www.informatics.bangor.ac.uk/';
# $url='http://www.psychology.bangor.ac.uk/index.php';
# $url='http://www.bangor.ac.uk/';
#open the browser
my $browser = LWP::UserAgent->new;
$browser->timeout(30);
#try to get the page
my $response = $browser->get($url, Referer => $referer);
print "Response $response\n";
my $status= $response->status_line;
($status) = split(' ',$status.' ');
print "Status_line $status\n";
exit;
------------------------------
Date: Wed, 22 Jun 2005 18:26:13 +0100
From: Brian Wakem <no@email.com>
Subject: Re: LWP::UserAgent and 404 page not found
Message-Id: <3htl9jFit5k7U1@individual.net>
P.R.Brady wrote:
> I'm using LWP::UserAgent (Active Perl v5.6.1.638) in a web site
> crawler, but there's a page I just can't read -
> http://www.psychology.bangor.ac.uk/ gives '404 not found' It is
> similarly inaccessible for many of the web checkers out there (like
> http://validator.w3.org/) but is okay with 'real' browsers like Internet
> Explorer and Netscape.
> There's a redirection there somewhere behind the scenes to index.php
> (which can be read), but then that is so for our main web page
> http://www.bangor.ac.uk/ as well and that redirects okay.
>
> I suppose the problem is not understanding how redirection takes place.
> Is it a server issue? Do the regular browsers 'guess' at filenames if
> none are given? Is there some browser/server negotiation which is not
> being implemented?
>
> An extract from the code which exhibits the symptoms is below (but note
> the folding of the 'my $referer' line!)
>
> I'd appreciate any help you can give - I've drawn blanks elsewhere!
>
> Regards
> Phil
>
> my $response = $browser->get($url, Referer => $referer);
They seem to be doing a redirect based upon the language that your broswer
declares itself to accept. As you aren't doing this you get an error page.
Try:-
my $response = $browser->get($url, Referer => $referer, ACCEPT_LANGUAGE =>
'en');
--
Brian Wakem
------------------------------
Date: Wed, 22 Jun 2005 13:08:14 -0400
From: zentara <zentara@highstream.net>
Subject: Re: Millionaire at 31 ... on the Internet! Listen to how he is doing it.
Message-Id: <il6jb1hn2bvr3baojrk931s07jf181t03j@4ax.com>
On Mon, 20 Jun 2005 14:16:59, "Andy Yearsley" <jamesyrsly@yahoo.com>
wrote:
>
>Dear Friend,
>I have got to get this off my chest before I EXPLODE...
Dear Andy, I would prefer to see you explode.
If you can get a friend to videotape it, you will get even more
publicity.
"Exclusively today on A Current Affair"....video footage of a
"man-can-o-spam" exploding. Gotta watch.
--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html
------------------------------
Date: Wed, 22 Jun 2005 13:50:37 -0400
From: * Tong * <sun_tong@users.sourceforge.net>
Subject: Re: what's the right way to encode this?
Message-Id: <1119462638.4b96d5d3e0b85af228956d5752135c27@teranews>
On Wed, 22 Jun 2005 09:39:15 +0200, Arndt Jonasson wrote:
>> µÜÒÝ•"£¨·½
>> ^^^^^^^
>> Notice the extreme big number pointed by ^^^?
>
> I'm sorry I can't help you with your question, but note that letting
> one line to point at another like you do with "^^^^" only works
> reliably if both poster and reader use the same font metrics, which in
> practice means that only fixed-width font is useful (tabs should be
> avoided too). For me, the number pointed out is not 8226, but 183.
Thanks for letting me know. Somehow my mono font is missing from pan's
list...now is ok.
--
Tong (remove underscore(s) to reply)
*niX Power Tools Project: http://xpt.sourceforge.net/
- All free contribution & collection
------------------------------
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 8192
***************************************
