[7288] in Perl-Users-Digest
Perl-Users Digest, Issue: 913 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sun Aug 24 03:08:12 1997
Date: Sun, 24 Aug 97 00:00:44 -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 Sun, 24 Aug 1997 Volume: 8 Number: 913
Today's topics:
"Newbie"/Installing Perl 5 on Win95 <galaxy@cwia.com>
Re: Broken Pipe piping to sendmail <spidaman@well.com>
Re: Building a (very?) complex data structure.... (Oddfellow)
Re: Forcing print<< to be VERY LITERAL (Andrew M. Langmead)
Re: help displaying a large number with commas <mbosley@shore.net>
Re: help displaying a large number with commas <mbosley@shore.net>
Re: help displaying a large number with commas <mbosley@shore.net>
Re: help displaying a large number with commas <mbosley@shore.net>
Re: Help me !!! :) <rootbeer@teleport.com>
Re: Help on Final Exam (Perl class) <mre@emerald.compata.com>
Help With Loading of Perl Modules <horan@inetarena.com>
Help: Making CGI using Perl stormshield@hotmail.com
Re: Help: Making CGI using Perl (brian d foy)
Re: Help: Making CGI using Perl <rootbeer@teleport.com>
I give up on this! <amerar@unsu.com>
Re: I give up on this! <jpn.nospam@acm.org>
Re: I give up on this! <rootbeer@teleport.com>
Re: I give up on this! (Tad McClellan)
Indexing Search Engine like Yahoo! <neutron@popstar.com>
Re: Indexing Search Engine like Yahoo! (Abigail)
Re: naming arrays (Andrew M. Langmead)
Need an altavista like search engine in Perl ? Here is <ccadic@planetepc.fr>
Re: OS2 Perl socket.pm problem (Brandon S. Allbery KF8NH)
Re: Perl & Forms <michael_suddes@eee.org>
Re: PERL & WinNT (Jeremy D. Zawodny)
perl cgi and mastercard (S. M. (Steve) Winning)
Re: perl cgi and mastercard (Jeremy D. Zawodny)
Re: perl cgi and mastercard (Abigail)
Perl-Win32: diagnostics module doesn't work; missing pe (Terry Carroll)
POP3 Mail <cudmores@gte.net>
Re: rand() does not work, HELP <michael_suddes@eee.org>
Random Numbers <amerar@unsu.com>
Re: Random Numbers (Daniel E. Macks)
Re: Random Numbers (Jeremy D. Zawodny)
Re: Random Numbers (Abigail)
Re: SATAN on a linux <scmckay@ix.netcom.com>
Re: Setting subject in emails <rootbeer@teleport.com>
Re: String Question <merlyn@stonehenge.com>
Where can I get PERL5 (Steven Zawadzski)
Re: Where can I get PERL5 (Jeremy D. Zawodny)
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 23 Aug 1997 11:07:14 -0600
From: "D. M. Striker" <galaxy@cwia.com>
Subject: "Newbie"/Installing Perl 5 on Win95
Message-Id: <33FF18C1.C623140A@cwia.com>
Can anyone help me?
I am somewhat new to Perl, and have recently downloaded the Win32
version and set it up on my computer. From the DOS prompt I can type
something like "perl C:/Perl/bin/myscript.pl" and it will "run." But,
I can't figure out how to get the scripts to run from my browser. When
I hit the Send button the browser usually just sits there, or it tries
to download something like "application/x-perl." I've seen a FAQ on
this, but it basicaly told me nothing. Can anyone help me?
Thank you!
D. M. S.
------------------------------
Date: Sat, 23 Aug 1997 17:36:17 -0700
From: Ian Kallen <spidaman@well.com>
To: Tom Phoenix <rootbeer@teleport.com>
Subject: Re: Broken Pipe piping to sendmail
Message-Id: <Pine.GSO.3.93.970823173140.3200B-100000@well.com>
On Sat, 23 Aug 1997, Tom Phoenix wrote:
> > Instead of just leaving me with "Terminated: Broken Pipe" when it's
> > iterating through its loop of sendmail tasks, I'd like to be informed of
> > what the problem is and have the script procede to the next loop
> > iteration. Anybody have nay code examples that work around stuff like
> > that?
>
> Method one: Use a module instead of sendmail.
>
Can I build up and process queues with any of the mail modules? That's
the only advantage to piping to sendmail. My efforts at getting sendmail
to do parallel queing haven't worked out so well, I may go back to qmail.
> Method two: Use $SIG{PIPE} = 'IGNORE'; and check the return value from
> close.
Is IGNORE a key word for things in %SIG? I've not run across where that
stuff is clearly documented (ok, I'll go look harder :)
thanks
-Ian
------------------------------
Date: Sun, 24 Aug 1997 05:24:11 GMT
From: zen@execpc.com (Oddfellow)
Subject: Re: Building a (very?) complex data structure....
Message-Id: <5tognt$ccr@newsops.execpc.com>
>> Say thank you if you find this useful ;)
>Thanks, but the problem with this code that it
Your welcome ;)
>is a name structure, and not really a directory structure, where a
>directory can have files and subdirectories at the same time. As far
>as I understand your code correctly.
The structure I gave you is completely freeform. It can contain
"files" (keys with a true value) and "subdirectories" (keys
that contain a reference to another hash table). The traversal
subroutine I gave you correctly identifies the "files" (leaf nodes)
from the "subdirs". This has to be the case, since I use this
for categorizing sections in a useful manner in a particular
classified ads implementation (thebubbler.com/classifieds)
Ah well, as long as what you came up with serves your purpose.
>However, inspired by your solution, I came up whith
At least I helped ;)
------------------------------
Date: Sat, 23 Aug 1997 12:08:06 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: Forcing print<< to be VERY LITERAL
Message-Id: <EFD8DI.zE@world.std.com>
kisrael@allegro.cs.tufts.edu (Kirk L. Israel) writes:
>Now if only I could get blockquoting WITH variable interprolation and
>WITHOUT interpreting \n and \'
How about if you do the variable interpolation yourself?
$var = 'val';
$here = <<'END_OF_HERE_DOCUMENT';
This is the point where I want to interpolate $var\n
END_OF_HERE_DOCUMENT
$here =~ s/\$(\w+)/${$1}/g;
print $here;
--
Andrew Langmead
------------------------------
Date: Sun, 24 Aug 1997 00:46:05 +0100
From: random <mbosley@shore.net>
To: randy.paries@avex.com
Subject: Re: help displaying a large number with commas
Message-Id: <33FF763D.493D838B@shore.net>
Hi,
An alternative to the ones provided:
sub commify {
local($_) = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}
btw, this was pulled straight from the faq. Just call like
$varString = &commify($var);
thx
random
randy.paries@avex.com wrote:
>
> Hello,
>
> I need help...
> I have a number 12300000.00
> I would like to display it like 12,300,000.00
> I am looking for a clean way instead of a for loop counting char positions
> Any suggestions
>
> thanks
>
> -------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sun, 24 Aug 1997 00:46:32 +0100
From: random <mbosley@shore.net>
To: randy.paries@avex.com
Subject: Re: help displaying a large number with commas
Message-Id: <33FF7658.EC18B777@shore.net>
Hi,
An alternative to the ones provided:
sub commify {
local($_) = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}
btw, this was pulled straight from the faq. Just call like
$varString = &commify($var);
thx
random
randy.paries@avex.com wrote:
>
> Hello,
>
> I need help...
> I have a number 12300000.00
> I would like to display it like 12,300,000.00
> I am looking for a clean way instead of a for loop counting char positions
> Any suggestions
>
> thanks
>
> -------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sun, 24 Aug 1997 00:44:31 +0100
From: random <mbosley@shore.net>
To: randy.paries@avex.com
Subject: Re: help displaying a large number with commas
Message-Id: <33FF75DF.EBF4CFAC@shore.net>
Hi,
An alternative to the ones provided:
sub commify {
local($_) = shift;
1 while s/^(-?\d+)(\d{3})/$1,$2/;
return $_;
}
btw, this was pulled straight from the faq. Just call like
$varString = &commify($var);
thx
random
randy.paries@avex.com wrote:
>
> Hello,
>
> I need help...
> I have a number 12300000.00
> I would like to display it like 12,300,000.00
> I am looking for a clean way instead of a for loop counting char positions
> Any suggestions
>
> thanks
>
> -------------------==== Posted via Deja News ====-----------------------
> http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sun, 24 Aug 1997 00:50:25 +0100
From: random <mbosley@shore.net>
Subject: Re: help displaying a large number with commas
Message-Id: <33FF7741.74895491@shore.net>
DOH!
My sincerest apologies... I don't know what happened to send it so many
times.
thx
random
------------------------------
Date: Sat, 23 Aug 1997 21:20:38 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Fabio Albanese <falbanese@usa.net>
Subject: Re: Help me !!! :)
Message-Id: <Pine.GSO.3.96.970823211406.4428F-100000@julie.teleport.com>
On 20 Aug 1997, Fabio Albanese wrote:
> I'm looking for a complete guide about PERL language...
>
> Is there something in WWW ?
Yes. Start at this web address.
http://perl-com.songline.com/CPAN-local//doc/manual/html/pod/
And you'll find other things here.
http://perl-com.songline.com/CPAN-local/doc/manual/html/
pod/perlfaq.html
http://perl-com.songline.com/CPAN-local/
http://perl-com.songline.com/CPAN-local/src/latest.tar.gz
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 23 Aug 1997 17:51:41 -0700
From: Mike Elliott <mre@emerald.compata.com>
Subject: Re: Help on Final Exam (Perl class)
Message-Id: <87bu2os8rm.fsf@emerald.compata.com>
Randal Schwartz <merlyn@stonehenge.com> writes:
> Help Malcolm port the Compiler/Threads to NT.
>
> :-)
>
Somehow I don't think that will be done in Perl.
--
======================================================================
mike@elliott.net Mike Elliott mre@lpf.org
======================================================================
------------------------------
Date: 23 Aug 1997 09:51:28 GMT
From: "Mark Horan" <horan@inetarena.com>
Subject: Help With Loading of Perl Modules
Message-Id: <01bcaf67$0fb4ca10$c47595cf@nt>
Hi,
I've installed the lastest version of Perl on our Linux system.
But I haven't, I don't think, succeeded in installing it with dynamic
loading
enabled. I frankly don't know how terribly important this is. But
now I need to get the Msql module installed and working. I believe
it got it installed correctly, but when I ran a little test program on it
I got this:
Can't load module Msql, dynamic loading not available in this perl.
(You may need to build a new perl executable which either supports
dynamic loading or has the Msql module statically linked into it.)
at msqlTest.pl line 3
BEGIN failed--compilation aborted at msqlTest.pl line 3.
Line 3 is simply the line that says: use Msql;
So my question is in two parts. 1) Is it essential to have dynamic loading
enabled, and 2) How to I build a new Perl executable with the Msql module
statically linked to it?
Any help is of course, as always greatly appreciated.
-mark horan@inetarena.com
------------------------------
Date: Sat, 23 Aug 1997 20:51:08 -0600
From: stormshield@hotmail.com
Subject: Help: Making CGI using Perl
Message-Id: <872387099.3223@dejanews.com>
I want to make a CGI which uses Perl, but I don't know anything about
Perl now. I need a CGI working these on my homepage;
(1) Showing visitor's IP Address.
(2) Getting data (IP Address) from web visitors.
(3) Running Traceroute and Ping to the IP Address visitors entered.
(4) Output the result to web.
Shorter better. Can anyone help me? Please mailto:stormshield@hotmail.com
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 23 Aug 1997 14:06:45 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Help: Making CGI using Perl
Message-Id: <comdog-2308971406450001@netnews.worldnet.att.net>
In article <872387099.3223@dejanews.com>, stormshield@hotmail.com wrote:
> I want to make a CGI which uses Perl, but I don't know anything about
> Perl now. I need a CGI working these on my homepage;
the new Learning Perl [1] has a section on CGI programming, so you can
learn both things with one book :)
once you have specific questions, you can walk down the hall to
comp.infosystems.www.authoring.cgi where they like to talk about these
sorts of things (kinda tough crowd in here).
[1]
Learning Perl, Randal L. Schwartz & Tom Christiansen
O'Reilly and Associates <URL:http://www.oreilly.com>
ISBN 1-56592-284-0
--
brian d foy <http://computerdog.com>
------------------------------
Date: Sat, 23 Aug 1997 21:53:02 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: stormshield@hotmail.com
Subject: Re: Help: Making CGI using Perl
Message-Id: <Pine.GSO.3.96.970823214552.4428K-100000@julie.teleport.com>
On Sat, 23 Aug 1997 stormshield@hotmail.com wrote:
> I want to make a CGI which uses Perl, but I don't know anything about
> Perl now.
Get the Llama book; start studying! We can't learn Perl for you; you have
to do it yourself. :-)
http://www.ora.com/catalog/lperl2/noframes.html
> (3) Running Traceroute and Ping to the IP Address visitors entered.
That's a problematic one, since (among other reasons) either traceroute or
ping can take a lot of time - many seconds, or even minutes - to run, and
could (if poorly programmed) cause your server to become badly overloaded.
Before you start work on this kind of a script, check with the webmaster
or sysadmin of the machine which will run it, and make sure that this sort
of thing is all right. (Of course, that has nothing to do with Perl and
everything to do with keeping your sysadmin happy.)
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sat, 23 Aug 1997 20:26:22 -0500
From: Arthur Merar <amerar@unsu.com>
Subject: I give up on this!
Message-Id: <33FF8DBE.5AF6@unsu.com>
I need help. For 6 hours I have been trying to debug the following
error(s):
exec of /usr/local/www/htdocs/clients/unsu/cgi-bin/trivia.pl failed,
reason: Text file busy (errno = 26)
[Sat Aug 23 20:17:11 1997] access to
/usr/local/www/htdocs/clients/unsu/cgi-bin/trivia.pl failed for
207.238.162.68, reason: Premature end of script headers
I do not think that has anything to do with script headers. I have that
Content-type line as the first line in my script. But I can find
nothing on that 'Text file busy' error.......I think that is causing my
problem.
But nothing else has any file! I can run this dam thing fine from the
shell. What is going on? Busy? What's busy? I have changed all
rights to 777 and still nothing......
I am so frustrated......please help.
--
Thanks,
Arthur
amerar@unsu.com
http://www.unsu.com
------------------------------
Date: Sat, 23 Aug 1997 23:36:15 -0400
From: John Nolan <jpn.nospam@acm.org>
To: Arthur Merar <amerar@unsu.com>
Subject: Re: I give up on this!
Message-Id: <33FFAC2F.74D6@domain.com>
You definitely want to have a look at the file "The Idiot's Guide to
Solving Perl CGI Problems" which is available here:
http://www.perl.com/perl/faq/idiots-guide.html.
Don't be offended by the title, it's a very handy checklist of things
which you need to look at in order to set up Perl CGI scripts
successfully.
Since your script runs from the command line, but not in the CGI
environment,
it's probably a CGI problem, so you should really post to
comp.infosystems.www.authoring.cgi rather than here.
If you post again, you might want to consider including
the relevant source code of your script, and some more details, namely:
which Web server, which platform, whether your script accesses any other
files, how your Web server is configured re CGI, etc.
Arthur Merar wrote:
>
> I need help. For 6 hours I have been trying to debug the following
> error(s):
>
> exec of /usr/local/www/htdocs/clients/unsu/cgi-bin/trivia.pl failed,
> reason: Text file busy (errno = 26)
> [Sat Aug 23 20:17:11 1997] access to
> /usr/local/www/htdocs/clients/unsu/cgi-bin/trivia.pl failed for
> 207.238.162.68, reason: Premature end of script headers
>
> I do not think that has anything to do with script headers. I have that
> Content-type line as the first line in my script. But I can find
> nothing on that 'Text file busy' error.......I think that is causing my
> problem.
>
> But nothing else has any file! I can run this dam thing fine from the
> shell. What is going on? Busy? What's busy? I have changed all
> rights to 777 and still nothing......
>
> I am so frustrated......please help.
--
## John Nolan
## jpn acm org
------------------------------
Date: Sat, 23 Aug 1997 21:01:25 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Arthur Merar <amerar@unsu.com>
Subject: Re: I give up on this!
Message-Id: <Pine.GSO.3.96.970823205158.4428D-100000@julie.teleport.com>
On Sat, 23 Aug 1997, Arthur Merar wrote:
> /usr/local/www/htdocs/clients/unsu/cgi-bin/trivia.pl failed for
> 207.238.162.68, reason: Premature end of script headers
>
> I do not think that has anything to do with script headers. I have that
> Content-type line as the first line in my script.
That doesn't mean that it will be the first thing in the output, though,
due to buffering. There are other ways to do this, but for debugging, I
sometimes put something like this near the top of a script.
BEGIN {
# While debugging only!
$| = 1; # Turn off buffering
print "Content-type: text/plain\n\n";
my $date = localtime;
print "Script $0\nrunning on $date\n\n";
unless (open STDERR, ">&STDOUT") {
print "Can't redirect STDERR: $!";
exit;
}
print "\n";
}
Now you should be able to see any error messages (and everything else)
produced by your script, right on your browser.
> I have changed all rights to 777 and still nothing......
That's like saying that you've had trouble getting to Disneyland, so
you're going to leave the keys in the ignition from now on! :-) Don't do
that; 755 is all that you need to set on your program. Files should
usually be 644 or 646, but check with your local expert on to see what's
right for your system.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: Sun, 24 Aug 1997 00:23:39 -0500
From: tadmc@flash.net (Tad McClellan)
Subject: Re: I give up on this!
Message-Id: <rggot5.4v9.ln@localhost>
Arthur Merar (amerar@unsu.com) wrote:
: I need help. For 6 hours I have been trying to debug the following
: error(s):
[snip]
: I can run this dam thing fine from the
: shell.
from the Perl FAQ, part 9:
"My CGI script runs from the command line but not the browser.
Can you help me fix it?"
I think you should have a look at that one...
: I am so frustrated......please help.
You are much more likely to get a correct answer to a CGI question
in the CGI newsgroup:
comp.infosystems.www.authoring.cgi
: Thanks,
FAQs are your friends (so are man pages).
Get to know your friends.
(you are expected to have checked them for your question before posting,
you know)
--
Tad McClellan SGML Consulting
tadmc@flash.net Perl programming
Fort Worth, Texas
------------------------------
Date: 24 Aug 1997 04:31:55 GMT
From: "Peter Douglas" <neutron@popstar.com>
Subject: Indexing Search Engine like Yahoo!
Message-Id: <01bcb047$3941a020$384daf80@the-psycho.udel.edu>
Hi,
I really need help... I need to know how to make a indexing search engine
as soon as possible... similar to yahoo! Preferably... I would appreciate
it if someone could give me code for such a script.
I would really really appreciate all the help I can get. Please email me at
neutron@popstar.com
Thank you for the help.
------------------------------
Date: Sun, 24 Aug 1997 06:35:29 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Indexing Search Engine like Yahoo!
Message-Id: <EFEnn5.D5n@nonexistent.com>
Peter Douglas (neutron@popstar.com) wrote on 1454 September 1993 in
<URL: news:<01bcb047$3941a020$384daf80@the-psycho.udel.edu>>:
++ Hi,
++
++ I really need help... I need to know how to make a indexing search engine
++ as soon as possible... similar to yahoo! Preferably... I would appreciate
++ it if someone could give me code for such a script.
Yeah, all those search engines are done by 10 line scripts.
FYI: Yahoo is indexed by hand. And it took years of development. It
took quite some years to get Lycos and Altavista to what they are now.
They got huge amounts of hardware and nifty software to index it in a
reasonable time. That's a continuously changing project.
Setting up an index search engine similar to yahoo as soon as possible
is sillyness. Try something easier, like setting up a car factory like
General Motors from your garage.
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=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Sat, 23 Aug 1997 12:40:13 GMT
From: aml@world.std.com (Andrew M. Langmead)
Subject: Re: naming arrays
Message-Id: <EFD9v1.9Jw@world.std.com>
Rob Starling <rstarling@btg.com> writes:
>Tad McClellan wrote:
>> If you insist on doing it as originally stated, then you may find the
>> 'Symbolic references' section in the perlref man page to be helpful...
>or
> eval "\@bw$n"
If you want the performance hit.
use Benchmark;
@bw1 = (1 .. 10);
$n = 1;
timethese(300000, {
eval_way => q(eval "\@bw$n"),
ref_way => q(@{"bw$n"})
}
);
Benchmark: timing 300000 iterations of eval_way, ref_way...
eval_way: 113 secs (112.91 usr 0.10 sys = 113.01 cpu)
ref_way: 3 secs ( 3.13 usr 0.01 sys = 3.14 cpu)
--
Andrew Langmead
------------------------------
Date: Sat, 23 Aug 1997 18:38:37 -0700
From: "RCI Federation" <ccadic@planetepc.fr>
Subject: Need an altavista like search engine in Perl ? Here is a free one
Message-Id: <01bcb02d$25c02ea0$0101a8c0@sexytop>
http://www.spiraweb.com/cadisearch/cgi.html
Sure you will like it. The light version is freeware
Also a yellow page script under construction.
------------------------------
Date: 24 Aug 1997 00:07:47 GMT
From: bsa@void.apk.net (Brandon S. Allbery KF8NH)
Subject: Re: OS2 Perl socket.pm problem
Message-Id: <slrn5vuumf.9r.bsa@rushlight.kf8nh.apk.net>
On Fri, 22 Aug 1997 12:16:34 -0500, Anthony Baker <abaker@InterVoice.com> wrote:
+-----
| EMX.dll reports an
| access violation (I have 200 handles defined in emxopt settings). If I
| remove the
| "use Socket", the fork succeeds and everyone is happy. I do need to use
| sockets, btw
+--->8
You have to run perl_.exe instead of perl.exe. If your installation doesn't
have that exe or the socket extension isn't preloaded in yours, you will have
to get one that does. The manual says this is an EMX wart. (See perlos2.pod.
I'm not quite crazy enough to attempt a VAC++ port to see if it helps....)
--
brandon s. allbery [Team OS/2][Linux] bsa@void.apk.net
cleveland, ohio mr/2 ice's "rfc guru" :-) FORZA CREW!
Warpstock '97: OS/2 for the rest of us! http://www.warpstock.org
(APK spam kill&log system now in use: change "void" to "kf8nh" to mail me.)
------------------------------
Date: Sat, 23 Aug 1997 23:19:05 -0700
From: "Michael J. Suddes" <michael_suddes@eee.org>
To: Arthur Merar <amerar@unsu.com>
Subject: Re: Perl & Forms
Message-Id: <33FFD259.64F9@eee.org>
>
> 1) Can you, and if so how do you, print data to a specific frame on
> your page? Is this possible?
Make your link to the cgi have a target corresponding to the appropriate
frame. The resulting data will go there.
>
> 2) This kind of relates to question 1, but when you output data to >the screen, must you always re-draw the entire screen? Can I just, say, print the data between lines 10 and 20????
No, the browser isn't set up for that, you have to send the entire page
again, unless it's in its own frame.
--
--------------------------------------------------
Webmaster - http://www.1-888-Javanow.com
Visit the site, tell us what you think.
------------------------------
Date: Sun, 24 Aug 1997 06:23:56 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: PERL & WinNT
Message-Id: <33ffd331.559841239@news.bgsu.edu>
[original author automagically cc'd via e-mail]
On Sat, 23 Aug 1997 15:40:35 -0500, Greg Hassan <gwhassan@prodigy.net>
wrote:
[snip]
>> I beg to differ. It sounds like a permissions problem to me.
>>
>> Isn't that what the error message sounds like?
>>
>
>I would suggest you rethink. The directory is set toexecute only so
>when they try to load a file that has no association,
>what will NT try to do? It can't execute it, so it will just try to
>display it i.e. read.
I see. That makes sense. Obviously, I hadn't thought of it that way.
>I have found that simple permission problems don't happen on NT
>as most people never know how to mess with them.
Really? So many of the web-related problems I've seen on NT are
permissions-related (and on Unix, for that matter).
Thanks,
Jeremy
---
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>
"That's an example of how Perl can bring school yard cruelty to new heights."
-- Jon Orwant at the 1st Annual Perl Conference
------------------------------
Date: 24 Aug 1997 03:28:50 GMT
From: swinning@direct.ca (S. M. (Steve) Winning)
Subject: perl cgi and mastercard
Message-Id: <5to9pi$320$1@brie.direct.ca>
Would you know where I could obtain a pre-written Perl CGI script for
handling www order forms with Visa and Mastercrd fields. I don't need to
process the transactions over the net, but I need to have order forms
sent back to my email address. I hope you can help.
Thanks, Steve
------------------------------
Date: Sun, 24 Aug 1997 06:34:08 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: perl cgi and mastercard
Message-Id: <33ffd58b.560443545@news.bgsu.edu>
[original author automagically cc'd via e-mail]
On 24 Aug 1997 03:28:50 GMT, swinning@direct.ca (S. M. (Steve)
Winning) wrote:
>Would you know where I could obtain a pre-written Perl CGI script for
>handling www order forms with Visa and Mastercrd fields. I don't need to
>process the transactions over the net, but I need to have order forms
>sent back to my email address. I hope you can help.
I'm not sure if it's exactly what you're asking, but see the section
titled "How do I verify a credit card checksum?" in the Perl FAQ,
section 4.
http://perl-com.songline.com/CPAN-local/doc/manual/html/pod/perlfaq4.html
However, if you don't want to read that, allow me to summarize:
"Get the Business::CreditCard module from CPAN."
Jeremy
---
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>
"That's an example of how Perl can bring school yard cruelty to new heights."
-- Jon Orwant at the 1st Annual Perl Conference
------------------------------
Date: Sun, 24 Aug 1997 06:37:57 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: perl cgi and mastercard
Message-Id: <EFEnr9.FoM@nonexistent.com>
S. M. (Steve) Winning (swinning@direct.ca) wrote on 1454 September 1993
in <URL: news:<5to9pi$320$1@brie.direct.ca>>:
++ Would you know where I could obtain a pre-written Perl CGI script for
++ handling www order forms with Visa and Mastercrd fields. I don't need to
++ process the transactions over the net, but I need to have order forms
++ sent back to my email address. I hope you can help.
I don't think it's there.
After you've done writing it, please don't forget to upload
it to CPAN for the next person with the same request.
Thank you.
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=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Sun, 24 Aug 1997 00:42:06 GMT
From: carroll@tjc.com (Terry Carroll)
Subject: Perl-Win32: diagnostics module doesn't work; missing perldiag.pod?
Message-Id: <33ff828e.21371889@news.aimnet.com>
Does the diagnostics module work in perl-win32? When I attempt to use it,
I get:
couldn't find diagnostic data in /pod/perldiag.pod
C:\PERL\lib\i386-win32 C:\PERL\lib . pbs.pl at
C:\PERL\lib/diagnostics.pm line 225, <POD_DIAG> chunk 507. BEGIN
failed--compilation aborted at pbs.pl line 2, <POD_DIAG> chunk 507.
pbs.pl line 2 is
use diagnostics;
I've verified that the C:\perl\lib\diagnostics.pm file does exist. I'm
running "Perl for Win32 Build 306 - Built 17:50:28 Apr 10 1997".
I've tracked this as far as the following line in diagnostics.pm:
if (eof(POD_DIAG)) {
die "couldn't find diagnostic data in $PODFILE @INC $0";
>From looking at the module, I take it it's looking for a file named
perldiag.pod somewhere in my @INC path. I have no such file.
Any idea 1) where I could get it; 2) which directory it belongs in; and 3)
why the install process didn't install it (e.g., is it likely I made an
error on installation)?
Also, I note that my @INC directories are 'C:\PERL\lib\i386-win32',
'C:\PERL\lib', and '.' (as implied by the error message).
However, I don't have a directory named i386-win32 in my C:\PERL\lib
directory, or for that matter, anywhere on my system. Should I?
--
Terry Carroll | "Mars ain't the kind of place to raise your kids.
Santa Clara, CA | In fact, it's cold as hell." - Bernie Taupin, 1972
carroll@tjc.com | "Air temperatures ... show an afternoon high near +9
Modell delenda est | degrees Fahrenheit." - Mars Pathfinder Mission, 1997
------------------------------
Date: 24 Aug 1997 06:07:29 GMT
From: "Marty D. Cudmore" <cudmores@gte.net>
Subject: POP3 Mail
Message-Id: <5toj31$1hs$1@gte1.gte.net>
I know (little||nothing) about Perl for Win32, but I would like to use pull
down mail messages
from a POP3 server. I've already began some code to do this, but instead
of, "Reinventing the
Wheel", I'm wondering if it's possible to use the Net::POP3 module on my
Win32 system.
Has anyone done about doing this? I see that Net::Ping comes with the
installation, but it
doesn't work either.
Cheers,
Marty
------------------------------
Date: Sat, 23 Aug 1997 23:23:56 -0700
From: "Michael J. Suddes" <michael_suddes@eee.org>
To: hm@royal.net
Subject: Re: rand() does not work, HELP
Message-Id: <33FFD37C.A91@eee.org>
> I can't get the rand() function to return values higher than 1. Or in
> fact when I set the upper limit to 100, the highest returned value is
> 0.0013.... Of course if I set the limit to 100000, I get values higher
> than 1, but...
Perhaps you need to seed rand(). Perl 4 usually needs you to do this.
Go to ftp://ftp.spu.edu/pub/CPAN/doc/manual/html/pod/perlfunc/srand.html
>
> MY CODE IS OK!: I've tried to run a script from the book "Teach
> yourself perl in 21 days", directly from the accompanying CD-rom. Same
> result.
If the link above dosen't work, or you have further questions, feel free
to e-mail me.
PS: does the no spam thing work?
--
--------------------------------------------------
Webmaster - http://www.1-888-Javanow.com
Visit the site, tell us what you think.
------------------------------
Date: Sat, 23 Aug 1997 23:57:10 -0500
From: Arthur Merar <amerar@unsu.com>
Subject: Random Numbers
Message-Id: <33FFBF26.5F2A@unsu.com>
I am trying to generate a random integer that is between 0 and the size
of an array. I tried using the RAND command, but that does not seem to
be working correctly.....
--
Thanks,
Arthur
amerar@unsu.com
http://www.unsu.com
------------------------------
Date: 24 Aug 1997 06:21:30 GMT
From: dmacks@sas.upenn.edu (Daniel E. Macks)
Subject: Re: Random Numbers
Message-Id: <5tojta$pmh$1@netnews.upenn.edu>
Arthur Merar (amerar@unsu.com) said:
: I am trying to generate a random integer that is between 0 and the size
: of an array. I tried using the RAND command, but that does not seem to
: be working correctly.....
...in that it does what?
Gives a perl error? (post code snippet and results after running
with -w and use strict)
Segfaults? (perhaps misinstalled...run the op/rand.t test)
Isn't returning the correct type of number that you want or
"consistently returns numbers that are too large or too small"?
(RTFperlfunc, esp. for the latter case)
Isn't truely random? (RTFCPAN-module-list...take a trip to your
neighbohood CPAN at http://www.perl.com/CPAN/)
Something else?
dan
--
Daniel Macks
dmacks@a.chem.upenn.edu
dmacks@netspace.org
http://www.netspace.org/~dmacks
------------------------------
Date: Sun, 24 Aug 1997 06:35:57 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Random Numbers
Message-Id: <33ffd62e.560606880@news.bgsu.edu>
[original author automagically cc'd via e-mail]
On Sat, 23 Aug 1997 23:57:10 -0500, Arthur Merar <amerar@unsu.com>
wrote:
>I am trying to generate a random integer that is between 0 and the size
>of an array. I tried using the RAND command, but that does not seem to
>be working correctly.....
See the Perl FAQ, Section 4, Question: "Why aren't my random numbers
random?"
http://perl-com.songline.com/CPAN-local/doc/manual/html/pod/perlfaq4.html
Jeremy
---
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>
"That's an example of how Perl can bring school yard cruelty to new heights."
-- Jon Orwant at the 1st Annual Perl Conference
------------------------------
Date: Sun, 24 Aug 1997 06:39:56 GMT
From: abigail@fnx.com (Abigail)
Subject: Re: Random Numbers
Message-Id: <EFEnuK.HMs@nonexistent.com>
Arthur Merar (amerar@unsu.com) wrote on 1454 September 1993 in
<URL: news:<33FFBF26.5F2A@unsu.com>>:
++ I am trying to generate a random integer that is between 0 and the size
++ of an array. I tried using the RAND command, but that does not seem to
++ be working correctly.....
Care to specify the problem? What is "not seem to be working
correctly"? Does is make funny sounds? Are the digits fuzzy? Is it
coughing? Does it leak oil?
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=$]*(q.25..($^W=@^V))=>do{print+chr$^V%$^U;$^V/=$^U}while$^V!=$^W'
------------------------------
Date: Sat, 23 Aug 1997 20:05:55 -0400
From: Scott McKay <scmckay@ix.netcom.com>
Subject: Re: SATAN on a linux
Message-Id: <33FF7AE3.41C6@ix.netcom.com>
Jim Meritt wrote:
>
> Anyone gotten S.A.T.A.N. (using Perl 5 or better, of course) to run on a PC
> (using linux or SCO or some such)?
>
Yes, I just got it to run on OpenServer 5.0.4 with Perl 5.004_02. I got
it to run the html, but ran into a small problem with the perl scripts.
But once I added all the perl extension to my netscape browser, it
worked like a charm. I ran it from my home system run OpenServer across
my office network.
scmckay@ix.netcom.com
SCO ACE.
------------------------------
Date: Sat, 23 Aug 1997 18:27:13 -0700
From: Tom Phoenix <rootbeer@teleport.com>
To: Dan_Margalit <Dan_Margalit@brown.edu>
Subject: Re: Setting subject in emails
Message-Id: <Pine.GSO.3.96.970823182549.19088k-100000@julie.teleport.com>
On 23 Aug 1997, Dan_Margalit wrote:
> Can anyone tell me how to send an email with a specific subject
> from perl?
It depends on how you're sending the mail. If you're piping to sendmail or
/bin/mail, you use those program's ways of specifying the subject; but if
you're using a module, you have to use the module's ways. Fortunately,
these are all in the appropriate docs, so it's not too hard to do.
Hope this helps!
--
Tom Phoenix http://www.teleport.com/~rootbeer/
rootbeer@teleport.com PGP Skribu al mi per Esperanto!
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 23 Aug 1997 19:01:58 -0700
From: Randal Schwartz <merlyn@stonehenge.com>
To: "Bob Reilly" <trevs@usa.net>
Subject: Re: String Question
Message-Id: <8cen7k49ux.fsf@gadget.cscaper.com>
>>>>> "Bob" == Bob Reilly <trevs@usa.net> writes:
Bob> How would I find the number of occurances of the word perl in
Bob> the following:
Bob> $string = "I am doing well at learning perl but prefer a perl for my wife!";
One way to do it:
$string = "I am doing well at learning perl but prefer a perl for my wife!";
$numtimes = $string =~ s/(perl)/$1/g;
print $numtimes;
And there are many others, as you'll probably find out. :-)
print "Just another Perl hacker," # but not what the media calls "hacker!" :-)
## legal fund: $20,990.69 collected, $186,159.85 spent; just 373 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@ora.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: Sun, 24 Aug 1997 01:35:29 GMT
From: QWARLOCK@ix.netcom.com (Steven Zawadzski)
Subject: Where can I get PERL5
Message-Id: <33ff8fd7.1752471@nntp.netcom.com>
Hey people,
I need a little help. I have been trying to test perl scripts on my
win95 system. I found a server software called OMNIhttpd that should
allow me to run the scripts. If I run them on the server software the
browser says that it can't find the script. If I go to the directory
to launch the same doc that called the script it will run but it does
so in a DOS box. I am using verssion 4.X for Perl presently. all the
sights that I have found so far are a mess that are pushing Perl5.X.
Is there a sight that I can download from that has an easily installed
verssion of PERL for Windows 95? Let me know if you think I am doing
anything else wrong. Thatnks for the help guys..!!
from
QWARLOCK
aka
STEVEZ
------------------------------
Date: Sun, 24 Aug 1997 06:30:59 GMT
From: jzawodn@wcnet.org (Jeremy D. Zawodny)
Subject: Re: Where can I get PERL5
Message-Id: <33ffd4f8.560296513@news.bgsu.edu>
[original author automagically cc'd via e-mail]
On Sun, 24 Aug 1997 01:35:29 GMT, QWARLOCK@ix.netcom.com (Steven
Zawadzski) wrote:
[snip]
>Is there a sight that I can download from that has an easily installed
>verssion of PERL for Windows 95? Let me know if you think I am doing
>anything else wrong. Thatnks for the help guys..!!
Visit http://www.activesite.com/ and you'll find what you're looking
for.
Jeremy
---
Jeremy D. Zawodny
WCNet Technical Geek & Web Stuff
<URL:http://www.wcnet.org/~jzawodn/>
"That's an example of how Perl can bring school yard cruelty to new heights."
-- Jon Orwant at the 1st Annual Perl Conference
------------------------------
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 913
*************************************
