[8940] in Perl-Users-Digest
Perl-Users Digest, Issue: 2558 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon May 11 16:09:42 1998
Date: Mon, 11 May 98 13:00:42 -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, 11 May 1998 Volume: 8 Number: 2558
Today's topics:
Re: a header for `Mail me copies' or `Do not mail me co (John Moreno)
ASCII for arrow keys? <aqumsieh@matrox.com>
Re: Detect if a script is already running? <rootbeer@teleport.com>
Re: Does Perl have a IDE?I don't like command line. (Michael J Gebis)
Re: Does Perl have a IDE?I don't like command line. (Mark-Jason Dominus)
Re: Does Perl have a IDE?I don't like command line. (Greg Bacon)
Re: Does Perl have a IDE?I don't like command line. (Greg Bacon)
Re: Does Perl have a IDE?I don't like command line. (Greg Bacon)
Re: flock is not <andrewf@cp.pathfinder.com>
Re: FOR FUTURE REF(WHAT DOES THIS DO?) <sowmaster@juicepigs.com>
good and bad newsreaders (was: Re: QRe: == vs. eq) (Greg Bacon)
Re: How can you break out of a 'while... ' loop in a fu <fp@pmpcs.com>
Re: How to delete an element in an array? (Kevin Reid)
In need of some code Steve_NoSpam@adnd.com
Re: In need of some code <rootbeer@teleport.com>
Re: is it possible to grab email address from visitor o <hugh_dunne@nospam.com>
Re: MODULE MANIA STRIKES (Was Re: What does this do?) (Greg Bacon)
Newbie question for mailing form contents w/ PERL on II <mcate@gmu.edu>
NEWSFLASH: NUCLEAR war erupts??!! World WAR 3 begins??! <nuketest@yahoo.com>
Re: Perl Win NT (Scott DiNitto)
Re: Perl Win NT (Scott DiNitto)
Re: Perl Win NT <andy@interactive.net>
Re: Perl Win NT (Scott DiNitto)
Please HELP...dynamic PERL page doesn't display... <gwolf@ghostwolf.com>
Re: Scanning Perl scripts for Y2K problems <rootbeer@teleport.com>
Re: Share an array among processes <andrewf@cp.pathfinder.com>
SSI Question dclader@metranet.net
Re: SSI Question <rootbeer@teleport.com>
Re: Strange behaviour of references... (Tom Grydeland)
Re: UID = 0 <jgoldberg@dial-but-dont-spam.pipex.com>
Re: UID = 0 <rootbeer@teleport.com>
Re: uuencode algorithm (Earl Hood)
Re: Win32 Perl Capturing Standard Error <andy@interactive.net>
writing simple XS functions (Ken Williams)
WWW::Search documentation <a.r.mccoy@larc.nasa.gov>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 11 May 1998 17:45:40 GMT
From: phenix@interpath.com (John Moreno)
Subject: Re: a header for `Mail me copies' or `Do not mail me copies'
Message-Id: <1d8v7a3.rwbp7miyps1lN@roxboro0-002.dyn.interpath.net>
In news.software.readers Zenin <zenin@bawdycaste.org> wrote:
> John Moreno <phenix@interpath.com> wrote:
> >snip<
> : Then I suppose the programs[1] that use it and their users don't exist.
> : [1] - slrn, Gnus, MacSOUP, rnr, NewsReader.Com, NewsWatcher,
> : MT-NewsWatcher -- and that's only of the ones that *I* know about.
>
> Your point? It's a non-standard, non-required header. It's also
> in what could only be called "header alpha" since it's arguments
> haven't even been settled yet. Hell, it's not even in the current
> drafts. That being the case, the header is meaningless.
People use it. Programs obey/honor it. Whether it is in the drafts or
not, whether it ever becomes part of a RFC or not is meaningless - what
matters is what programs and people /do/. Drafts and RFC's are used to
both document what is done and to try to influence what will be done in
the future. Documenting current practice isn't required for everything,
and although I think it'd be helpful and useful for granson-of-1036 to
include something for MCT I don't delude myself into thinking that it's
absence prevents it from being utilized.
--
John Moreno
------------------------------
Date: Mon, 11 May 1998 15:24:36 -0400
From: Ala Qumsieh <aqumsieh@matrox.com>
Subject: ASCII for arrow keys?
Message-Id: <35575074.F516660F@matrox.com>
Hi all,
Does anyone know the ASCII (or hex or anything) representation of the
arrow keys?
I tried something like:
chomp($input = <STDIN>);
print "ord $input";
as well as similar variations of this .. but I can't get a definite
answer!
Any ideas anyone?
--
Ala Qumsieh | No .. not just another
ASIC Design Engineer | Perl Hacker!!!!!
Matrox Graphics Inc. |
Montreal, Quebec | (Not yet!)
------------------------------
Date: Mon, 11 May 1998 19:00:30 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: "Aloud.com" <alex@aloud.com>
Subject: Re: Detect if a script is already running?
Message-Id: <Pine.GSO.3.96.980511115905.21974O-100000@user2.teleport.com>
On Mon, 11 May 1998, Aloud.com wrote:
> Is there anyway to detect whether a perl script is already running?
There's no general way to do it.
> You could do it really crudely by ps -ef | grep pl ...etc
And that won't always work, even if you know the arguments to ps on your
system. :-(
But it may be that you could use the methods in Randal's fourth Web
Techniques column, which explains how to use flock() to avoid problems
when multiple processes need to modify one file. Hope this helps!
http://www.stonehenge.com/merlyn/WebTechniques/
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 11 May 1998 17:17:49 GMT
From: gebis@albrecht.ecn.purdue.edu (Michael J Gebis)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6j7brt$6g6@mozo.cc.purdue.edu>
"yujun" <Xyujun@ppp.wzptt.zj.cn> writes:
}Does perl have a IDE(like Turbo C2.0)?
In spite of the slew on non-answers to this question, I
don't think that a good IDE (written, of course, in perl
using Tk) would be such a bad thing. Especially
considering that most people know how to pull down the
"help" menu. Certainly more than know how to use
perldoc.
--
Mike Gebis gebis@ecn.purdue.edu mgebis@eternal.net
------------------------------
Date: 11 May 1998 13:51:43 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6j7drf$138$1@monet.op.net>
Keywords: ignoramus people prefecture tableau
In article <6j4sff$jn0$9@info.uah.edu>, Greg Bacon <gbacon@cs.uah.edu> wrote:
>Using an editor that claims to do syntax highlighting is like riding a
>bicycle with training wheels so rickety they're bound to break at any
>moment.
Bah. It's still Emacs, whether the syntax coloring is on or off.
> XTerm*background: darkslateblue
> XTerm*foreground: lightblue
Pining for your Commodore 64?
------------------------------
Date: 11 May 1998 18:55:26 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6j7hiu$q68$3@info.uah.edu>
In article <6j7drf$138$1@monet.op.net>,
mjd@op.net (Mark-Jason Dominus) writes:
: In article <6j4sff$jn0$9@info.uah.edu>, Greg Bacon <gbacon@cs.uah.edu> wrote:
: > XTerm*background: darkslateblue
: > XTerm*foreground: lightblue
:
: Pining for your Commodore 64?
Actually, I picked up those resource specs from you on #perl a while
back. :-)
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 11 May 1998 19:18:44 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6j7iuk$q68$5@info.uah.edu>
In article <6j7brt$6g6@mozo.cc.purdue.edu>,
gebis@albrecht.ecn.purdue.edu (Michael J Gebis) writes:
: In spite of the slew on non-answers to this question, I
: don't think that a good IDE (written, of course, in perl
: using Tk) would be such a bad thing. Especially
: considering that most people know how to pull down the
: "help" menu. Certainly more than know how to use
: perldoc.
Please give us three good reasons why we should stroke even one key to
help people who refuse to use man, perldoc, or grep? Perl requires at
least that much of a clue.
Perl would cease to be the language we know and love if we watered it
down to meet the needs of the least common denominator. An army of Ken
Thompsons couldn't fully idiot-proof even the simplest program.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: 11 May 1998 19:12:19 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: Does Perl have a IDE?I don't like command line.
Message-Id: <6j7iij$q68$4@info.uah.edu>
In article <ken-1105981241040001@news.swarthmore.edu>,
ken@forum.swarthmore.edu (Ken Williams) writes:
: No, maybe they're doing a 3/4-assed job. Quite possible. Sure, they're
: not going to emulate the whole run-time Perl machine just to color your
: darn syntax, but that doesn't mean it's not useful.
Useful for exceedingly simple cases. What if you have code in a string
that you're going to eval in later? How is the thing to infer whether a
given literal is intended to be code? If you're interested in colored
syntax, perhaps you should look into psychoactives.
: It gives you one more
: structural view of your code - combine nice colors with good indentation,
: good spacing, and all that, and you've got some nice readable code. The
: colors help me see what's going on at a glance.
What happens when it gives something the wrong color? That seems like
it would confound debugging even more.
: That said, I do have a few gripes with BBEdit's coloring. It messes up on
: things like this:
: local $" = ':';
: No biggie, just do this to terminate the runaway string:
: local $" = ':'; #" Quote added for BBEdit
Ugh. Isn't it bad enough that we have to work around compilers (for
other languages)? Must we now work around editors with pseudo-syntax
coloring? Can we say ``maintenance nightmare'', class?
: Here's the biggest pain, though. As of the latest version of BBEdit, the
: stuff inside a regexp is colored as a string. I wish I could turn that
: off, or color it with a different color or something. Worse, they
: sometimes get the boundaries of a regexp wrong.
Yet you still defend it. Use vi and %-friendly regular expression
delimiters. :-)
: But just because the coloring isn't perfect doesn't mean it's not useful.
If I had a simple calculator, I'd be upset if it told me that one plus
one is three. I would be unhappy with HP if one of their calculator's +
operator popped three items off the stack.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Mon, 11 May 1998 15:28:27 -0400
From: "Andrew F. Lee" <andrewf@cp.pathfinder.com>
Subject: Re: flock is not
Message-Id: <Pine.GSO.3.95.980511152505.13870B-100000@cp.pathfinder.com>
On Fri, 8 May 1998, Tom Phoenix wrote:
> On Fri, 8 May 1998, Andrew F. Lee wrote:
>
...SNIP...
Tom,
Thanks for the tips!
BT, the problem has nothing to do with Perl/flock and
everything to do with the way my incompetent sysadmins installed Perl. In
fact, there is no flock available to gcc on our system! So .... no wonder
there is an error when I ask to flock a file in Perl!!!
-------------------------------------------------------------
Andrew F. Lee | |
Software Engineer | parenttime.com |
email: andrewf@pathfinder.com | 1271 Avenue of the Americas |
Phone: (212) 522-2769 | New York, N.Y. 10020 |
-------------------------------------------------------------
When I say, "Ignore the man behind the curtain."
That is because there is no man behind the curtain.
------------------------------
Date: Mon, 11 May 1998 13:24:29 -0400
From: Bob Trieger <sowmaster@juicepigs.com>
Subject: Re: FOR FUTURE REF(WHAT DOES THIS DO?)
Message-Id: <3557344D.5167@juicepigs.com>
J1T1W1 wrote:
>
> All,
> Who answer my posting "WHAT DOES THIS DO?", I appreciate those of you who
> answer my question right out, but those of you who have been programming in
> Perl for quite sometime need to remember that there are people out here that
> are trying to learn and that you shouldn't treat use like we are stupid.
> Because, I know you were in our shoes at one time, seeking help from the
> experts.
Shut up Stupid.
--
Bob Trieger | Titanic: big boat, bigger
sowmaster@juicepigs.com | iceberg, big deal
------------------------------
Date: 11 May 1998 18:38:55 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: good and bad newsreaders (was: Re: QRe: == vs. eq)
Message-Id: <6j7gjv$q68$1@info.uah.edu>
In article <1d8v5gb.14qcbep1sdy36oN@roxboro0-002.dyn.interpath.net>,
phenix@interpath.com (John Moreno) writes:
: Greg Bacon <gbacon@cs.uah.edu> wrote:
: > GNKSA 2.0 compliant software warns about lines longer than eighty
: > characters. A newsreader allowing its users to change this value is
: > evil.
:
: Well, not exactly - if they are able to change it on system-wide basis,
: I'd agree. But if they can change it only on a per post basis (i.e.
: it's ARTICLE preference) or for a specific newsgroup (there are poetry
: groups for example where the <80 is routinely ignored because it doesn't
: fit in with what they are doing).
Keep in mind that part of the nature of a warning is that you can ignore
it if you know what you're doing.
: It is my opinion they didn't include the X-Newsreader header because
: they didn't want people to know what program (Ameol2) was producing such
: junk. I of course don't have any evidence to base this on except for
: the lousy articles that it produced.
Here's what Henry has to say on the matter (from Son-of-1036, Section
4.2.2, ``Undesirable Headers''):
Headers that merely state defaults explicitly (e.g., a Fol-
lowup-To header with the same content as the Newsgroups
header, or a MIME Content-Type header with contents
"text/plain; charset=us-ascii") or state information that
reading agents can typically determine easily themselves
(e.g. the length of the body in octets) are redundant, con-
veying no information whatsoever. Headers that state infor-
mation which cannot possibly be of use to a significant num-
ber of relayers, reading agents, or readers (e.g., the name
of the software package used as the posting agent) are use-
less and pointless. Posters and posting agents SHOULD avoid
including redundant or useless headers in articles.
NOTE: Information that someone, somewhere, might
someday find useful is best omitted from headers.
(There's quite enough of it in article bodies.)
Headers should contain information of known util-
ity only. This is not meant to preclude inclusion
of information primarily meant for news-software
debugging, but such information should be included
only if there is real reason, preferably based on
experience, to suspect that it may be genuinely
useful. Articles passing through gateways are the
only obvious case where inclusion of debugging
information appears clearly legitimate. (See sec-
tion 10.1.)
NOTE: A useful rule of thumb for software imple-
mentors is: "if I had to pay a dollar a day for
the transmission of this header, would I still
think it worthwhile?".
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Mon, 11 May 1998 15:18:23 -0400
From: "Peter Perchansky" <fp@pmpcs.com>
Subject: Re: How can you break out of a 'while... ' loop in a function?
Message-Id: <6j7iml$bp9$1@usenet40.supernews.com>
Greetings:
Look at using "next" and "last".
See page 25 of "Programming Perl"
--
===========================================================
Peter Perchansky, Computer Consultant & Microsoft FrontPage MVP
Dynamic Net, Inc. DBA PMP Computer Solutions
Providing Dynamic Databases, Design, & Electronic Commerce Solutions
FrontPage Web Hosting at http://www.pmpcs.com/services/fpwebhosting.htm
FrontPage Support http://www.msfrontpage.net/
------------------------------
Date: Mon, 11 May 1998 13:53:58 -0400
From: kpreid@ibm.net (Kevin Reid)
Subject: Re: How to delete an element in an array?
Message-Id: <1d8pquh.1xs5e7b49ytfyN@slip166-72-108-218.ny.us.ibm.net>
Tom Christiansen <tchrist@mox.perl.com> wrote:
> [courtesy cc of this posting sent to cited author via email]
I prefer not to get e-mail copies.
> In comp.lang.perl.misc,
> kpreid@ibm.net (Kevin Reid) writes:
> :To me, that code looks like it's using a hash to store the positions of
> :the bits; if you're going to use a hash, why not just store the
> :true/false values in the hash?
>
> You don't want a full hash per set. And you want
> this kind of thing to be blazingly fast. Which it is.
>
> $intersect = $set1 & $set2;
> $union = $set1 | $set2;
Um. I hadn't thought of that.
--
Kevin Reid. | Macintosh.
"I'm me." | Think different.
------------------------------
Date: 11 May 1998 18:14:39 GMT
From: Steve_NoSpam@adnd.com
Subject: In need of some code
Message-Id: <6j7f6f$69v$2@wiley.napanet.net>
I Need a snipit of code that will parse a file and everywhere it finds
a web address in the text it will tack before it
<a href=thewebaddresshere> and tack after it </a>
My perl skills are not well tuned anough for me to figure out how to do
this. Does this code exist somewhere? can someone post it? Thanks
-Steve
(note to reply via e-mail remove the _NoSpam from my address)
------------------------------
Date: Mon, 11 May 1998 19:05:27 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Steve_NoSpam@adnd.com
Subject: Re: In need of some code
Message-Id: <Pine.GSO.3.96.980511120157.21974P-100000@user2.teleport.com>
On 11 May 1998 Steve_NoSpam@adnd.com wrote:
> I Need a snipit of code that will parse a file and everywhere it finds
> a web address
Maybe you missed the recent discussion which pointed out that, in general,
there's no way to be sure of the end of a URL in text, if it may be
followed by other punctuation.
> in the text it will tack before it
>
> <a href=thewebaddresshere> and tack after it </a>
>
> My perl skills are not well tuned anough for me to figure out how to do
> this.
If you want to learn how to do what you need, you can read perlop and
perlre.
> Does this code exist somewhere? can someone post it? Thanks
If you want us to write code for you, you should offer money.
> (note to reply via e-mail remove the _NoSpam from my address)
If you want me to unmunge your address for you, you should offer more
money. :-)
Hope this helps!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 11 May 1998 11:10:07 -0700
From: "Hugh Dunne" <hugh_dunne@nospam.com>
Subject: Re: is it possible to grab email address from visitor of your web page
Message-Id: <35573eeb.qfx@nospam.com>
Larry Rosler wrote:
>Denko wrote in message <6j4414$8rb@ccuh.wlv.ac.uk>...
>>Is it possible to get email address from someone who visits your home page -
>>like as you can grab their IP address and things like that as environment
>>variables(if he/she has specified it in browser they use)
>>
>>Denijal S.
>
>
>Not unless you ask (via a form) and they tell you.
Or they have stored their email address in their Netscape email preferences,
and you use javascript to retrieve it. Of course that's a whole 'nother group
(and another reason to disable javascript in your browser!)
--
Hugh Dunne --->> TO EMAIL ME: Replace "nospam" by "hotmail" <<-----
------------------------------
Date: 11 May 1998 18:53:28 GMT
From: gbacon@cs.uah.edu (Greg Bacon)
Subject: Re: MODULE MANIA STRIKES (Was Re: What does this do?)
Message-Id: <6j7hf8$q68$2@info.uah.edu>
In article <6j74jr$877@fridge.shore.net>,
Art Cohen <upsetter@shore.net> writes:
: The fact that the original poster was clueless meant (to me) that he might
: have a lot of trouble figuring out how to get CGI.pm to work.
If someone has trouble getting CGI.pm to work with the wealth of
examples that are available, they have much greater problems that are
unrelated to Perl.
: Practically the first thing the docs mention is creating a CGI object.
Are you sure? Both Lincoln's CGI.pm page and CGI.pm's docs (as of
version 2.39) begin with a very simple example devoid of objects and
references.
: I had over a year of Perl experience under my belt when I started learning
: to use CGI.pm and I found it fairly tough to get started. I would never
: recommend it to a rank newbie.
Have you not seen the umpteen zillion posts to this very newsgroup where
people have made mistakes in decoding URIs and other parts of handling
CGI requests? To me, it would be much easier to tell someone to use a
magic line at the top of their program and then certain functions to
perform certain tasks.
My copy of the Llama is out on loan, so I don't know how it addresses
CGI.pm from a tutorial viewpoint.
: And besides, given the original poster's question, it seems to me that it
: would have made a lot more sense to tell the guy where he could look up
: the documentation for the "read" function, rather than just saying "use
: CGI.pm, It'll cure all your ills".
If he doesn't know where to go to find the documentation for a core
function, he has much greater problems.
No amount of kindness, politeness, or hand-holding will amount to even
ten minutes of doc reading.
Greg
--
open(G,"|gzip -dc");$_=<<EOF;s/[0-9a-f]+/print G pack("h*",$&)/eg
f1b88000b620f22320303fa2d2e21584ccbcf29c84d2258084
d2ac158c84c4ece4d22d1000118a8d5491000000
EOF
------------------------------
Date: Sat, 9 May 1998 16:00:30 -0400
From: "Matthew Cate" <mcate@gmu.edu>
Subject: Newbie question for mailing form contents w/ PERL on IIS4
Message-Id: <6j2cks$cut@portal.gmu.edu>
I have just built a web server that has MS Exchange 5.5 on it as well. I
have installed PERL and configured IIS4 to associate .pl files with the PERL
interpreter. Now, I have PERL scripts that were running on a UNIX machine
and the contents of a web form were being e-mailed to me via the PERL
script. The mail function? I was using was smtpsend because that was what
that server was using.
My question is how do I rewrite the script to tell it to send the form
contents using Exchange or can I?
Thanks,
Matthew Cate
------------------------------
Date: Mon, 11 May 1998 19:08:16 +0000
From: nuke <nuketest@yahoo.com>
Subject: NEWSFLASH: NUCLEAR war erupts??!! World WAR 3 begins??!!!
Message-Id: <35574CA0.C019EC17@yahoo.com>
Possibility of nuclear war between China India and India Pakistan in the
offing, which will lead into NUCLEAR WORLD WAR 3 !!
India conducts a series of tests - which is the latest nuclear bombs in
the world.
Yesterday, India conducted tests of 3 types of nuclear bombs (fission,
hydrogen bomb fusion , small atom bomb which does not use the uranium or
plutonium).
See the yahoo news -
http://dailynews.yahoo.com/headlines/top_stories/ title is 'India
critized for nuclear tests'
http://dailynews.yahoo.com/headlines/top_stories/story.html?s=z/reuters/980511/news/stories/india_3.html
These powerful nuclear bombs will be likely used against pakistan and
china to completely eliminate a total of 1.3 billion people!!
Sources say that India will be conducting test blasts of new varieties
of nuclear bombs which will not use uranium or plutonium.
Next week 4 more tests will be conducted. And a total of 48 nuclear bomb
tests will be conducted by the end of Dec 1998.
India is the FIRST NATION in this whole world to develop a new type
nuclear bomb which is SMALLER THAN a wrist-watch battery and which can
DETONATE and COMPLETELY ELIMINATE the planet EARTH from the
solar system!! INDIA says EARTH is NOT ONLY a huge bar magnet BUT
ALSO is HUGE ATOM BOMB!!
India is having in its arsenal the GLOBAL DESTRUCTION WEAPON to
completely vaporise, evaporate and eliminate the planet EARTH from solar
system!!
You are living, sleeping and working on 'planet earth' which is ALSO
a LIVE ATOM BOMB!!
With all these tests, sometime in Jan 1999 United Nations will DECLARE
India as a ALMIGHTY NATION and a PERMANENT member of U.N. Security
council.
On Jan 99, India will sign CTBT (comprehensive test ban treaty) and will
cease all the future nuclear tests.
------------------------------
Date: Mon, 11 May 1998 17:02:43 GMT
From: sdinitto@kronos.com (Scott DiNitto)
Subject: Re: Perl Win NT
Message-Id: <35572ebb.254920696@news>
On 5 May 1998 11:44:34 GMT, scott@softbase.com wrote:
>Zoran Kovacevic (zoran@geof.ruu.nl) wrote:
>> Can't locate packagename.pm in @INC
>
>> So when I'm executing directly, perl can locate the package, but when
>> I'm executing from
>> a browser perl cannot locate the package.
>
>> Does anyone know what's wrong?
>
>The first thing is you can't execute a CGI program from a browser. If
>you mean, "when I view the results of the CGI executing on the server
>with my browser", then say that. If not, then that's one of your
>problems. People reading your vague post have no idea which.
Okay, yes you can. When querying an executable file from a browser,
the instruction to execute does come from the browser interface. The
execution takes place on the server.
>Likely, you haven't installed the ISAPI DLL version of Perl. You
Don't be so confident this is the problem. I do not run the DLL, but I
have run into the same problem with some scripts WHERE AS some others
run just fine without it.
SD
------------------------------
Date: Mon, 11 May 1998 17:26:11 GMT
From: sdinitto@kronos.com (Scott DiNitto)
Subject: Re: Perl Win NT
Message-Id: <35573457.256356210@news>
On 5 May 1998 11:44:34 GMT, scott@softbase.com wrote:
To follow up, (this is kind of strange) I was able to run my module by
placeing it in the .\lib directory where my perl was installed:
c:\perl\lib
Now my script works fine. However, I used the same module in another
script with no problems before I copied it, which I can not explain.
SD
>Zoran Kovacevic (zoran@geof.ruu.nl) wrote:
>> Can't locate packagename.pm in @INC
>
>> So when I'm executing directly, perl can locate the package, but when
>> I'm executing from
>> a browser perl cannot locate the package.
>
>> Does anyone know what's wrong?
>
>The first thing is you can't execute a CGI program from a browser. If
>you mean, "when I view the results of the CGI executing on the server
>with my browser", then say that. If not, then that's one of your
>problems. People reading your vague post have no idea which.
>
>Likely, you haven't installed the ISAPI DLL version of Perl. You
>should do this: using Perl with IIS and *NOT* using the ISAPI version
>is asking for pain, hardship, and sleepless nights. It's just not meant
>to be done. IIS hates standalone Perl, and will do almost anything but
>run standalone Perl programs as CGI scripts. The most likely scenario
>is the standalone Perl set up a bunch of environment variables
>and registry settings which work great from your logon, but
>can't be found from the NT equivalent of "nobody" under which
>CGI scripts run.
>
>Scott
>--
>Look at Softbase Systems' client/server tools, www.softbase.com
>Check out the Essential 97 package for Windows 95 www.skwc.com/essent
>All my other cool web pages are available from that site too!
>My demo tape, artwork, poetry, The Windows 95 Book FAQ, and more.
------------------------------
Date: 11 May 1998 15:06:52 +0400
From: Andy Murren <andy@interactive.net>
Subject: Re: Perl Win NT
Message-Id: <35574c4c.0@208.192.224.3>
In comp.lang.perl.misc Scott DiNitto <sdinitto@kronos.com> wrote:
> On 5 May 1998 11:44:34 GMT, scott@softbase.com wrote:
> To follow up, (this is kind of strange) I was able to run my module by
> placeing it in the .\lib directory where my perl was installed:
> c:\perl\lib
> Now my script works fine. However, I used the same module in another
> script with no problems before I copied it, which I can not explain.
> SD
> >Zoran Kovacevic (zoran@geof.ruu.nl) wrote:
> >> Can't locate packagename.pm in @INC
> >
If you are using IIS4 do the following:
Go to the default website, right mouse click on the properties for that site....
then click on "Home Directory" tab
Go to the "Applications Settings" toward the bottom of the window...
find the "Configuration" button... then click on it.
A new window called script mappings exists..
you need to either create a new script mappings or edit the old one.
.pl c:\perl\bin\perl.exe %s %s
set the path to your perl.exe file. This should make all of your
lib's visable to perl. Once perl is finding your std lib's you can
use the
use lib qw(c:/path/to/some_module);
construct for your home grown modules.
For some reason after I did the above I went back in to find about 6-8
new entries pointing to the wrong perl.exe. I have not tracked down
the reason for that as of yet.
Andy Murren andy@murren.org
------------------------------
Date: Mon, 11 May 1998 19:33:03 GMT
From: sdinitto@kronos.com (Scott DiNitto)
Subject: Re: Perl Win NT
Message-Id: <355751ff.263948768@news>
I read you other post, thank you. However, this was not my problem. As
I stated, I needed to place the module in the ./lib directory where my
perl base is installed. I do not debate with your method, as I know it
is correct. What I can't explain is why, before makeing my
corrections, some scripts worked while others didn't.
SD
------------------------------
Date: Mon, 11 May 1998 12:43:16 -0700
From: Ghostwolf <gwolf@ghostwolf.com>
Subject: Please HELP...dynamic PERL page doesn't display...
Message-Id: <355754D4.E79759E6@ghostwolf.com>
Have a page that I authored using DreamWeaver which contains a simple
form whose action is a PERL script that saves the form data into a text
file on the ISP's server. The HTML is very plain-vanilla.
Problem: when I load the page using IE3, I can fill out the form, but
when I "submit" it, I get an error saying "Internet Explorer cannot open
the Internet site {script's location on the server}". "The operation
completed successfully." At this point, the form data has been written
to the text file (it appears that the script has been run). However, the
script also contains a dynamic "thank-you" page that's supposted to
appear when the information's submitted; instead, the error message pops
up. This does NOT occur in Netscape (3 or 4) - with these browsers, the
page
works just fine.
Have not been able to find any information in TechNet about this, nor do
any of our HTML or PERL references explain this.
I would be most grateful for any advice on the matter - Thank you for
your help!
------------------------------
Date: Mon, 11 May 1998 18:05:12 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: steven.chau@ssmb.com
Subject: Re: Scanning Perl scripts for Y2K problems
Message-Id: <Pine.GSO.3.96.980511110351.21974J-100000@user2.teleport.com>
On Mon, 11 May 1998 steven.chau@ssmb.com wrote:
> Does anyone know if there is a tool to scan Perl programs for potential
> year 2000 problems?
The only one I'd trust is cerebral. And not even all of those are
reliable! :-)
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Mon, 11 May 1998 15:39:11 -0400
From: "Andrew F. Lee" <andrewf@cp.pathfinder.com>
Subject: Re: Share an array among processes
Message-Id: <Pine.GSO.3.95.980511153522.13870C-100000@cp.pathfinder.com>
On 8 May 1998, Martien Verbruggen wrote:
> In article <35519439.680E4AD9@calstatela.edu>,
> Razmik Khachikyan <rxk@cobra.jpl.nasa.gov> writes:
> > The simplified version of the problem is the following:
> > I have 3 processes and 3x3 matrix. Each process calculates the sum of a
> ... SNIP....
> Ah, ok.
>
> You'll have to do some reading. The following documentation might be
> of interest to you:
>
> # perldoc perlipc
> (SysV IPC section)
>
> # perldoc -f shmget
> # perldoc -f shmread
> # perldoc -f shmwrite
> # perldoc -f shmctl
> # perldoc -f semget
> # perldoc -f semctl
> # perldoc -f semop
>
... SNIP ....
Martien,
Why shared memory? Being a fan of stream sockets, and knowing nothing
about shared memory, what are the benefits of SysV IPC as opposed to
sockets?
Just curious.
-------------------------------------------------------------
Andrew F. Lee | |
Software Engineer | parenttime.com |
email: andrewf@pathfinder.com | 1271 Avenue of the Americas |
Phone: (212) 522-2769 | New York, N.Y. 10020 |
-------------------------------------------------------------
When I say, "Ignore the man behind the curtain."
That is because there is no man behind the curtain.
------------------------------
Date: Mon, 11 May 1998 18:33:04 GMT
From: dclader@metranet.net
Subject: SSI Question
Message-Id: <6j7g90$42t$1@nnrp1.dejanews.com>
I recently just developed a script for use on my site that writes down
detailed access statistics of the users who have visited my site. One
problem is the "Referer" field is filled in as "/index.shtml" This is
happening because I am accessing the script through SSI. How do I cause this
to be the actual refering web page?
Thanks,
Dave Clader
Please send responses to dclader@metranet.net
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/ Now offering spam-free web-based newsreading
------------------------------
Date: Mon, 11 May 1998 19:10:18 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: dclader@metranet.net
Subject: Re: SSI Question
Message-Id: <Pine.GSO.3.96.980511120703.21974R-100000@user2.teleport.com>
On Mon, 11 May 1998 dclader@metranet.net wrote:
> I recently just developed a script for use on my site that writes down
> detailed access statistics of the users who have visited my site. One
> problem is the "Referer" field is filled in as "/index.shtml" This is
> happening because I am accessing the script through SSI. How do I cause
> this to be the actual refering web page?
If your server isn't giving you what you want, you should see whether you
can find the answer from your webmaster, in your server's docs, in a FAQ,
from the vendor, from a newsgroup about your server, or in another
server-related source. Of course, your server would be doing the same
thing if your script were written in any other language, so there's
nothing Perl-specific about this, and most likely nothing that you can do
from your (Perl or other) program to affect it. Good luck!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 11 May 1998 19:09:58 GMT
From: Tom.Grydeland@phys.uit.no (Tom Grydeland)
Subject: Re: Strange behaviour of references...
Message-Id: <slrn6lej86.l12.Tom.Grydeland@mitra.phys.uit.no>
On 11 May 1998 14:13:00 +0100,
Joel Horowitz <horowitz@cream.maths.warwick.ac.uk> wrote:
> Hye,
> I don't understand the behaviour of the few lines that follow. Can you
> tell me where I'm missing the point?
Don't know if this is what you're really looking for, but:
The constructor for a reference to an (anonymous) array is [ ... ].
\( ... \) constructs a list of references, probably not what you want.
> #!/usr/bin/perl -w
>
> @list=(1..10);
> print ref(\@list)."\n"; # prints ARRAY... OK
> print ref(\(1..10))."\n"; # prints ARRAY... that's what I would expect
print ref([1..10])."\n"; # prints ARRAY
> Joel
--
//Tom Grydeland <Tom.Grydeland@phys.uit.no>
- Do radioactive cats have 18 half-lives? -
------------------------------
Date: Mon, 11 May 1998 18:44:05 +0100
From: "Jeremy Goldberg" <jgoldberg@dial-but-dont-spam.pipex.com>
Subject: Re: UID = 0
Message-Id: <6j7de5$imj$1@plug.news.pipex.net>
Stephen Hill wrote in message <35571225.D5ED0226@megacrawler.com>...
>I am makeing an adduser script which is run through a web based form.
>
>Is there any way to set the UID to 0 so I can write to the password
>file?
Rather goes against the grain for security... why not have it write to its
own 'temporary' file, and then say 'your application will be processed
within 24 hours' etc., and have a script/executable on the server itself
which does the hard work?
------------------------------
Date: Mon, 11 May 1998 18:46:54 GMT
From: Tom Phoenix <rootbeer@teleport.com>
To: Stephen Hill <stephen@megacrawler.com>
Subject: Re: UID = 0
Message-Id: <Pine.GSO.3.96.980511111339.21974M-100000@user2.teleport.com>
On Mon, 11 May 1998, Stephen Hill wrote:
> I am makeing an adduser script which is run through a web based form.
>
> Is there any way to set the UID to 0 so I can write to the password
> file?
Yes, if you're insane. :-)
You can generally make a Perl program run setuid to root. But that's
generally a bad idea for a CGI script. If you're convinced that you want
to do this, though, read the CGI security FAQ and the perlsec manpage to
find out more about doing this. Code with care!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 11 May 1998 16:22:24 GMT
From: ehood@geneva.acs.uci.edu (Earl Hood)
Subject: Re: uuencode algorithm
Message-Id: <6j78k0$hi0@news.service.uci.edu>
In article <6j73mi$6mg@bolivia.earthlink.net>,
Chris Hester <chrishester@NOSPAMmyself.com> wrote:
>I am trying to execute a cgi script on a web server from a client written in
>perl. I have everything working except the authentication - the cgi script
>uses the REMOTE_USER variable. According to a book I have, the client
>should send the following in the http header when authentication is
>required:
>
>Authorization: Basic user:password
>
>where user:password is scrambled using the uuencode algorithm.
I believe it is actually base64 encoding. Uuencode is not standardized,
and can vary between systems.
>My first question is is this correct? If so, does anyone know where I can
>get a uuencode algorithm in written in perl?
Check the pack/unpack operators. For base64, check CPAN module list.
--ewh
--
Earl Hood | University of California: Irvine
ehood@medusa.acs.uci.edu | Electronic Loiterer
http://www.oac.uci.edu/indiv/ehood/ | Dabbler of SGML/WWW/Perl/MIME
------------------------------
Date: 11 May 1998 14:38:45 +0400
From: Andy Murren <andy@interactive.net>
Subject: Re: Win32 Perl Capturing Standard Error
Message-Id: <355745b5.0@208.192.224.3>
In comp.lang.perl.misc Martien Verbruggen <mgjv@comdyn.com.au> wrote:
> In article <35509865.D14D93DC@dhs.state.tx.us>,
> Ken Chesak <ken.chesak@dhs.state.tx.us> writes:
> > How do I capture standard error when running a perl script. The Perl
> > errors just scoll by, I have piped to more and to a file with no
> > results. I have set up the following:
> The same way as you would capture stderr from other programs.
Since NT can be dense on redirection, you can redefine STDOUT to be a
file handle and write directly to a file. See the documentation on
open() in the camel book (2d edition).
--
Andy Murren andy@murren.org
------------------------------
Date: Mon, 11 May 1998 13:19:21 -0400
From: ken@forum.swarthmore.edu (Ken Williams)
Subject: writing simple XS functions
Message-Id: <ken-1105981319210001@news.swarthmore.edu>
Hi,
I'm trying to get my feet wet learning XS by translating a few functions
in a module to XS. I have a feeling I'm doing it the hard way, and
figured this would be a great opportunity to torun to the Perl community
for help!
Here's a simple perl function:
sub output_text {
# Usage: &TacoXS::Template::output_text( $text, $buffer );
$_[1] .= &interpret($_[0]);
}
And here's my XS version:
SV *
output_text(text, buffer)
char *text;
SV *buffer;
PREINIT:
char *interpreted;
I32 count;
CODE:
# Append the output of the &interpret function to the buffer
ENTER ;
SAVETMPS;
PUSHMARK(sp) ;
XPUSHs(sv_2mortal(newSVpv(text,0)));
PUTBACK ;
count = perl_call_pv("TacoXS::Template::interpret", G_SCALAR);
SPAGAIN ;
# Make sure &interpret returned exactly one value
if (count != 1) croak("Big trouble\n") ;
# Concatenate the result to the buffer:
sv_catsv(buffer, POPi);
PUTBACK ;
FREETMPS ;
LEAVE ;
This works, but is it more complicated than it needs to be? I wasn't
really sure which of those macros I need - I got some stuff from the
perlcall man page, which isn't necessarily geared toward XS writers.
Also, could I use perl_call_argv instead? That seemed simpler, since I'm
passing a string to &interpret. Couldn't get it to work, though.
Another question: let's say I have a static variable (not a constant, but
a variable that's shared among all objects blessed into the
TacoXS::Template package) in my package, like this:
package TacoXS::Template;
my $DEPTH = 0;
#...later, some simple access methods
sub get_depth { $DEPTH }
sub inc_depth { ++$DEPTH }
sub dec_depth { --$DEPTH }
Can I access the $DEPTH variable in XS code? I haven't been able to so far.
Any comments on my intentions are also welcome.
------------------------------
Date: Mon, 11 May 1998 14:50:26 -0400
From: "Alan McCoy" <a.r.mccoy@larc.nasa.gov>
Subject: WWW::Search documentation
Message-Id: <6j7hal$ok1$1@reznor.larc.nasa.gov>
Okay, why can't I find any comprehensible documentation on using the
WWW::Search module? I've looked everywhere!
All I want to do is allow a user to fill in a form and have results returned
from the search engine specified in the script. Is there already a sample
script somewhere out there that does this?
Alan McCoy
a.r.mccoy@larc.nasa.gov
------------------------------
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 2558
**************************************
