[9481] in Perl-Users-Digest
Perl-Users Digest, Issue: 3076 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Jul 7 00:07:29 1998
Date: Mon, 6 Jul 98 21:01:32 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 6 Jul 1998 Volume: 8 Number: 3076
Today's topics:
Problem w/ CGI file permissions (BurninUrGe)
Re: Problem w/ CGI file permissions (Martien Verbruggen)
Re: question about objects <rra@stanford.edu>
Question: Read from file (Alex Kovalenko)
Re: Question: Read from file (brian d foy)
Re: regexp s/// for removing tail end of string <uri@sysarch.com>
Regular Expressions <azman@bnex.com>
Re: Regular Expressions (Bob Trieger)
Re: Regular Expressions (brian d foy)
Re: Regular Expressions (Jeremy D. Zawodny)
Re: s/,/','/; <rick500@ibm.net>
Re: s/,/','/; <ljz@asfast.com>
Re: Setting locale failed (Chip Salzenberg)
Re: SSL-to-HTTP Inter-to-Intranet proxy (Yutaka Sato =?ISO-2022-JP?B?GyRAOjRGI0stGyhK?=)
Re: Uploading image files <tjchamberlain@hotmail.com>
Re: Uploading image files <tjchamberlain@hotmail.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 7 Jul 1998 01:01:16 GMT
From: burninurge@aol.com (BurninUrGe)
Subject: Problem w/ CGI file permissions
Message-Id: <1998070701011600.VAA25455@ladder03.news.aol.com>
I'm attempting to write a CGI program that takes an HTML file, inserts the
user's comments, and returns the HTML file. Much like a guestbook, I guess. My
problem is even though I set the file I'm modifying to chmod(0666) in my unix
shell, when I check to see if the file is writeable in Perl, it says it isn't.
What could I be doing wrong? Anyone?
In addition, it won't let me change permissions on the file from Perl, but I
sort of expected that.
PLEASE e-mail any replies as I can rarely check this newsgroup for replies.
Here is the snippet of my program in question:
$course = 40;
$myfile = "/u10/asm/courses/Fall98/" . $course . ".html";
open(FILE_IN, $myfile) || print("Error");
@filedata = <FILE_IN>;
close(FILE_IN);
unless(chmod(0666, $myfile)) {
print "Ack! That sucks";
}
if(-w $myfile) {
print "Writeable";
}
else {
print "NOPE!";
}
I always get "Ack! That sucksNOPE!" as my output.
Any help is greatly appreciated.
------------------------------
Date: 7 Jul 1998 03:10:09 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: Problem w/ CGI file permissions
Message-Id: <6ns3ih$if0$1@comdyn.comdyn.com.au>
In article <1998070701011600.VAA25455@ladder03.news.aol.com>,
burninurge@aol.com (BurninUrGe) writes:
> My problem is even though I set the file I'm modifying to
> chmod(0666) in my unix shell, when I check to see if the file is
> writeable in Perl, it says it isn't.
Where's the output of ls -l for this? Are you sure you set it correctly?
> In addition, it won't let me change permissions on the file from
> Perl, but I sort of expected that.
Normally, or rather, often, only the owner is allowed to do that. You
can do that from within perl, no problem. You might not be able to do
it as a CGI script if the web server runs it as someone else than the
owner of the file. Please get that right. Perl != CGI.
> PLEASE e-mail any replies as I can rarely check this newsgroup for replies.
Pity to you. If you are too lazy to get your answer here, you won't
get it.
> $course = 40;
>
> $myfile = "/u10/asm/courses/Fall98/" . $course . ".html";
$myfile = "/u10/asm/courses/Fall98/$course.html";
Will work just as well.
> open(FILE_IN, $myfile) || print("Error");
Why don't you see why this failed if it fails?
open(FILE_IN, $myfile) || print "Cannot open $myfile for reading: $!";
Does your server allow access to the file? Maybe it does a chroot?
Why don't you do a ls -l to see what the modes really are? You really
need to do more investigation before posting.
We are not psychic. We cannot look at your directories. you will have
to do that yourself.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | 75% of the people make up 3/4 of the
Commercial Dynamics Pty. Ltd. | population.
NSW, Australia |
------------------------------
Date: 06 Jul 1998 20:18:41 -0700
From: Russ Allbery <rra@stanford.edu>
Subject: Re: question about objects
Message-Id: <m3lnq6xsa6.fsf@windlord.Stanford.EDU>
F Quednau <quednauf@nortel.co.uk> writes:
> Russ Allbery wrote:
>> Ew. I'd never write either. It saves so much typing to just write:
>> print while <blah>;
> And is it dangerous to have
> print <blah>;
> for that matter ?
Depends on how big of files you're dealing with. I'd rather not read a
couple of megabytes into memory just to print it out.
--
#!/usr/bin/perl -- Russ Allbery, Just Another Perl Hacker
$^=q;@!>~|{>krw>yn{u<$$<[~||<Juukn{=,<S~|}<Jwx}qn{<Yn{u<Qjltn{ > 0gFzD gD,
00Fz, 0,,( 0hF 0g)F/=, 0> "L$/GEIFewe{,$/ 0C$~> "@=,m,|,(e 0.), 01,pnn,y{
rw} >;,$0=q,$,,($_=$^)=~y,$/ C-~><@=\n\r,-~$:-u/ #y,d,s,(\$.),$1,gee,print
------------------------------
Date: Tue, 07 Jul 1998 05:43:47 GMT
From: techsoft@abcpages.com (Alex Kovalenko)
Subject: Question: Read from file
Message-Id: <35a1b48e.25341512@news.sprint.ca>
Hi! I am wondering how you are doing the following in Perl:
Pascal:
---------------------------------------
program file reading;
var a: text;
b: string;
begin
assign (a, file);
reset(f);
while eoln do begin
readln(b, a);
end;
end;
--------------------------------------
for those who didn't understand I just need to read from file by
lines, 1-st, 2-nd, etc till the end.
Any ideas? I need it asap.. So plz advise..
Thanks a lot. Take care. Bye.
------------------------------
Date: Mon, 06 Jul 1998 23:38:33 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Question: Read from file
Message-Id: <comdog-ya02408000R0607982338330001@news.panix.com>
Keywords: from just another new york perl hacker
In article <35a1b48e.25341512@news.sprint.ca>, techsoft@abcpages.com (Alex Kovalenko) posted:
>Hi! I am wondering how you are doing the following in Perl:
>
>Pascal:
[snip]
>for those who didn't understand I just need to read from file by
>lines, 1-st, 2-nd, etc till the end.
open FILE, $filename or die "$!";
while( <FILE> )
{
... #do something
}
you might like to get:
Learning Perl
Randal L. Schwartz & Tom Christiansen
ISBN 1-56592-284-0
<URL:http://www.oreilly.com>
good luck :)
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>
------------------------------
Date: 06 Jul 1998 22:58:17 -0400
From: Uri Guttman <uri@sysarch.com>
Subject: Re: regexp s/// for removing tail end of string
Message-Id: <x7k95qnz92.fsf@sysarch.com>
>>>>> "A" == Abigail <abigail@fnx.com> writes:
A> Larry Rosler (lr@hpl.hp.com) wrote on MDCCLXX September MCMXCIII in
A> <URL: news:MPG.100a0d1bfec9379f989718@nntp.hpl.hp.com>:
A> ++ In article <6norj5$afs$1@news.iquest.net> on Sun, 5 Jul 1998 16:35:34 -
A> ++ 0500, Jerry <jerry@fitzweb.com> says...
A> ++ > Hi there, hope someone can give me a quick hack to do this.
A> ++ >
A> ++ $_ = 'dir/subdir/subsubdir/file.ext';
A> ++
A> ++ my @a = split /(\/)/;
A> ++ my $out = join "", @a[0 .. $#a - 1];
A> ++
A> ++ I hope someone with greater skills than I will show how to do this
A> ++ efficiently as a "one-liner" (i.e., without using a named temporary
A> ++ array).
A> my $out = sub {split m{/}; pop; join '/', @_} -> ();
A> Abigail
A> --
A> Then again, @_ is named....
how about this:
$_= '/usr/local/bin' ;
$basedir = join( '/', (split( '/'))[0 .. tr|/|/| - 1] ) ;
no subs, named vars, temp vars, anon lists, regexes, etc.
it's not even that obscure!
do i win the prize?
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---- 8 Years of Perl Experience, Available Immediately
uri@sysarch.com --------- Resume and Perl Example at http://www.sysarch.com
Use the Best Search Engine on the Net -------- http://www.northernlight.com
------------------------------
Date: Mon, 06 Jul 1998 10:11:12 +0800
From: Azman Shariff <azman@bnex.com>
Subject: Regular Expressions
Message-Id: <35A03240.CCE9748D@bnex.com>
Just one small question
sub where can i learn more about regular expressions{
if it is from the manpages of perl {
please do tell me exactly how to use them;
thank you;
}
else {
could some kind soul point me somewhere?;
}
}
:)
Azman Shariff
ps: just to add some spice :)
------------------------------
Date: Tue, 07 Jul 1998 02:15:33 GMT
From: sowmaster@juicepigs.com (Bob Trieger)
Subject: Re: Regular Expressions
Message-Id: <6ns0g9$npq$1@ligarius.ultra.net>
[ posted and mailed ]
Azman Shariff <azman@bnex.com> wrote:
-> Just one small question
->
-> sub where can i learn more about regular expressions{
perldoc perlre
or spend $30 and pick up `Mastering Regular Expressions' by Jeff Freidl (sp?).
HTH
Bob Trieger
sowmaster@juicepigs.com
" Cost a spammer some cash: Call 1-800-286-0591
and let the jerk that answers know that his
toll free number was sent as spam. "
------------------------------
Date: Mon, 06 Jul 1998 22:26:10 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Regular Expressions
Message-Id: <comdog-ya02408000R0607982226100001@news.panix.com>
Keywords: from just another new york perl hacker
In article <35A03240.CCE9748D@bnex.com>, Azman Shariff <azman@bnex.com> posted:
>Just one small question
>
>sub where can i learn more about regular expressions
`man perl` - look for the page that deals with regular expressions
or buy:
Mastering Regular Expressions
Jeffrey Freidl
ISBN 1-56592-257-3
<URL:http://www.oreilly.com>
Learning Perl
Randal L. Schwartz & Tom Christiansen
ISBN 1-56592-284-0
<URL:http://www.oreilly.com>
Programming Perl
Larry Wall, Tom Christiansen & Randal L. Schwartz
ISBN 1-56592-149-6
<URL:http://www.oreilly.com>
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers Travel Deals! <URL:http://www.pm.org/travel.html>
------------------------------
Date: 06 Jul 1998 22:39:29 -0400
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
To: azman@bnex.com
Subject: Re: Regular Expressions
Message-Id: <m3yau6xu3i.fsf@peach.z.org>
Azman Shariff <azman@bnex.com> writes:
> sub where can i learn more about regular expressions{
> if it is from the manpages of perl {
> please do tell me exactly how to use them;
> thank you;
> }
> else {
> could some kind soul point me somewhere?;
> }
> }
5 points for style. :-)
O'Reilly Publishes a book titled "Mastering Regular Expressions" which
is VERY GOOD. I highly recommend it -- even if you can't get an
autographed copy. :-)
Jeremy
--
Jeremy D. Zawodny Web Geek, Perl Hacker, etc.
http://www.wcnet.org/~jzawodn/ jzawodn@wcnet.org
LOAD "LINUX",8,1
------------------------------
Date: Mon, 06 Jul 1998 23:25:58 -0700
From: Rick Stidham <rick500@ibm.net>
Subject: Re: s/,/','/;
Message-Id: <35A1BF76.B27E5F5@ibm.net>
Aha, I see what's wrong. Doh!! Stupid. Line 5 below is substituting a
comma with among other things, another comma, which is picked up by the
next line of code and changed to another string. I just didn't see what
was happening. I've been looking for that for about 5 hours!
Thanks for your help anyway, Brian.
Rick Stidham wrote:
>
>
> s|,|</font></td>\n<td><font size=-2>|;
> s|,|</font></td>\n<td><font size=-2><INPUT TYPE=\"value\" NAME=\"|;
> s/,/quant\" VALUE=\"1\" SIZE=3>\n<INPUT TYPE=\"button\"\" NAME=\"/;
> s/,/add\" VALUE=\"Add\" onclick=\"top.menu.buyItem\('/;
> s/,/','/;
> s/,/ document.itemsform./;
> s/,/quant.value\)\">/;
> s|<td><font size=-1></font></td>|<td> </td>\n|g;
> print ;
> print "</font></td></tr>\n";
>
> $_ initially contains a single comma-delimited database record with a
> dozen or so fields. I'm creating JavaScript code incorporating the
> contents of the fields. If I replace the apostrophe-comma-apostrophe
> string in line 5 with any other string, it works fine, just won't work
> with a comma in there. It returns two apostrophes and omits the comma.
>
> Thanks for the help, if anything else comes to mind, please post it!
>
> (Using Perl 5.)
------------------------------
Date: 06 Jul 1998 23:30:33 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: s/,/','/;
Message-Id: <ltlnq69w2u.fsf@asfast.com>
Rick Stidham <rick500@ibm.net> writes:
> brian d foy wrote:
> >
> [snip]
> >
> > are you sure there isn't another problem in your code? which
> > version of Perl are you using?
> >
> > --
> > brian d foy <comdog@computerdog.com>
>
> Hmmm... I thought about that too, maybe I'm not seeing it-- here are the
> surrounding few lines:
>
> s|,|</font></td>\n<td><font size=-2>|;
> s|,|</font></td>\n<td><font size=-2><INPUT TYPE=\"value\" NAME=\"|;
> s/,/quant\" VALUE=\"1\" SIZE=3>\n<INPUT TYPE=\"button\"\" NAME=\"/;
> s/,/add\" VALUE=\"Add\" onclick=\"top.menu.buyItem\('/;
> 1 s/,/','/;
> 2 s/,/ document.itemsform./;
> 3 s/,/quant.value\)\">/;
> s|<td><font size=-1></font></td>|<td> </td>\n|g;
> print ;
> print "</font></td></tr>\n";
Look at the lines I labeled "1" and "2", above. These two lines do
exactly the same thing as ...
s/,/' document.itemsform.'/;
(This is because line "2" replaces the comma that appears between
apostrophes in line "1").
Does this explain what you're seeing in your output?
If so, then you can replace line "1" with something like this ...
s/,/'-COMMA-'/;
... and then somewhere after line "3" and before the first `print', you
can do this:
s/-COMMA-/,/;
Of course, there are other ways to get the same results, as well.
--
Lloyd Zusman ljz@asfast.com
perl -e '$n=170;for($d=2;($d*$d)<=$n;$d+=(1+($d%2))){for($t=0;($n%$d)==0;
$t++){$n=int($n/$d);}while($t-->0){push(@r,$d);}}if($n>1){push(@r,$n);}
$x=0;map{$x+=(($_>0)?(1<<log($_-0.5)/log(2.0)+1):1)}@r;print"$x\n"'
------------------------------
Date: Tue, 07 Jul 1998 00:01:09 GMT
From: chip@pobox.com (Chip Salzenberg)
Subject: Re: Setting locale failed
Message-Id: <6nroiv$l0$1@cyprus.atlantic.net>
According to "Mark McLellan" <mark@mclellan.com>:
>perl: warning: Setting locale failed.
>perl: warning: Please check that your locale settings:
> LC_ALL = "en_US.ISO8859-1",
> LANG = "us"
> are supported and installed on your system.
>perl: warning: Falling back to the standard locale ("C").
>
>Does anyone have a solution for this warning?
Set LANG and/or LC_ALL to locales that are supported and installed
on your system.
(You couldn't figure this out from the message?!)
--
Chip Salzenberg - a.k.a. - <chip@pobox.com>
"I brought the atom bomb. I think it's a good time to use it." //MST3K
-> Ask me about Perl training and consulting <-
Like Perl? Want to help out? The Perl Institute: www.perl.org
------------------------------
Date: 7 Jul 1998 01:56:34 GMT
From: ysato@etl.go.jp (Yutaka Sato =?ISO-2022-JP?B?GyRAOjRGI0stGyhK?=)
Subject: Re: SSL-to-HTTP Inter-to-Intranet proxy
Message-Id: <rdjWX.ysato@etl.go.jp>
In message <359A46EE.1D24F6CD@mbox.bfi.admin.ch> on 07/01/98(23:25:51)
you Andreas Greulich <andreas.greulich@mbox.bfi.admin.ch> wrote:
|We have an Intranet with several 100 non-SSL WWW-servers and a firewall
|connection to the Internet. We have to make this pool of WWW-servers
|available for external users on the Internet on a safe (ie,
|authenticated) basis. They should be able to use this WWW-servers as if
|they were sitting on the Intranet.
...
|Apporoach 4: URL-Rewriting with single VirtualHost
...
|FTP downloads work more or less. The main drawback is the performance.
|What I wonder is if anybody did something similar, maybe found other
|approaches or maybe already wrote such a rewriter in a more efficient
|langiage (C?). The nicest thing, of course, would be to have it in the
|WWW-server as its own module.
DeleGate, a (HTTP) proxy server I've developed, written in C,
has such URL rewriting mechanism as one of its basic features.
See <URL:http://wall.etl.go.jp/delegate/>.
The original motivation of developing the mechanism was the same
with your one, exporting internal servers to outside of firewall.
The mechanism is named "mount" in DeleGate, which means mounting
each (internal) server at the specified mount point in the name
(URL) space of the single representative server (open to external).
Here is an example to make DeleGate work in such way:
hostX% delegated -P2000 \
MOUNT="/http/host1/* http://host1/*" \
MOUNT="/http/host2/* http://host2/*" \
MOUNT="/ftp/host1/* ftp://host1/*" \
MOUNT="/ftp/host2/* ftp://host2/*"
With this DeleGate server, resources under http://hostN/* will
be provided to clients as http://hostX:2000/http/hostN/*.
URLs in the external representation (http://hostX:2000/*) in request
messages will be rewritten to the internal representation (like
http://hostN/*) then forwarded to servers, and URLs in the
internal representation (both in partial and absolute form) in
response messages will be rewritten to the external representation,
then forwarded to clients. This mounting mechanism was developed
four years ago and has been used practically in many sites (mainly
in Japan :-).
DeleGate also can work as SSL to non-SSL gateway.
<URL:http://wall.etl.go.jp/delegate/ssl/>
For HTTPS to HTTP gateway, add following parameters:
SERVER=https FCL="ssl -ac"
This SSL proxing was developed resently (using SSLeay) thus has
been used only experimentally.
Cheers,
Yutaka
--
Yutaka Sato <ysato@etl.go.jp> http://www.etl.go.jp/~ysato/ @ @
Computer Science Division, Electrotechnical Laboratory ( - )
1-1-4 Umezono, Tsukuba, Ibaraki, 305-8568 Japan _< >_
------------------------------
Date: Tue, 07 Jul 1998 13:25:51 +1000
From: Toby Chamberlain <tjchamberlain@hotmail.com>
Subject: Re: Uploading image files
Message-Id: <35A1953F.C1DE9474@hotmail.com>
OK OK, I can take a hint or 3.... I'll see if I can get my ISP to upgrade
their version of Perl to the latest available.
In the meantime though, if anyone can tell why, given the HTML page in my
previous posts, the following Perl CGI script :
#!/usr/bin/perl
read(STDIN, $QUERY, $ENV{"CONTENT_LENGTH"});
print "Content-type: text/html\n\n<pre>$QUERY</pre>";
exit 0;
... returns the following when a text file is selected (containting the text
"Hi there!!") :
-----------------------------185692166419970
Content-Disposition: form-data; name="GIFFILE";
filename="C:\HTML\CyberOne\MagicPuzzle\test.txt"
Content-Type: text/plain
Hi there!!
-----------------------------185692166419970
Content-Disposition: form-data; name="COLS"
3
-----------------------------185692166419970
Content-Disposition: form-data; name="ROWS"
3
-----------------------------185692166419970--
... but the following when a .gif is selected :
-----------------------------146891968629301
Content-Disposition: form-data; name="GIFFILE";
filename="C:\HTML\CyberOne\MagicPuzzle\puzzleimages\img0.gif"
Content-Type: image/gif
GIF89a%
... obviously something is going wrong! And this is _BEFORE_ any attempt to
parse the form is made. Not only is the gif not all there - but there is no
sign of the other 2 form elements. Anybody know what's going on??
Thanks
Toby
Tom Phoenix wrote:
> On Sat, 4 Jul 1998, Toby Chamberlain wrote:
>
> > A: Can't locate CGI.pm in @INC at ./setdat.cgi line2
>
> Your perl is either over a year old or improperly installed. Don't
> complain to us about that! :-)
>
> > B: Because I like to know how things work sometimes, so if I need or
> > want to do something different I can.
>
> You should look at the modules to see how they do it. If you're wanting to
> do it all from the absolute beginning, start with the protocol
> specifications.
>
> > is there any reason why CGI.pm would be able to read data that is
> > invisible to a non-CGI.pm script??
>
> No, there's nothing magical about CGI.pm. But if it's working any your
> code isn't, that's a big clue about where a bug may be found. :-)
>
> --
> Tom Phoenix Perl Training and Hacking Esperanto
> Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Tue, 07 Jul 1998 13:29:23 +1000
From: Toby Chamberlain <tjchamberlain@hotmail.com>
Subject: Re: Uploading image files
Message-Id: <35A19613.8D30F4D7@hotmail.com>
And for those of you a bit quicker than I was... here's what the actual HTML
code generated looks like (when I did a "View Source" in the browser :
<pre>-----------------------------146891968629301
Content-Disposition: form-data; name="GIFFILE";
filename="C:\HTML\CyberOne\MagicPuzzle\puzzleimages\img0.gif"
Content-Type: image/gif
GIF89a%&]FPe $]V]FPe $]V]EPe @ReEPUAPe]@@Re&]EPU]</pre>
The same question still applies.
Toby
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
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.misc (and this Digest), send your
article to perl-users@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.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
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 V8 Issue 3076
**************************************
