[9016] in Perl-Users-Digest
Perl-Users Digest, Issue: 2634 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 18 20:07:37 1998
Date: Mon, 18 May 98 17:00:29 -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, 18 May 1998 Volume: 8 Number: 2634
Today's topics:
Re: Does Perl have a IDE?I don't like command line. (Stefaan A Eeckels)
Re: Does Perl have a IDE?I don't like command line. <jsd@gamespot.com>
Re: How to make IIS 3.0 execute perl script? (Martien Verbruggen)
Re: I can't store a reference in a key of hash! <gnat@frii.com>
Re: IF problems.... <palincss@tidalwave.net>
Re: Is if ($a="something") a bad style? <merlyn@stonehenge.com>
mail::send win32NT perl5.004.02 <ken.chesak@dhs.state.tx.us>
Re: mail::send win32NT perl5.004.02 <sowmaster@juicepigs.com>
Re: milliseconds (Dave Stafford)
Re: Nuclear bombing of NEW YORK! Small countries can ta (Martien Verbruggen)
Re: Question: Is Perl an acronym? <ljz@asfast.com>
Re: Relative Newbie Question: Multiple Form Inputs Into <merlyn@stonehenge.com>
Re: Text Wrangling Article <palincss@tidalwave.net>
Re: Text Wrangling Article <webmaster@fccjmail.fccj.org>
This, I believe has a simple solution. (WercRB)
Re: This, I believe has a simple solution. <zenin@bawdycaste.org>
translate A-Z to 1-26 (Juping Jin)
Re: translate A-Z to 1-26 (brian d foy)
Re: translate A-Z to 1-26 (Craig Berry)
Re: while, each & assoc array <merlyn@stonehenge.com>
Re: Why do I see the source?? (brian d foy)
Re: Why do I see the source?? (Mark Maurer)
Win32 NT Perl Wrapper <ken.chesak@dhs.state.tx.us>
Re: Win32 NT Perl Wrapper <parafina@sig.net>
Win32::Spawn or Threads in NT Perl <cshupp@entergy.com>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 May 1998 21:24:14 GMT
From: Stefaan.Eeckels@ecc.lu (Stefaan A Eeckels)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6jq8tu$e4q$1@justus.ecc.lu>
In article <6jq4hc$2503@eccws1.dearborn.ford.com>,
cpierce1@cp500.fsic.ford.com (Clinton Pierce) writes:
>
> Because I can ship production software to plants and not incur the wrath
> of Ford Management if it's compiled under the Native C Compiler. If people
> die because the C-Compiler screwed up, it's hard to sue GNU--Sun
> Microsystems is another matter.
This is almost incredible (and certainly doesn't entice me into
buying a Ford). Dead people are dead people, and it's Ford
Management's job to ensure that the tools they use (be that
computer programs or torque wrenches) perform decently. It's
not a responsible attitude to say that as long as the tool
was bought from a cash-rich manufacturer no-one cares about
its performance or correctness.
Pointy-haired boss:
"Pete, how come 10 people got killed in our new Edsels?"
Line manager:
"Ow boss, that was the torque wrenches we got from Big Name
Manufacturer were 50% off. We just use those danm things,
we never check them. After all, if you can sue them..."
Pointy-haired boss:
"Look here Mr Rather (is he still around?) it's not our
problem, it's BNM's, and you can rest assured we'll
sue them..."
OTOH, maybe that's why so many PHBs are buying Microsoft
(Hushed tones: they've got billions of cash in the bank,
can you imagine the settlement when these new NT based
heart monitors go pfuit ;-)
--
Stefaan
--
PGP key available from PGP key servers (http://www.pgp.net/pgpnet/)
___________________________________________________________________
Williams and Holland's Law: If enough data is collected,
anything may be proven by statistical methods.
------------------------------
Date: Mon, 18 May 1998 16:40:12 -0700
From: Jon Drukman <jsd@gamespot.com>
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <3560C6DC.174D64F3@gamespot.com>
Clinton Pierce wrote:
> >why is the distinction between c compiler and native c compiler useful
> >or important? in what way will downloading gcc limit you on solaris vs
> >what you would be able to do if you bought SUNpro?
>
> Because I can ship production software to plants and not incur the wrath
> of Ford Management if it's compiled under the Native C Compiler. If people
> die because the C-Compiler screwed up, it's hard to sue GNU--Sun
> Microsystems is another matter.
you can't sue sun. their product license disclaims all liability.
don't you read the small print?
(ok, now we go into highly involved thread about whether or not software
licenses are legally binding... please, unless you can cite chapter &
verse of a software maker (preferably a compiler vendor) being
successfully sued because of something they sold, just don't even get
into it.)
--
Jon Drukman jsd@gamespot.com
-----------------------------------------------------------------------
Plan: Eat right, exercise regularly, die anyway.
------------------------------
Date: 18 May 1998 23:20:26 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: How to make IIS 3.0 execute perl script?
Message-Id: <6jqfnq$jkm$3@comdyn.comdyn.com.au>
In article <01bd8274$5c3905a0$1c90d9cf@pheng-lay>,
"Pheng Lay" <phengl@ir-optima.com> writes:
> I've installed perl 5.0 build 316 on NT 4.0 with IIS 2.0. I can execute
> perl script on the command prompt, but when I try to execute the perl
> script thru browser, I could not execute it. By default, after installing
> perl, it placed the following line in registry:
You can't execute CGI programs in your browser. You will need to
install a web server. Please ask on one of the comp.infosystems.www.*
groups what might be a suitable solution for you.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: 18 May 1998 16:10:11 -0600
From: Nathan Torkington <gnat@frii.com>
Subject: Re: I can't store a reference in a key of hash!
Message-Id: <5qvhr3b58c.fsf@prometheus.frii.com>
Tom Phoenix <rootbeer@teleport.com> writes:
> Yes you can. But hash keys are always turned into strings, so you can't
> get the reference back out and use it as a reference. One way to work
> around this is to use a module; another is to make a hash whose keys are
> the (stringified) references, while the values are the actual references.
> Hope this helps!
The module in question is called Tie::IxHash and is available from
CPAN. See http://www.perl.com/CPAN for more on CPAN. The Tie::IxHash
module simply handles the parallel hash (mapping stringified
references to real references) behind the scenes. It doesn't offer any
performance benefits, just a cleaner syntax (you magically get a hash
that returns references from keys and each).
I'm all in favour of teaching people to fish, but it's useless to
simply say "there exists a module" without giving a pointer to CPAN.
Cheers;
Nat
------------------------------
Date: Mon, 18 May 1998 19:50:00 -0700
From: Steve Palincsar <palincss@tidalwave.net>
To: Ali <ampun@bigfoot.com>
Subject: Re: IF problems....
Message-Id: <3560F358.3A60@tidalwave.net>
Ali wrote:
>
> I create a script to determine a specific number between a range this cause an error message.
> I need help how perl could find a the number with IF Statement?
Don't forget, perl is case sensitive and doesn't understand IF.
>
> any help would be appreciated.
>
> @URL=(1,2,3,4,5,6,7,8,9,10);
>
> $Counter=0;
> foreach $Match (@URL) {
> if (2 <= $match <= 3) {
> $URL1[Counter]=$Match;
> $Counter++;}
> }
>
> Thx,
>
> Ali
------------------------------
Date: Mon, 18 May 1998 22:15:24 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: Is if ($a="something") a bad style?
Message-Id: <8c90nzz0n6.fsf@gadget.cscaper.com>
>>>>> "John" == John Moreno <phenix@interpath.com> writes:
>> >> if ((n = xpchk(z, i+k)) == 0) {
John> if (0==(n = xpchk(z, i+k))) {
John> Hm? I'm not sure what you mean by "sense" - it's certainly not the same
John> as the original question, but unless I'm missing something it's the same
John> (or rather has the same effect) as Mark-Jason's example.
Ugh! My goof! I didn't notice the == 0 in the first one! I had thought
that it was still testing for non-zero.
Ouch.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 105 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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: Mon, 18 May 1998 16:24:53 -0500
From: Ken Chesak <ken.chesak@dhs.state.tx.us>
Subject: mail::send win32NT perl5.004.02
Message-Id: <3560A725.BC6BD0FF@dhs.state.tx.us>
Can someone tell be exactly where to find the mail::send module. I have
not been able to locate it on CPAN. Is this module suppose to be part
of the normal Perl 5 install? I have seen people using a program called
BLAT to send mail. Is this a good alternate to mail::send.
I have read the FAQ and numerous other sources.
Thanks
------------------------------
Date: Mon, 18 May 1998 18:47:13 -0400
From: Bob Trieger <sowmaster@juicepigs.com>
To: Ken Chesak <ken.chesak@dhs.state.tx.us>
Subject: Re: mail::send win32NT perl5.004.02
Message-Id: <3560BA71.3562@juicepigs.com>
[posted & mailed]
Ken Chesak wrote:
>
> Can someone tell be exactly where to find the mail::send module. I have
> not been able to locate it on CPAN. Is this module suppose to be part
> of the normal Perl 5 install? I have seen people using a program called
> BLAT to send mail. Is this a good alternate to mail::send.
>
> I have read the FAQ and numerous other sources.
I've never heard of Mail::Send but it sounds like you have the standard
win32 port and Net::SMTP is included with it.
The documentation for SMTP.pm is very clear and you should have no
problem using it.
HTH
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: Mon, 18 May 98 22:31:32 GMT
From: Dave.Stafford@globis.net (Dave Stafford)
Subject: Re: milliseconds
Message-Id: <6jqctg$il4$1@news2.xs4all.nl>
In article <355803E1.EC892F5@eto.ericsson.se>, Atle Raestad <etoatr@eto.ericsson.se> wrote:
>Is it possible to measure in milliseconds in perl. "time" returns
>seconds and "times" returns CPU times. I want a function like time, that
>return the value in millisecond instead of seconds.
>
>Regards Atle
( use unsigned values by using capital letters in the pack/unpack)
#!/usr/local/bin/perl
# test to get a full time of day
require 'syscall.ph';
$tv_sec=0;
$tv_usec=0;
# set to GMT with no correction
$tzp=pack("II",0,0);
$tp=pack("LL",$tv_sec,$tv_usec);
syscall(&SYS_gettimeofday, $tp , $tzp);
($tv_sec,$tv_usec)=unpack("LL",$tp);
$time=$tv_sec+$tv_usec/1000000;
print "$time\n";
#end main
dave
------------------------------
Date: 18 May 1998 22:59:58 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
To: viro@steklov.math.psu.edu (Alexander Viro)
Subject: Re: Nuclear bombing of NEW YORK! Small countries can target with nukes!
Message-Id: <6jqehe$jj8$1@comdyn.comdyn.com.au>
[Even though Follow-ups to poster were requested, I feel that this
deserves a follow up on the groups]
[Posted and Mailed]
In article <6jonhc$54e@steklov.math.psu.edu>,
viro@steklov.math.psu.edu (Alexander Viro) writes:
> In article <355FDA23.2C3B4DEB@agd.nsw.gov.au.x>,
> Anthony Mandic <no_sp.am@agd.nsw.gov.au.x> wrote:
> [snip]
>> Sarcasm, is that what you're calling it now huh? Funny the
>> private email you sent me showed me that you were shitscared
>> about something English. What's the matter? Worried that
>> Roderick might find out what you get up to on the net?
>
> Gentlemen, may I ask you to take this extremely interesting discussion
> about your private email to the place where it belongs? That is, away
> from USENET. OK?
When I sent the first reply to the newsgroups, I didn't realise yet
who the poster of that nasty little piece of prose was (note that
he didn't use his real email address, so a personal email was not
possible at that point). After rereading it, I suddenly recognised the
name, after which I tracked down his real email address, and sent him
a personal email. This email he mentions but misrepresents and
obviously misinterprets.
I will not reply to Anthony Mandic's post, because I already sent him
a personal email, which he didn't respond to. I don't know what his
problem is, really, and I don't care. As far as I am concerned, this
thing shouldn't have been on the newsgroups, and should have stayed in
private email. Mr Anthony Mandic preferred to keep this public. I
won't perpetuate it here after this.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | You can't have everything, where would
Commercial Dynamics Pty. Ltd. | you put it?
NSW, Australia |
------------------------------
Date: 18 May 1998 19:33:24 -0400
From: Lloyd Zusman <ljz@asfast.com>
Subject: Re: Question: Is Perl an acronym?
Message-Id: <ltd8dbupbv.fsf@asfast.com>
wayne@Glue.umd.edu (Wayne C. McCullough) writes:
> Lloyd Zusman (ljz@asfast.com) wrote:
> : And to the best of my knowledge, the "Practical Extraction and
> : Reporting Language" acronym was *not* the first one back-fitted by
> : Larry Wall. As early as 1988, I recall seeing his mention of another,
> : possibly more appropriate acronym in the Perl man pages.
>
> Yes, but he told you (in the man page) not to tell anyone he said that.
True ... I had forgotten about that. But then again, now that I think
about it, I vaguely recall a smiley after that admonishment ... or is
that just wishful thinking?
--
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: Mon, 18 May 1998 22:20:51 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
To: angst <angst@scrye.com>
Subject: Re: Relative Newbie Question: Multiple Form Inputs Into a List Array
Message-Id: <8c3ee7z0e3.fsf@gadget.cscaper.com>
>>>>> "angst" == angst <angst@scrye.com> writes:
angst> Unless it's an array of lists, or a list of arrays, or a list of lists,
angst> or an array of arrays, or whatever. But I doubt that's what he meant.
And even then, there's no array of lists, or list of arrays, or list
of lists, or array of arrays. So that cannot be what he meant,
because that doesn't exist.
Now, an array of listrefs, or a list of arrayrefs, or a list of listrefs,
or an array of arrayrefs... *that* would be interesting *and* useful.
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 105 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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: Mon, 18 May 1998 19:47:44 -0700
From: Steve Palincsar <palincss@tidalwave.net>
Subject: Re: Text Wrangling Article
Message-Id: <3560F2D0.7FE@tidalwave.net>
Bill 'Sneex' Jones wrote:
>
> Trying to catch up on my reading, I found above mentioned article in
> Unix Review's "Performance Computing" by Randal Schwartz.
> Very good article :-) It talks about the usage of this code:
>
> @{[]} which allows you to use arbitrary expressions.
>
I discovered this in Joseph Hall's book. I was overjoyed because it
solved
so many headaches I'd been coding around. Shortly afterwards, I found
it
was right there in the Camel all along; but Hall showed me what it was
good for at a time when I was ready to learn it.
All of which proves to me the value of a good perl library. I find I
keep
going back to the different books, discovering something new each time.
The fact that there are five or six good ones I rotate through makes
things
seem fresh.
There's so much there, it would be a miracle if one could grasp it all
in a single reading.
Steve Palincsar
------------------------------
Date: Mon, 18 May 1998 23:21:05 GMT
From: Bill 'Sneex' Jones <webmaster@fccjmail.fccj.org>
Subject: Re: Text Wrangling Article
Message-Id: <3560C082.1BC77B42@fccjmail.fccj.org>
Steve Palincsar wrote:
>
> >
> > @{[]} which allows you to use arbitrary expressions.
> >
>
> was right there in the Camel all along; but Hall showed me what it was
> good for at a time when I was ready to learn it.
>
Prolly the TRUEST statement made here in clpm to date =)
> All of which proves to me the value of a good perl library. I find I
> keep
> going back to the different books, discovering something new each time.
> The fact that there are five or six good ones I rotate through makes
> things
> seem fresh.
>
> There's so much there, it would be a miracle if one could grasp it all
> in a single reading.
Most of my Perl books are rabbit-earred pretty badly. But Hall's book
and Randal's articles help fill in the gaps =)
-Sneex-
____________________________________________________________________________
Bill Jones | FCCJ Webmaster | Voice 1-904-632-3089 | Fax 1-904-632-3007
Florida Community College at Jacksonville | 501 W. State St. | Jax, FL 32202
mailto:webmaster@fccjmail.fccj.org | http://webmaster.fccj.org/Webmaster
------------------------------
Date: 18 May 1998 22:07:30 GMT
From: wercrb@aol.com (WercRB)
Subject: This, I believe has a simple solution.
Message-Id: <1998051822073000.SAA26194@ladder01.news.aol.com>
I just re-built Perl and when I try to run a program using Perl, I get the
messages:
%s: Command not found
%s: Undefined variable
However when I put the perl file in the bin directory and run perl "<file.pl>",
it works fine. According to the docs, these messages mean I am running Perl
from a "Bourne Shell", but I can't find anything on how not to #!use perl from
a bourne shell. help?
------------------------------
Date: 18 May 1998 22:22:10 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: This, I believe has a simple solution.
Message-Id: <895530587.454714@thrush.omix.com>
WercRB <wercrb@aol.com> wrote:
: I just re-built Perl and when I try to run a program using Perl, I get the
: messages:
: %s: Command not found
: %s: Undefined variable
: However when I put the perl file in the bin directory and run perl "<file.pl>",
: it works fine. According to the docs, these messages mean I am running Perl
: from a "Bourne Shell", but I can't find anything on how not to #!use perl from
: a bourne shell. help?
Is the *vary* first line of your script "#!/path/to/your/perl"?
The "#!" *must* be the *vary first* characters of the file. No
newlines, white space, anything.
--
-Zenin
zenin@archive.rhps.org
------------------------------
Date: 18 May 1998 22:21:38 GMT
From: juping+@pitt.edu (Juping Jin)
Subject: translate A-Z to 1-26
Message-Id: <6jqc9i$3gc@usenet.srv.cis.pitt.edu>
I want to translate A-Z symbols to numberical symbols, and tried:
s/([A-Z])/ord('\1')-65/g;
but it doesn't work. How can I achieve this result?
thanks for your help.
Juping
------------------------------
Date: Mon, 18 May 1998 18:39:09 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: translate A-Z to 1-26
Message-Id: <comdog-ya02408000R1805981839090001@news.panix.com>
Keywords: from just another new york perl hacker
In article <6jqc9i$3gc@usenet.srv.cis.pitt.edu>, juping+@pitt.edu (Juping Jin) posted:
>I want to translate A-Z symbols to numberical symbols, and tried:
>
> s/([A-Z])/ord('\1')-65/g;
$_ = 'Just Another New York Perl Hacker';
s/([A-Z])/ord($1) - 64/eg;
print;
--
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 T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 18 May 1998 23:41:00 GMT
From: cberry@cinenet.net (Craig Berry)
Subject: Re: translate A-Z to 1-26
Message-Id: <6jqgud$h05$1@marina.cinenet.net>
brian d foy (comdog@computerdog.com) wrote:
: In article <6jqc9i$3gc@usenet.srv.cis.pitt.edu>, juping+@pitt.edu (Juping Jin) posted:
:
: >I want to translate A-Z symbols to numberical symbols, and tried:
: >
: > s/([A-Z])/ord('\1')-65/g;
:
: $_ = 'Just Another New York Perl Hacker';
:
: s/([A-Z])/ord($1) - 64/eg;
Or, to be character set independent:
s/([A-Z])/ord($1) - ord('A') + 1/eg;
Some of us still see EBCDIC data now and then... :)
---------------------------------------------------------------------
| Craig Berry - cberry@cinenet.net
--*-- Home Page: http://www.cinenet.net/users/cberry/home.html
| Member of The HTML Writers Guild: http://www.hwg.org/
"Every man and every woman is a star."
------------------------------
Date: Mon, 18 May 1998 22:18:37 GMT
From: Randal Schwartz <merlyn@stonehenge.com>
Subject: Re: while, each & assoc array
Message-Id: <8c67j3z0hu.fsf@gadget.cscaper.com>
>>>>> "John" == John Moreno <phenix@interpath.com> writes:
John> Randal Schwartz <merlyn@stonehenge.com> wrote:
>> >>>>> "John" == John Moreno <phenix@interpath.com> writes:
>>
John> Yeah, I don't know who should be given the credit for it, but perls
John> alternative for the single statement (statement condition;) is much
John> better.
>>
>> There's no such thing. It's "expression condition;" You cannot tack a
>> condition onto an arbitrary statement.
>>
>> If you read that in a book, please tell me the book, so I can laugh
>> at it properly. :-)
John> Well, I knew what I meant and so did you, and I ain't writing
John> documentation or specs so it seems close enough to me. Of course if you
John> put it in one of your books or classes somebody would be bound to laugh
John> at it (and of course in those circumstances they'd probably be right).
The problem, John, is that we're not having a private conversation.
So if the newbies playing along at home, mistake what you wrote for a
completely accurate statement, they'll be fuzzily wondering why:
print $n if $n > 10 while $n = <STDIN>;
doesn't work. Because it *does* work in what you said, but not in
real Perl. :-)
Thus, I feel somewhat obligated to do my part to point out the errors
in what other people post here. Especially people that claim they
know better. (Nudge nudge.)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 105 more days
## before I go to *prison* for 90 days; email fund@stonehenge.com for details
--
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: Mon, 18 May 1998 18:30:57 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: Why do I see the source??
Message-Id: <comdog-ya02408000R1805981830570001@news.panix.com>
Keywords: from just another new york perl hacker
In article <35608514.C75B52AE@prodata.it>, Patrick Ohnewein <pohnewein@prodata.it> posted:
>I downloaded the standard perl for NT (I have to use this in my office)
>from CPAN.
>#!/usr/local/bin/perl -w
># howdy
>print "Content-type: text/html\n\n";
>print "<HTML><HEAD><TITLE>Hello World</TITLE></HEAD><BODY><H1>Greetings,
>Terrans!</H1></BODY></HTML>\n";
>
>Can anybody explain me where is the mistake?
it's in the line about using NT. some servers for the PoB systems
don't do work on the HTTP headers for you.
This question would be better answered in a newsgroup devoted to your
server product.
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 T-shirts! <URL:http://www.pm.org/tshirts.html>
------------------------------
Date: 18 May 1998 18:14:50 -0400
From: mwmaurer@mtu.edu (Mark Maurer)
Subject: Re: Why do I see the source??
Message-Id: <6jqbsq$hk6$1@pace1.cts.mtu.edu>
Patrick Ohnewein (pohnewein@prodata.it) wrote:
: I am new in perl, I am trying now the whole day to get something work!
:
: I downloaded the standard perl for NT (I have to use this in my office)
: from CPAN.
: I wrote a simple program:
:
: #!/usr/local/bin/perl -w
: # howdy
: print "Content-type: text/html\n\n";
: print "<HTML><HEAD><TITLE>Hello World</TITLE></HEAD><BODY><H1>Greetings,
: Terrans!</H1></BODY></HTML>\n";
:
: I executed
: perl howdy
: from the command line
: it puts out the HTML source.
:
: I putted the file, that I named howdy on my cgi-bin directory
:
: But when I direct my WEB-Browser (Netscape Communicator 4.02)
: to that location
: .../cgi-bin/howdy
: I don't see the HTML-Page that the script should transmit, but I see the
: scrip source.
Sounds as if your webserver is not configured properly. Check the
documentation for your server. You generally have to have cgi scripts
configured into your server, and a lot of servers require a special ending
like "howdy.cgi" to signify a cgi script.
: Could be I am a fool, but I cannot get it work.
: I'm reading O'Reillys "Learning Perl", but there is not explained, or I
: didn't find what I have to do.
That's because in that book you will learn about Perl, not about your
webserver...
--
Mark Maurer markm@dct.com mwmaurer@mtu.edu
Programmer, Digital Magic Interactive http://www.dminteractive.com
Senior, Michigan Technological University Houghton, MI
-- Views do not represent those of my employer or school
------------------------------
Date: Mon, 18 May 1998 16:29:53 -0500
From: Ken Chesak <ken.chesak@dhs.state.tx.us>
Subject: Win32 NT Perl Wrapper
Message-Id: <3560A851.F8DE44A8@dhs.state.tx.us>
I am running Perl5.004.02 on NT and not using a wrapper. Perl programs
run from command line in a dos window. The pl extension and file type
have be set, so all I do is type the program name. I will be running
the program from the AT command in the future. Why all the fuss about
wrapper programs and putting the program inside a bat to be executed as
a cmd file? I am sure there are good reasons, but I have not run into
those yet.
Thanks
------------------------------
Date: Mon, 18 May 1998 17:24:55 -0500
From: sonny <parafina@sig.net>
Subject: Re: Win32 NT Perl Wrapper
Message-Id: <3560B537.539F061B@sig.net>
Way back when ('93-'95) with the Intergraph perl 4.xxx NT port it was
necessary. It was still necessary on the early Hip 5.x port. The
installation program of current ports (Activestate and the Garam Masala -
or whatever) seem to all the necessary NT registry work, making the wrapper
a non-issue. I've used AT and perl scripts to automate downloads from
client sites, works dandy.
sonny
Ken Chesak wrote:
> I am running Perl5.004.02 on NT and not using a wrapper. Perl programs
> run from command line in a dos window. The pl extension and file type
> have be set, so all I do is type the program name. I will be running
> the program from the AT command in the future. Why all the fuss about
> wrapper programs and putting the program inside a bat to be executed as
> a cmd file? I am sure there are good reasons, but I have not run into
> those yet.
> Thanks
------------------------------
Date: Mon, 18 May 1998 16:39:03 -0500
From: Cris Shupp <cshupp@entergy.com>
Subject: Win32::Spawn or Threads in NT Perl
Message-Id: <3560AA77.D46818CE@entergy.com>
I am looking for examples of how to properly use Win32::Spawn WITH
arguments. I have managed to use it successfully without any at all.
For example, let us suppose that I have an executable called myex.exe .
myex.exe can run with parameters, i.e., from the c:\ prompt I might
type:
myex.exe parameter_1 parameter_2 parameter_3 ... parameter n
how can I get Win32::Spawn to do this?
Also where can I find Malcom Beattie's beta version of NTTHR (I think
that is what his program for supporting
threads on NT is called) and documentation for how to use it?
Please e-mail all responses to me at cshupp@entergy.com
thanks
Cris Shupp
------------------------------
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 2634
**************************************
