[31442] in Perl-Users-Digest
Perl-Users Digest, Issue: 2694 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Nov 25 21:09:40 2009
Date: Wed, 25 Nov 2009 18:09:09 -0800 (PST)
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, 25 Nov 2009 Volume: 11 Number: 2694
Today's topics:
Re: Good Golly Miss Molly Perl. Been so long. <m@rtij.nl.invlalid>
Re: Good Golly Miss Molly Perl. Been so long. <uri@StemSystems.com>
Re: Good Golly Miss Molly Perl. Been so long. <ben@morrow.me.uk>
NET::Telnet question <ccarpenter@afcoms.com>
Re: Perl RE bug with keys(%+) sln@netherlands.com
Quick CGI question (specific to the CGI package) <r.ted.byers@gmail.com>
Re: Quick CGI question (specific to the CGI package) <uri@StemSystems.com>
Re: Quick CGI question (specific to the CGI package) <r.ted.byers@gmail.com>
Re: Quick CGI question (specific to the CGI package) <tadmc@seesig.invalid>
Re: Quick CGI question (specific to the CGI package) <uri@StemSystems.com>
Re: Quick CGI question (specific to the CGI package) <paduille.4061.mumia.w+nospam@earthlink.net>
Re: Quick CGI question (specific to the CGI package) <r.ted.byers@gmail.com>
Re: Quick CGI question (specific to the CGI package) <r.ted.byers@gmail.com>
Re: Quick CGI question (specific to the CGI package) <r.ted.byers@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 25 Nov 2009 23:59:58 +0100
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <egp0u6-9le.ln1@news.rtij.nl>
On Wed, 25 Nov 2009 17:38:42 +0000, Rosalind Mitchell wrote:
> I blame that Michael Jackson, myself.
>
> Wonder what happened to him? He was never so good after Thriller,
> though his books about beer and whisky were all right.
Ughhh, Jackson diagrams. The horror. Took ages to draw, added nothing to
the documentation.
I agree his beer books are a must have.
M4
------------------------------
Date: Wed, 25 Nov 2009 18:14:19 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <87fx82i4dw.fsf@quad.sysarch.com>
>>>>> "RM" == Rosalind Mitchell <steampunk@golgonooza.co.uk> writes:
RM> On Wed, 2009-11-25 at 17:34 +0000, Glenn Jackman wrote:
>> At 2009-11-25 12:27PM, "Uri Guttman" wrote:
>> > this is some of the worst perl code i have ever seen. it is basic
>> > written in perl. 10 or more gotos. NOT ONE SUB. no strict or warnings.
>> > spaghetti logic all the way. i am ashamed to see this code in
>> > public. you should be ashamed too.
>>
>> Come on now. Subroutines are _so_ 1968.
>>
RM> I blame that Michael Jackson, myself.
RM> Wonder what happened to him? He was never so good after Thriller,
RM> though his books about beer and whisky were all right.
and now both are dead so it is back to the confusion of which dead
michael jackson are you referring to?
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 Nov 2009 23:46:19 +0000
From: Ben Morrow <ben@morrow.me.uk>
Subject: Re: Good Golly Miss Molly Perl. Been so long.
Message-Id: <b7s0u6-oef2.ln1@osiris.mauzo.dyndns.org>
Quoth Adam Russell <ac.russell@live.com>:
> No, but there is a perl port to the SymbianOS.
> I have made some contributions to it so I can say
> that it is currently in a working state provided you
> configure a Symbian development environment.
Really? Last time I looked at perl/S60 it was nominally functional, but
practically useless, and I assumed that since Jarkko'd stopped working
on it the port was dead. Are there any sane interfaces to the native S60
APIs, like PyS60 has?
Ben
------------------------------
Date: Wed, 25 Nov 2009 14:47:13 -0800 (PST)
From: Chip <ccarpenter@afcoms.com>
Subject: NET::Telnet question
Message-Id: <63d78c7b-69ad-414d-bcbe-0ce3c35d4ca6@x31g2000yqx.googlegroups.com>
Does anyone know of a way to set the default terminal type using
NET::Telnet to a tvi955?
The server I am telneting into has an application that executes on
login
and opens up a menu system. There is no command line and no
way to get to the command line so I can't send any type of set term
command to the server. I must log in as a tvi955 or I get a bunch of
trash
coming back. I can clean up the trash with a regex but it would be
much
better to just log in as a tvi955 in the first place.
Thanks in advance for your help,
Chip
------------------------------
Date: Wed, 25 Nov 2009 13:27:10 -0800
From: sln@netherlands.com
Subject: Re: Perl RE bug with keys(%+)
Message-Id: <7n7rg5tja2dbbo5r443re0l0pqbqlaava1@4ax.com>
On Mon, 23 Nov 2009 13:51:33 -0800 (PST), Clint O <clint.olsen@gmail.com> wrote:
>Maybe this is a bug, maybe not. I am using the named capture buffers
>to reduce bugs as I change grouping of my regular expressions over
>time. In a lexical analysis application, I'm using it over a series
>of alternations.
>
>my $re = qr/ (?<ALT1>pattern) | (?<ALT2>pattern) | ...
>
>One of the alternations happens to be nested:
>
>my $foo = qr{
> (?<CODEBEGIN>
> \{
> (?<CODE>
> (?:
> (?> [^{}\n]+ ) # Non-parens without
^^
This is not good here, "\n" is never consumed and most likely
the result is a non-match.
This can also be written more effectively as [^{}]++
>backtracking
> |
> (?&CODEBEGIN) # Recurse to start of
>pattern
> )*
> )
> \}
> )
> }x;
>
>However, when I ask for the keys of %+, I only get back CODEBEGIN yet
>the CODE capture is there when I ask for it. My hope was to use the
>keys to determine what I matched so I didn't have to do a series of
>tests on %+, but apparently I will have to continue doing this since
>this method won't work.
>
>This is Perl 5.10.0.
>
>Thanks,
>
>-Clint
You are right, it probably is a bug. However, %+ seems to be private
within recursion the way you have it because acording to the docs
CODEBEGIN can't know about CODE and visa-versa.
That $+{CODE} can be tested and contain a value outside of CODEBEGIN
is a mystery and worrysome. You can of course maintain your own private
hash to store results.
Below, shows this behavior in more detail. Let me know if you find
a satisfactory answer to this.
-sln
---------
use strict;
use warnings;
use Devel::Peek;
use Data::Dumper;
my %CodeAll = ();
my $container = '';
my $string = " func { subfunc { some {code }; more code } {last block}";
my $foo = qr/
(?<CODEBEGIN>
\{
(?<CODE>
(?:
[^{}]++ # Non-parens without backtracking
|
(?&CODEBEGIN) # Recurse to start of pattern
)*
)
(?{ print " * ",Dumper(\%+);
$container = $+{CODE};
})
\}
)
(?{ print ">>* ",Dumper(\%+);
$CodeAll{CODEBEGIN} = $+{CODEBEGIN};
$CodeAll{CODE} = $+{CODE};
})
/x;
print "______________________\n\n";
while ($string =~ /$foo/g)
{
print "\n\n====================\n";
Dump \%+;
print "\n( \%+ )\n",Dumper(\%+);
print "( \%CodeAll )\n",Dumper(\%CodeAll),"\n";
print "______________________\n\n";
}
__END__
------------------------------
Date: Wed, 25 Nov 2009 13:33:37 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Quick CGI question (specific to the CGI package)
Message-Id: <8fa0626b-9d94-4921-966d-38732c7ee8e8@a21g2000yqc.googlegroups.com>
I am using CGI, and have been able to do most of the things I need to
do, until now.
With package CGI (and my question is specific to what is in that
package and what I might have to do beyond what it intrinsicly
supports), the documentation beginning with the title "CREATING A
STANDARD HTTP HEADER" gives, among other examples, the following
example:
print header('image/gif');
From this I believed that I could write something like:
print $query->header('video/$format');
open(FIN,"<","$fname");
binmode(FIN);
binmode STDOUT;
my $fcontent;
read FIN, $fcontent, $flength;
print $fcontent;
Is this appropriate, (I have seen equivalent code on examples on the
web), or is there a way to just write the header first and then send
whatever file has the content without opening it and writing it out in
binary mode within my own code?
This works adequately if you provide something like $format='avi',
$fname to the name of whatever avi file you have, and $flength to the
size of that file.
In fact, it works OK when my browser (firefox) asks what program to
use to view the content because it doesn't know what to do with a file
with an extension of cgi. With the above code, my browser invariably
asked me what to use to view the file, and the file name it gave was
the name of the cgi script. If I told it to use Windows Media Player,
it played the content as desired.
In actuality, my script makes a video file based on request
parameters, and puts the content into a file with a name like
result.avi (or asf, or mpg, depending on the format of the component
clips).
The only way I found to get this cgi script to work as I expected was
to use redirection instead of just writing the content of the file in
binary mode. In other words, the following two lines (with NOTHING
else written to standard out) work as I expected.
my $url = "http://localhost:9080/videos/$fname";
print $query->redirect("$url",-status=>303);
Now, is there a way to tell the client that although the URL requested
pointed at my cgi script, the name of the file containing the content
is result.avi? Or do I have to resort to redirection as I have done
now (pending further insight from CGI experts out there). Or is there
some other package, other than CGI, that I ought to be examining?
Thanks
Ted
------------------------------
Date: Wed, 25 Nov 2009 17:11:24 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <87fx82jlv7.fsf@quad.sysarch.com>
>>>>> "TB" == Ted Byers <r.ted.byers@gmail.com> writes:
TB> From this I believed that I could write something like:
TB> print $query->header('video/$format');
TB> open(FIN,"<","$fname");
don't quote scalars like that. not needed and could cause a bug down the
line
TB> binmode(FIN);
TB> binmode STDOUT;
be consistant in your style. why parens on one and not the other? also
if on a unix platform, binmode won't matter but this makes it portable
to winblows.
TB> my $fcontent;
TB> read FIN, $fcontent, $flength;
where is $flength set? i assume you would do a -s to get the file size
TB> print $fcontent;
if you want more speed, use sysread and syswrite. if you want simpler
code, use File::Slurp and its read_file and write_file subs.
TB> Is this appropriate, (I have seen equivalent code on examples on the
TB> web), or is there a way to just write the header first and then send
TB> whatever file has the content without opening it and writing it out in
TB> binary mode within my own code?
perl has no builtin way to print a file to another handle. there may be
some OS specific ways to do it but i don't know them.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 Nov 2009 14:57:06 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <7c1d7ffd-23c5-4c41-a8a0-4cc1a6382a82@b15g2000yqd.googlegroups.com>
On Nov 25, 5:11=A0pm, "Uri Guttman" <u...@StemSystems.com> wrote:
> >>>>> "TB" =3D=3D Ted Byers <r.ted.by...@gmail.com> writes:
>
> =A0 TB> From this I believed that I could write something like:
>
> =A0 TB> =A0 print $query->header('video/$format');
> =A0 TB> =A0 open(FIN,"<","$fname");
>
> don't quote scalars like that. not needed and could cause a bug down the
> line
>
OK. NB, though, that code was copied from a very quick and dirty
script used to test ideas (with code copied from various sources
including examples on the web).
> =A0 TB> =A0 binmode(FIN);
> =A0 TB> =A0 binmode STDOUT;
>
> be consistant in your style. why parens on one and not the other? also
> if on a unix platform, binmode won't matter but this makes it portable
> to winblows.
>
I know. I have to make certain I can run it on any platform the boss
may bring in, which may well include a Windows server.
> =A0 TB> =A0 my $fcontent;
> =A0 TB> =A0 read FIN, $fcontent, $flength;
>
> where is $flength set? i assume you would do a -s to get the file size
>
You assume correctly. As I said in my remarks, the key variables need
to be set before the code shown.
> =A0 TB> =A0 print $fcontent;
>
> if you want more speed, use sysread and syswrite. if you want simpler
> code, use File::Slurp and its read_file and write_file subs.
>
Good to know.
> =A0 TB> Is this appropriate, (I have seen equivalent code on examples on =
the
> =A0 TB> web), or is there a way to just write the header first and then s=
end
> =A0 TB> whatever file has the content without opening it and writing it o=
ut in
> =A0 TB> binary mode within my own code?
>
> perl has no builtin way to print a file to another handle. there may be
> some OS specific ways to do it but i don't know them.
>
I would have been cleaning up the various things you mentioned as I
refined the program to be ready to deploy.
But the key problem remains. In my testing, the client browser thinks
the video file content has the cgi script as the file name. Did I
misunderstand what the CGI package documentation showed, or did I miss
something in that package that would tell the browser that the content
sent after the header is a video file? Does the CGI package have a
function that is used after the header to tell the script to send a
given file? The CGI package is huge and I may well have missed
something in it that relates to this problem. Or is there another
package that can be used with the CGI package to facilitate sending a
video file (or any other MIME type)? Or do I have to rely entirely on
redirection? Without the redirection, the browser seemed to be
deciding what to do based on the CGI script name rather than the
content type header (unless the header functionin the CGI package
doesn't do what the documentation implies).
Thanks
Ted
------------------------------
Date: Wed, 25 Nov 2009 17:11:29 -0600
From: Tad McClellan <tadmc@seesig.invalid>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <slrnhgre7c.qgh.tadmc@tadbox.sbcglobal.net>
Ted Byers <r.ted.byers@gmail.com> wrote:
> print $query->header('video/$format');
^ ^
^ ^
Single quotes do not interpolate...
> This works adequately if you provide something like $format='avi',
That is simply not possible.
If it worked adequately, then it must certainly have NOT been
the code you've shown us...
--
Tad McClellan
email: perl -le "print scalar reverse qq/moc.noitatibaher\100cmdat/"
------------------------------
Date: Wed, 25 Nov 2009 18:16:35 -0500
From: "Uri Guttman" <uri@StemSystems.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <87bpiqi4a4.fsf@quad.sysarch.com>
>>>>> "TB" == Ted Byers <r.ted.byers@gmail.com> writes:
TB> On Nov 25, 5:11 pm, "Uri Guttman" <u...@StemSystems.com> wrote:
>> >>>>> "TB" == Ted Byers <r.ted.by...@gmail.com> writes:
>>
>> TB> From this I believed that I could write something like:
>>
>> TB> print $query->header('video/$format');
as tad pointed out, that will not generate the right header. use double
quotes and retest it.
TB> But the key problem remains. In my testing, the client browser
TB> thinks the video file content has the cgi script as the file name.
TB> Did I misunderstand what the CGI package documentation showed, or
TB> did I miss something in that package that would tell the browser
TB> that the content sent after the header is a video file? Does the
TB> CGI package have a function that is used after the header to tell
TB> the script to send a given file? The CGI package is huge and I
TB> may well have missed something in it that relates to this problem.
TB> Or is there another package that can be used with the CGI package
TB> to facilitate sending a video file (or any other MIME type)? Or
TB> do I have to rely entirely on redirection? Without the
TB> redirection, the browser seemed to be deciding what to do based on
TB> the CGI script name rather than the content type header (unless
TB> the header functionin the CGI package doesn't do what the
TB> documentation implies).
that is probably because it doesn't recognize video/$format as a known
type. fix the quotes bug and see what happens.
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.sysarch.com --
----- Perl Code Review , Architecture, Development, Training, Support ------
--------- Gourmet Hot Cocoa Mix ---- http://bestfriendscocoa.com ---------
------------------------------
Date: Wed, 25 Nov 2009 17:46:54 -0600
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <f7KdnZCc8JPFX5DWnZ2dnUVZ_gGdnZ2d@earthlink.com>
On 11/25/2009 03:33 PM, Ted Byers wrote:
> I am using CGI, and have been able to do most of the things I need to
> do, until now.
>
> With package CGI (and my question is specific to what is in that
> package and what I might have to do beyond what it intrinsicly
> supports), the documentation beginning with the title "CREATING A
> STANDARD HTTP HEADER" gives, among other examples, the following
> example:
>
> print header('image/gif');
>
> From this I believed that I could write something like:
>
> print $query->header('video/$format');
Try this instead:
print $query->header(
'-content-type' => 'text/html',
'-content-disposition' => 'attachment; filename=result.avi',
)
See RFC 2616.
> open(FIN,"<","$fname");
> binmode(FIN);
> binmode STDOUT;
> my $fcontent;
> read FIN, $fcontent, $flength;
> print $fcontent;
> [...]
------------------------------
Date: Wed, 25 Nov 2009 16:57:21 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <88124fbb-868d-44f2-a57c-fd8f1d445de2@j4g2000yqe.googlegroups.com>
On Nov 25, 6:11=A0pm, Tad McClellan <ta...@seesig.invalid> wrote:
> Ted Byers <r.ted.by...@gmail.com> wrote:
> > =A0 print $query->header('video/$format');
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0^ =A0 =A0 =A0 =A0 =A0 =
=A0 ^
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0^ =A0 =A0 =A0 =A0 =A0 =
=A0 ^
>
> Single quotes do not interpolate...
>
> > This works adequately if you provide something like $format=3D'avi',
>
> That is simply not possible.
>
> If it worked adequately, then it must certainly have NOT been
> the code you've shown us...
>
I now know why it appeared to work adequately. The code I showed
wrote the contents of the video file to standard out. When it does
so, and you tell it to use the Windows media Player to view it, the
palyer displayed the contents of the file anyway. Which led to the
question I asked. The client received the data I intended to send,
but didn't know what to do with it unless told to ignore the extension
on the name of the cgi script that sent it.
Now I changed the code to use the double quotes, and I then changed
the surrounding code to display what that line prints, and obtained
the following:
Content-Type: video/mpg
However, when I comment out the text output statements and instead
write the contents of the video file, the result is the same.
Any other ideas?
Thanks
Ted
------------------------------
Date: Wed, 25 Nov 2009 16:59:12 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <ed5f4aaf-4e31-4ebb-972f-6809fee8b01d@s15g2000yqs.googlegroups.com>
On Nov 25, 6:16=A0pm, "Uri Guttman" <u...@StemSystems.com> wrote:
> >>>>> "TB" =3D=3D Ted Byers <r.ted.by...@gmail.com> writes:
>
> =A0 TB> On Nov 25, 5:11=A0pm, "Uri Guttman" <u...@StemSystems.com> wrote:
> =A0 >> >>>>> "TB" =3D=3D Ted Byers <r.ted.by...@gmail.com> writes:
> =A0 >>
> =A0 >> =A0 TB> From this I believed that I could write something like:
> =A0 >>
> =A0 >> =A0 TB> =A0 print $query->header('video/$format');
>
> as tad pointed out, that will not generate the right header. use double
> quotes and retest it.
>
Done, with no change in behaviour/
> =A0 TB> But the key problem remains. =A0In my testing, the client browser
> =A0 TB> thinks the video file content has the cgi script as the file name=
.
> =A0 TB> Did I misunderstand what the CGI package documentation showed, or
> =A0 TB> did I miss something in that package that would tell the browser
> =A0 TB> that the content sent after the header is a video file? =A0Does t=
he
> =A0 TB> CGI package have a function that is used after the header to tell
> =A0 TB> the script to send a given file? =A0The CGI package is huge and I
> =A0 TB> may well have missed something in it that relates to this problem=
.
> =A0 TB> Or is there another package that can be used with the CGI package
> =A0 TB> to facilitate sending a video file (or any other MIME type)? =A0O=
r
> =A0 TB> do I have to rely entirely on redirection? =A0Without the
> =A0 TB> redirection, the browser seemed to be deciding what to do based o=
n
> =A0 TB> the CGI script name rather than the content type header (unless
> =A0 TB> the header functionin the CGI package doesn't do what the
> =A0 TB> documentation implies).
>
> that is probably because it doesn't recognize video/$format as a known
> type. fix the quotes bug and see what happens.
>
Yes, As reported, I did that. When I checked the string sent by the
call to the header function, it printed precisely "Content-Type: video/
mpg".
Why would it not recognize video/mpg?
Cheers,
Ted
------------------------------
Date: Wed, 25 Nov 2009 17:27:45 -0800 (PST)
From: Ted Byers <r.ted.byers@gmail.com>
Subject: Re: Quick CGI question (specific to the CGI package)
Message-Id: <46e5b6e3-684c-4554-8a52-4d12c7193f41@c3g2000yqd.googlegroups.com>
On Nov 25, 6:46=A0pm, "Mumia W." <paduille.4061.mumia.w
+nos...@earthlink.net> wrote:
> On 11/25/2009 03:33 PM, Ted Byers wrote:
>
> > I am using CGI, and have been able to do most of the things I need to
> > do, until now.
>
> > With package CGI (and my question is specific to what is in that
> > package and what I might have to do beyond what it intrinsicly
> > supports), the documentation beginning with the title "CREATING =A0A
> > STANDARD HTTP HEADER" gives, among other examples, the following
> > example:
>
> > print header('image/gif');
>
> > From this I believed that I could write something like:
>
> > =A0 print $query->header('video/$format');
>
> Try this instead:
>
> print $query->header(
> =A0 =A0 =A0 =A0 '-content-type' =3D> 'text/html',
> =A0 =A0 =A0 =A0 '-content-disposition' =3D> 'attachment; filename=3Dresul=
t.avi',
> =A0 =A0 =A0 =A0 )
>
> See RFC 2616.
>
That produces the following server error:
[Wed Nov 25 20:24:54 2009] [error] [client 127.0.0.1] Bad name after
disposition' at C:/ApacheAndPerl/Apache2/cgi-bin/video.server.cgi line
45.
Might there be a typo in the disposition line?
Ted
> > =A0 open(FIN,"<","$fname");
> > =A0 binmode(FIN);
> > =A0 binmode STDOUT;
> > =A0 my $fcontent;
> > =A0 read FIN, $fcontent, $flength;
> > =A0 print $fcontent;
> > [...]
>
>
------------------------------
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:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#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 V11 Issue 2694
***************************************
