[9772] in Perl-Users-Digest
Perl-Users Digest, Issue: 3365 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Aug 5 12:03:33 1998
Date: Wed, 5 Aug 98 09:00:28 -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 Wed, 5 Aug 1998 Volume: 8 Number: 3365
Today's topics:
- How Do I Open a file to Write from an https:// Server <kamenar@webmall.net>
Re: [Q] Win32::OLE CorelDraw->GetSize() RTFM (Jan Patrick Schmidt)
Re: comp.lang.perl.announce redux <merlyn@stonehenge.com>
Re: comp.lang.perl.announce redux (Abigail)
Re: comp.lang.perl.announce redux <jimbo@soundimages.co.uk>
Re: comp.lang.perl.announce redux <merlyn@stonehenge.com>
Re: comp.lang.perl.announce redux (Abigail)
Re: comp.lang.perl.announce redux (Chris Nandor)
Re: comp.lang.perl.announce redux <jimbo@soundimages.co.uk>
Re: comp.lang.perl.announce redux (Chris Nandor)
Re: comp.lang.perl.announce redux (Gary L. Burnore)
Re: DBM Crashes and momory out errors <maierc@chesco.com>
Re: diff-like utility in Perl? (Abigail)
Re: diff-like utility in Perl? (Mark-Jason Dominus)
Re: diff-like utility in Perl? (Gary L. Burnore)
Re: diff-like utility in Perl? (Chris Nandor)
Re: getting the right modules for windows95? <alan@find-it.furryferret.uk.com>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 04 Aug 1998 11:37:52 -0400
From: Webcruiser <kamenar@webmall.net>
Subject: - How Do I Open a file to Write from an https:// Server?
Message-Id: <35C72ACF.BF5@yeahright.net>
I have a cgi program that is loaded from a secure server,
https://safe.order.net/webcruiser/cgi-bin/program.cgi.
The standard location for the program is:
http://webcruiser.com/cgi-bin/program.cgi.
The program needs to open a file for output on the webcruiser.com
directory. It can not do it. If I create the file and send it over, then
chage the chmod to a 766, then the program.cgi on the https server can
write to it. If I don't set the permissions as such, it won't. The
program.cgi will open it for output if I call it from the non-secure
server.
Since the name of the file being created changes daily, I can't create
the file manually and set the permissions. How do I let the program.cgi
on the https server create the needed file?
------------------------------
Date: 3 Aug 1998 17:53:05 GMT
From: JP.Schmidt@t-online.de (Jan Patrick Schmidt)
Subject: Re: [Q] Win32::OLE CorelDraw->GetSize() RTFM
Message-Id: <6q4te1$6pp$1@news01.btx.dtag.de>
Should have upgraded my Perl Win32 distrib before posting this
question...
------------------------------
Date: Wed, 05 Aug 1998 14:56:09 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <8cemuvfpfk.fsf@gadget.cscaper.com>
>>>>> "Chris" == Chris Nandor <pudge@pobox.com> writes:
Chris> In article <3j38q6.kc4.ln@localhost>, tadmc@flash.net (Tad McClellan) wrote:
Chris> # clpa is moderated.
Chris> #
Chris> # The moderator only (I dunno, really) speaks English.
Chris> #
Chris> # How can he evaluate if an article in a foreign language is
Chris> # appropriate for posting when he cannot read it?
Chris> The moderator only (I dunno, really) knows Perl.
Chris> How can he evaluate if an article with some XS code is appropriate for
Chris> posting when he cannot read it?
Your straw man is singing "If I only had a brain..." :)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 5 Aug 1998 14:54:37 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q9rnd$ffi$1@client3.news.psi.net>
Jim Brewer (jimbo@soundimages.co.uk) wrote on MDCCC September MCMXCIII in
<URL: news:u67g7anau.fsf@jimbosntserver.soundimages.co.uk>:
++ Tom Christiansen <tchrist@mox.perl.com> writes:
++
++ > and it still holds true. He is immorally using the moderatorship to
++ > advertise his own for-profit venture.
++
++ How's the cookbook Tom? You don't do the docs and FAQ just to keep in
++ the public eye. Oh, I forgot, your a non-profit venture. No conflict
++ then. Anyway, I'll still buy the cookbook. But at least I know you
++ don't get any money from it. I'll sleep easier knowing your muses are
++ purity and piety.
1) Tom is not the moderator.
2) Tom isn't not saying clpa should be non-commercial.
3) Good free docs and a free faq would probably only hurt
sells of the cookbook.
Abigail
--
perl -e '$_ = q *4a75737420616e6f74686572205065726c204861636b65720a*;
for ($*=******;$**=******;$**=******) {$**=*******s*..*qq}
print chr 0x$& and q
qq}*excess********}'
------------------------------
Date: 05 Aug 1998 16:15:41 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <uemuvmpcy.fsf@jimbosntserver.soundimages.co.uk>
Tom Christiansen <tchrist@mox.perl.com> writes:
> ``The English have no respect for their language, and will not teach
> their children to speak it.'' --G. B. Shaw
Are you SURE that your sigs are random? I'm beginning to belive
otherwise.
Your friend.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: Wed, 05 Aug 1998 14:58:14 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <8caf5jfpc3.fsf@gadget.cscaper.com>
>>>>> "Jim" == Jim Brewer <jimbo@soundimages.co.uk> writes:
Jim> fl_aggie@thepentagon.com (I R A Aggie) writes:
>> Notice, tho, that the Camel wasn't translated into English.
Jim> I noticed that as well. I have also noticed very few Perl books
Jim> translated into English. I wonder why that is? No lack of demand
Jim> then.
I'm often amused when the editors of PerformanceComputing and
WebTechniques take an "active" role in trying to "translate" my
columns into English.
It sometimes comes out as BabelFish-ish. :)
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 5 Aug 1998 15:00:02 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <6q9s1i$ffi$2@client3.news.psi.net>
I R A Aggie (fl_aggie@thepentagon.com) wrote on MDCCC September MCMXCIII
in <URL: news:fl_aggie-0408982053020001@aggie.coaps.fsu.edu>:
++ In article <news-0408981450520001@buzz.hq.alink.net>, news@russo.org
++ (Chris Russo) wrote:
++
++ + Muhuhahahaha. The above statement is from a person who thinks that people
++ + should know the FAQ, the docs, and the culture of Perl before posting to
++ + clpmisc.
++
++ Oh...oh...so, out of idle curiousity, have the FAQ, the docs (all 1256 pages)
++ and the other readily available sources of information been translated
++ into other languages?
No, it hasn't. Or at least, not that I know of. (It would be nice if someone
did though). But have you considered the fact there's a world of difference
between being able to read a language and to write it? I can read German.
But I won't be able to write a meaningful posting in German.
Abigail
--
perl5.004 -wMMath::BigInt -e'$^V=new Math::BigInt+qq;$^F$^W783$[$%9889$^F47$|88768$^W596577669$%$^W5$^F3364$[$^W$^F$|838747$[8889739$%$|$^F673$%$^W98$^F76777$=56;;$^U=substr($]=>$|=>5)*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Wed, 05 Aug 1998 11:07:01 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <pudge-0508981107010001@192.168.0.3>
In article <902324167.156446@red.parallax.co.uk>,
paddy.spencer@parallax.co.uk wrote:
# Kello 5 Aug 1998 10:42:19 GMT, Tom Christiansen <tchrist@mox.perl.com>
# kirjoittanut:
# : I am a native speaker of English,
#
# Not if you're American you're not - and I don't know if you are or not. As
# they say, "On Usenet, noone knows you're a Yank."
Nonsense. It is apparent (as you admit below) that you are not a
linguist. They are far too close to the same thing to be said to be
different languages. For instance, in American English, there is no such
word as "noone". But I suppose the Brits are free to make up that word,
if they wish.
# The last time I looked speakers of English used prepositions: we'd say "Mr
# Blair lied to the country again on Tuesday" rather than "President Clinton
# played hide the salami again Tuesday." We abhorred constructs such as
# "different than"; we also say "fewer" rather than "less" where appropriate
# and refer to "pants" as the items of apparel that go _inside_ the trousers,
# etc, etc.
Such things do not make for different languages, and can barely be said to
make for even different dialects. In California, people refer to
interstates and routes with an indefinite article, for instance. I am
taking the 5 up to Sacramento. In the Northeast, they do not; it is
either "I-5" or simply "5". Does that mean we have different languages?
Nonsense. Does it even mean we have different dialects? Hardly.
The differences between UK English and American English are about the
same, qualitiatively, as the differences between OOP and non-OOP in Perl.
I won't say which is which. :-)
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: 05 Aug 1998 16:11:15 +0100
From: Jim Brewer <jimbo@soundimages.co.uk>
Subject: Re: comp.lang.perl.announce redux
Message-Id: <ug1fbmpkc.fsf@jimbosntserver.soundimages.co.uk>
Tom Christiansen <tchrist@mox.perl.com> writes:
> Go to Germany. Books about Perl are published in languages
> other than English. It is true that I have not seen these
> translated back into English.
Are these titles original to German?
> :What would your ego do without it's daily puffing?
>
> What would you do with an English translation, anyway? :-)
> Get a dictionary, boy. You're embarrassing yourself again.
Bloody irritating. I think it's a personal flaw. Oh well. I'll live.
--
Jim Brewer
e-mailed courtesy copies are unappreciated, please refrain.
------------------------------
Date: Wed, 05 Aug 1998 11:12:42 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <pudge-0508981112430001@192.168.0.3>
In article <8cemuvfpfk.fsf@gadget.cscaper.com>, Randal Schwartz
<merlyn@stonehenge.com> wrote:
# >>>>> "Chris" == Chris Nandor <pudge@pobox.com> writes:
#
# Chris> The moderator only (I dunno, really) knows Perl.
#
# Chris> How can he evaluate if an article with some XS code is appropriate for
# Chris> posting when he cannot read it?
#
# Your straw man is singing "If I only had a brain..." :)
I admit my argument is imperfect, but I think it is relevant. Moderators
don't have to fully grok what they approve. OTOH, they cannot approve
something they don't have some idea about.
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 05 Aug 1998 15:17:30 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: comp.lang.perl.announce redux
Message-Id: <35cb7752.129624893@nntpd.databasix.com>
On Wed, 05 Aug 1998 14:53:59 GMT, in article
<8chfzrfpj6.fsf@gadget.cscaper.com>, Randal Schwartz <merlyn@stonehenge.com>
wrote:
>>>>>> "Jim" == Jim Brewer <jimbo@soundimages.co.uk> writes:
>
>Jim> For Perl as well as technology in general, empirical evidence
>Jim> indicates the very same conclusion: English is THE language of
>Jim> technology, just as Randall pointed out. Yes, a tremendous body of
>Jim> technology activity takes place in languages other than English, but
>Jim> the fact remains, the working language of technology IS English.
>
>It's interesting to see so many people argue my point for me.
Well that happens because you're correct.
[snip]
>It's more a courtesy than a rule. I see non-english posts in CLP.misc
>occasionally, and generally, someone says "hey, CLP.misc is broad...
>you'll get more response if it's english". I'm just raising the
>stakes slightly in CLPA.
I don't see it as raising the stakes at all. It's merely stating not only the
obvious but the current state of affairs of clpa.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Tue, 04 Aug 1998 11:43:20 -0400
From: Charles Maier <maierc@chesco.com>
Subject: Re: DBM Crashes and momory out errors
Message-Id: <35C72C18.57FA0530@chesco.com>
caf@netcity.gr wrote:
>
> I have the following script.
>
> #!/usr/bin/perl use DB_File; $QUERIES = tie %q, "DB_File",
> "C.DB",O_RDWR|O_CREAT,0777,$DB_HASH; for ($x=0;$x < 100000000;$x++) { $q{"1"}
> .= asdf asd fa sd fa sdfas df asd f asd f as df asdf as df as df as df as df
> as df as df as df as d fa sd fa sdf as df as df as df as df as d f asd fa sd
> f asd fas df a sdf as df as df as df asd f asd fas df as df asdf as df asd f
> asd f asdf as df as df asd f asdf as df as df as df giannopoulos"; }; Execute
> it. you will see the proccess using enormous memory that increases
> exponentially, to end to the termination of the proccess. (im talking about
> hundreds of MB used.
>
> but the following script has no problem dealing with extra-super-large db's.
> #!/usr/bin/perl
>
> use DB_File;
>
> my (%dbw,%dbt,%dbx);
> $QUERIES = tie %q, "DB_File", "C.DB",O_RDWR|O_CREAT,0777,$DB_BTREE;
>
> for ($x=0;$x < 100000000000000000;$x++) { $q{"$x"} = "sdfsdf asdf asd fa sd
> fa sdfas df asd f asd f as df asdf as df as df as df as df as df as df as df
> as d fa sd fa sdf as df as df as df as df as d f asd fa sd f asd fas df a sdf
> as df as df as df asd f asd fas df as df asdf as df asd f asd f asdf as df as
> df asd f asdf as df as df as df giannopoulos"; };
>
> The momory usage stays low, and the db can keep up with GB of size.
>
> am i missing something?
>
> Tested on a linux machine (2xppro,scsi,64mb ram,128 mb swap);
>
> alex.
Neet example... ? The first example is generating ONE HUMUNGUS string..
this is guarenteed to eat memory.. just composing each itteration of the
string.
The second example and your report that memory usage is low.. suggests
perhaps that perl doesn't reinvent the string in memory at each
itteration if no manipulation is done on it... (the same string is
assigned to each element)
Anyone know if this is what actually happens??
--
Chuck Maier
CDM Consulting Services
http://www.cdmcon.com
------------------------------
Date: 5 Aug 1998 15:06:29 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: diff-like utility in Perl?
Message-Id: <6q9sdl$ffi$4@client3.news.psi.net>
postmaster (@[127.0.0.1]) wrote on MDCCC September MCMXCIII in
<URL: news:6q8acl$8s8$1@farstar.frb.gov>:
++ What if the person asking is on a system which is not Unix and has no
++ equivalent?
Then he should ask on "comp.lame-os.utilities.missing" for that utility.
Abigail
--
perl -wle '$, = " "; sub AUTOLOAD {($AUTOLOAD =~ /::(.*)/) [0];}
print+Just (), another (), Perl (), Hacker ();'
------------------------------
Date: 5 Aug 1998 11:16:46 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: diff-like utility in Perl?
Message-Id: <6q9t0u$jrv$1@monet.op.net>
In article <6q9sdl$ffi$4@client3.news.psi.net>,
Abigail <abigail@fnx.com> wrote:
>postmaster (@[127.0.0.1]) wrote on MDCCC September MCMXCIII in
><URL: news:6q8acl$8s8$1@farstar.frb.gov>:
>++ What if the person asking is on a system which is not Unix and has no
>++ equivalent?
>
>
>Then he should ask on "comp.lame-os.utilities.missing" for that utility.
Or he should get the Perl version I just wrote from
<URL:http://www.plover.com/~mjd/perl/diff/>
------------------------------
Date: Wed, 05 Aug 1998 15:35:41 GMT
From: gburnore@databasix.com (Gary L. Burnore)
Subject: Re: diff-like utility in Perl?
Message-Id: <35d07ba4.130731823@nntpd.databasix.com>
On 5 Aug 1998 11:16:46 -0400, in article <6q9t0u$jrv$1@monet.op.net>,
mjd@op.net (Mark-Jason Dominus) wrote:
>In article <6q9sdl$ffi$4@client3.news.psi.net>,
>Abigail <abigail@fnx.com> wrote:
>>postmaster (@[127.0.0.1]) wrote on MDCCC September MCMXCIII in
>><URL: news:6q8acl$8s8$1@farstar.frb.gov>:
>>++ What if the person asking is on a system which is not Unix and has no
>>++ equivalent?
>>
>>
>>Then he should ask on "comp.lame-os.utilities.missing" for that utility.
>
>Or he should get the Perl version I just wrote from
>
> <URL:http://www.plover.com/~mjd/perl/diff/>
A very good way to answer the question. Rather than being a total UNIX bigot
and realizing that there are other operating systems out there that the
programmer may have no decision in the purchace of.
--
I DO NOT WISH TO RECEIVE EMAIL IN REGARD TO USENET POSTS
---------------------------------------------------------------------------
How you look depends on where you go.
---------------------------------------------------------------------------
Gary L. Burnore | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
DOH! | ][3:]3^3:]33][:]3^3:]3]3^3:]3]][3
| ][3 3 4 1 4 2 ]3^3 6 9 0 6 9 ][3
Special Sig for perl groups. | Official Proof of Purchase
===========================================================================
------------------------------
Date: Wed, 05 Aug 1998 11:54:53 -0400
From: pudge@pobox.com (Chris Nandor)
Subject: Re: diff-like utility in Perl?
Message-Id: <pudge-0508981154530001@192.168.0.3>
In article <35d07ba4.130731823@nntpd.databasix.com>,
whatpartofdontemailme@dontyouunderstand wrote:
# A very good way to answer the question. Rather than being a total UNIX bigot
# and realizing that there are other operating systems out there that the
# programmer may have no decision in the purchace of.
Huh? Is there a platform that diff does not run on?
--
Chris Nandor mailto:pudge@pobox.com http://pudge.net/
%PGPKey = ('B76E72AD', [1024, '0824090B CE73CA10 1FF77F13 8180B6B6'])
------------------------------
Date: Wed, 5 Aug 1998 15:57:08 +0100
From: Alan Silver <alan@find-it.furryferret.uk.com>
Subject: Re: getting the right modules for windows95?
Message-Id: <39h0grAELHy1EwoJ@find-it.uk.com>
In article <35C5F93A.44FF@flash.net>, Dan Baker <dtbaker_@flash.net>
writes
>Although my questions are about CGI libraries in particular... please
>don't unload on me. I'm having trouble understanding where to get Perl
>modules for win32 (windows95) ;)
If you use the "other" (ie not Activestate) version of Perl for Win32
then you get loads of modules (including the ones you want) precompiled.
I have been using this for a while now and it works fine. The version I
have was snappily named perl5.00402-bindist04-bc and was downloaded from
CPAN. There may be a later version by now.
<snip>
>As an alternative, I did run across some perl code to decode data POSTed
>from HTML... would I be missing much functionality from the CGI module
>if I just hand-roll the code using this routine?:
<code snipped>
It depends what you want to do. I have been using a hand-coded routine
(very similar to yours) from the days before I knew that there were CGI
libraries available and I have never switched over, simply because I
have never needed to. If all you want to do is decode the data from a
POST operation, then just use your own code.
Hope this helps,
Alan
--
Alan Silver
Please remove the furryferret when replying by e-mail
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
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 3365
**************************************
