[13144] in Perl-Users-Digest
Perl-Users Digest, Issue: 554 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Aug 16 11:07:25 1999
Date: Mon, 16 Aug 1999 08:05:07 -0700 (PDT)
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, 16 Aug 1999 Volume: 9 Number: 554
Today's topics:
CGI script <nicole@paradigmgeo.com>
Re: CGI script <jpeterson@office.colt.net>
Re: Corrupted STDOUT <green@argonet.co.uk>
Help !! DBD::Oracle <njjones@compuserveNOSPAM.com>
module suggestion- Net::SNTP <ljp@209.204.251.8>
moving perl modules on Win98 <gvalley@mitre.org>
Re: Nastiness contrary to the spirit of perl? (I R A Darth Aggie)
New posters to comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Perl data type size (max and min values) (Anno Siegel)
Re: PTk <bbense+comp.lang.perl.misc.Aug.16.99@telemark.stanford.edu>
Q: Perl and Wordbasic (Word 95) jeffbernstein@my-deja.com
Re: Retrieving TEXTAREA information using CGI (post met <flavell@mail.cern.ch>
Re: s/// and interpolation <chris_conway@my-deja.com>
spawning multiple processes in perl win32 mbowser@my-deja.com
Statistics for comp.lang.perl.misc <gbacon@cs.uah.edu>
Re: Why use Python when we've got Perl? <robin@jessikat.demon.co.uk>
Working with Win32 Network API <kimntodd@dontspamus.execpc.com>
Digest Administrivia (Last modified: 1 Jul 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 16 Aug 1999 17:37:01 +0300
From: Nicole Linetsky <nicole@paradigmgeo.com>
Subject: CGI script
Message-Id: <37B8220D.B6F3E6B2@paradigmgeo.com>
Hi,
I don't know if my problem is a CGI problem, but maybe one of you seen
this before.
I wrote some cgi script which does a lot of things: copy compressed
file, open them, ..... This procedure usually takes a 20 minutes on the
"good" UNIX machine, but I have some client which is trying to run it on
very slow (and old) machine and during the my cgi script running he get
a Netscape error 'Transfer interrupted!' and no one has press the 'Stop'
button or 'Esc'. It is very strange.
Maybe someon ehas any idea what it may be????
Thanks,
Nicole.
------------------------------
Date: Mon, 16 Aug 1999 14:30:28 GMT
From: Jon Peterson <jpeterson@office.colt.net>
Subject: Re: CGI script
Message-Id: <8gVt3.112$u07.1084@news.colt.net>
Nicole Linetsky <nicole@paradigmgeo.com> wrote:
> Hi,
> I don't know if my problem is a CGI problem, but maybe one of you seen
> this before.
> I wrote some cgi script which does a lot of things: copy compressed
> file, open them, ..... This procedure usually takes a 20 minutes on the
> "good" UNIX machine, but I have some client which is trying to run it on
Do you really mean 20 minutes rather than 20 seconds?? If it takes 20 minutes,
then CGI is the wrong way of delivering the answer, full stop. Maybe send the
answer in an email once it has been calculated, or something.
Either way, this is most unlikely to be perl specific. The problem lies within
the way your web server talks to the CGI program and/or the web browser.
I would suggest asking in comp.infosystems.www.servers.unix but be sure to
say what webserver you are using, and maybe include relevant configuration
details.
------------------------------
Date: Mon, 16 Aug 1999 15:53:14 +0100
From: Andrew Green <green@argonet.co.uk>
Subject: Re: Corrupted STDOUT
Message-Id: <493288333cgreen@argonet.co.uk>
In article <wuBs3.64$u07.632@news.colt.net>,
Jon Peterson <jpeterson@office.colt.net> wrote:
> Well, it _sounds_ from this like it is a CGI related failing not a Perl
> problem.
I was worried that might be the case, but wanted to eliminate the
likelihood that it would be a Perl problem first.
> I've read through the code quickly and there are regexp substitutions
> going on that could easily be catching you out.
I did try commenting all those out, but it didn't make any difference.
Well, no, that's not quite true - it did make a difference, but only
insofar as the corrupted bit changed slightly, in a similar way to the
change that occurred when I tried setting $|. Bizarre.
> But, given the above quoted paragraph, I would suggest you try running
> this under a different web server first.
Good idea. I'll try that.
> Also, I would suggest testing with differnet browsers, and I would
> suggest removing any javascript from the output during testing, it will
> only muddle the issue.
Sound advice - I've tried the script on a variety of browsers (including
Lynx through telnet on the same server), and some that don't understand
JavaScript at all. I'm pretty confident it's not that.
Many thanks for your help, and also thanks to anyone else who took a look
at my source. If this does turn out to be a CGI/server issue rather than
a Perl one (and I suspect now that it is), I'm sorry to have needlessly
troubled the wrong newsgroup over it.
Thanks again,
Andrew.
------------------------------
Date: Mon, 16 Aug 1999 10:04:23 -0400
From: "njj" <njjones@compuserveNOSPAM.com>
Subject: Help !! DBD::Oracle
Message-Id: <7p9531$a4v$1@news.iss.net>
Is anyone successfully using the Perl DBI interface for Oracle ? I am being
driven mad by it and would appreciate hearing from anyone who is
successfully using it.
In particular I have not been able to get a stored procedure to execute and
would appreciate seeing some working examples.
Thanks.
--
===============================================
njjones@csi.com
------------------------------
Date: 16 Aug 1999 08:34:28 -0600
From: ljp <ljp@209.204.251.8>
Subject: module suggestion- Net::SNTP
Message-Id: <wkbtc7x097.fsf@209.204.251.8>
I would like to suggest a module, Net::SNTP, if it doesn't exist already, or
perhaps this is such a simple task, as to not warrant a module.
Since I am not yet, nor will ever be, a perl guru, I am suggesting this to
those in the perl-know, in that there may be an easy way to change
one's date according to SNTP.
LP
------------------------------
Date: Mon, 16 Aug 1999 10:49:24 -0400
From: Gary Valley <gvalley@mitre.org>
Subject: moving perl modules on Win98
Message-Id: <37B824F4.54DCB0C1@mitre.org>
Hi,
I have a win98 machine with ActivePerl build 518 on it. I am trying to
move the win32::process module from this machine to a winnt 4.0 wkstn
machine. The winnt machine only has the perl executable on it, (i.e.
the perl executable was just copied to c:\perl\ and that directory put
in the path). The user does not want to install perl on their machine.
(Don't ask me why...) Once i've moved the appropriate files (win32.pm
and the process directory to C:\perl\site\...), how do I tell perl where
those modules are??? (I tried looking in the registry and I couldn't
find any values under HKLM\Software\Perl...)
Thanx.
-gary
--
Gary Valley
The MITRE Coporation
Phone: (703)-883-3359
Fax: (703)-883-7978
gvalley@mitre.org
------------------------------
Date: 16 Aug 1999 14:06:40 GMT
From: fl_aggie@thepentagon.com (I R A Darth Aggie)
Subject: Re: Nastiness contrary to the spirit of perl?
Message-Id: <slrn7rg6rf.nhi.fl_aggie@thepentagon.com>
On Sun, 15 Aug 1999 21:34:04 GMT, Id Est <id-est@home.com>, in
<slrn7recfj.c69.id-est@erato.bigredrockeater.com> wrote:
+ geez, you must hate newbies.
Just the ones that haven't got enough brain cells to ask: how does
this relate to perl? Some subject lines:
closing browser window [this is a browser issue, not perl]
Help Parsing a line [looking for a handout, no code]
mod (%) in PERL [did you try it? no]
Retrieving TEXTAREA information using CGI (post method)
[a how do I do this, no code]
Oh, and then there was the woman wondering what the algorithm for
determining whether a year was a leap year. And that's just from this
morning. And sometime last week, someone asked what the proper unix
file permissions where for a cgi script.
All these things can be done in C/C++, too. The file permissions should
have been asked in a *.unix.misc group, or perhaps the *.www.(cgi|server)
group. Not everyone runs perl under a unix...
Go look for my recent posting on "Asking Better Questions". If it isn't
on your newsreader, it is on deja.com.
+ you her lawyer or something?
No. Consult my sig.
James - heheh, he said consult...
--
Consulting Minister for Consultants, DNRC
The Bill of Rights is paid in Responsibilities - Jean McGuire
To cure your perl CGI problems, please look at:
<url:http://www.perl.com/CPAN/doc/FAQs/cgi/idiots-guide.html>
------------------------------
Date: 16 Aug 1999 14:43:15 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: New posters to comp.lang.perl.misc
Message-Id: <7p9823$f03$2@info2.uah.edu>
Following is a summary of articles from new posters spanning a 7 day
period, beginning at 09 Aug 1999 14:42:47 GMT and ending at
16 Aug 1999 07:04:53 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Totals
======
Posters: 296 (47.7% of all posters)
Articles: 572 (23.0% of all articles)
Volume generated: 1081.1 kb (22.6% of total volume)
- headers: 435.0 kb (8,598 lines)
- bodies: 636.0 kb (20,208 lines)
- original: 419.2 kb (14,514 lines)
- signatures: 9.5 kb (222 lines)
Original Content Rating: 0.659
Averages
========
Posts per poster: 1.9
median: 1.0 post
mode: 1 post - 200 posters
s: 3.4 posts
Message size: 1935.4 bytes
- header: 778.7 bytes (15.0 lines)
- body: 1138.6 bytes (35.3 lines)
- original: 750.5 bytes (25.4 lines)
- signature: 17.1 bytes (0.4 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
41 122.6 ( 35.9/ 86.7/ 44.1) jstevens@bamboo.verinet.com (John Stevens)
34 104.0 ( 29.5/ 74.5/ 34.0) "John W. Stevens" <jstevens@basho.fc.hp.com>
9 22.0 ( 6.9/ 15.1/ 8.3) m.faassen@vet.uu.nl (Martijn Faassen)
8 9.5 ( 4.3/ 5.2/ 2.8) "Bart Simpson" <phony@nospam.com>
8 11.5 ( 5.4/ 6.1/ 5.4) chrisl@tourneyland.com (Chris)
8 13.1 ( 6.2/ 5.9/ 4.3) Duncan Hill <dhill@sunbeach.net>
7 14.6 ( 5.6/ 7.5/ 3.2) Mark McCoy <mcking@cajunbro.com>
7 10.1 ( 5.9/ 4.3/ 3.7) support@gethits.com
7 10.4 ( 6.6/ 3.8/ 2.4) id-est@home.com
7 9.1 ( 4.2/ 4.9/ 4.2) goetz@cse.buffalo.edu (Phil Goetz)
These posters accounted for 5.5% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
122.6 ( 35.9/ 86.7/ 44.1) 41 jstevens@bamboo.verinet.com (John Stevens)
104.0 ( 29.5/ 74.5/ 34.0) 34 "John W. Stevens" <jstevens@basho.fc.hp.com>
22.0 ( 6.9/ 15.1/ 8.3) 9 m.faassen@vet.uu.nl (Martijn Faassen)
20.2 ( 2.3/ 17.7/ 10.2) 3 Uriel Wittenberg <urielw@tiac.net>
14.6 ( 5.6/ 7.5/ 3.2) 7 Mark McCoy <mcking@cajunbro.com>
13.7 ( 4.0/ 9.6/ 6.4) 5 Ian Clarke <I.Clarke@strs.co.uk>
13.4 ( 3.0/ 10.3/ 4.2) 4 Teacher Guy <habfan2@my-deja.com>
13.3 ( 4.2/ 9.1/ 6.7) 5 Ian Clarke <I.Clarke@NOSPAM.strs.co.uk>
13.1 ( 6.2/ 5.9/ 4.3) 8 Duncan Hill <dhill@sunbeach.net>
11.8 ( 4.1/ 7.7/ 6.0) 6 Frank Krul <fkrul@acc.com>
These posters accounted for 7.3% of the total volume.
Top 10 Posters by OCR (minimum of three posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 2.4 / 2.4) 3 jsmith19991@my-deja.com
1.000 ( 1.6 / 1.6) 5 "Troy Knight" <flexit@flexit.eurobell.co.uk>
1.000 ( 1.7 / 1.7) 4 dodli@my-deja.com
0.987 ( 1.6 / 1.6) 3 xbruno8778@my-deja.com
0.954 ( 2.3 / 2.4) 6 jflowers44@aol.com (Jflowers44)
0.903 ( 1.7 / 1.8) 3 "twentyfour seven" <jeff@247sk8mag.com>
0.888 ( 2.1 / 2.4) 3 F00 Baz <f00baz@my-deja.com>
0.885 ( 5.4 / 6.1) 8 chrisl@tourneyland.com (Chris)
0.864 ( 3.7 / 4.3) 7 support@gethits.com
0.862 ( 4.2 / 4.9) 7 goetz@cse.buffalo.edu (Phil Goetz)
Bottom 10 Posters by OCR (minimum of three posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.457 ( 34.0 / 74.5) 34 "John W. Stevens" <jstevens@basho.fc.hp.com>
0.446 ( 1.3 / 3.0) 3 Mark Mielke <markm@nortelnetworks.com>
0.437 ( 1.4 / 3.2) 4 "Dan" <dan@purenud.com>
0.428 ( 2.7 / 6.3) 5 Christopher Conway <chris_conway@my-deja.com>
0.421 ( 3.2 / 7.5) 7 Mark McCoy <mcking@cajunbro.com>
0.409 ( 4.2 / 10.3) 4 Teacher Guy <habfan2@my-deja.com>
0.396 ( 0.4 / 1.1) 3 Matt Sisk <sisk@mojotoad.com>
0.365 ( 1.8 / 5.0) 6 Shmooth <shmooth@yahoo.com>
0.296 ( 0.5 / 1.6) 3 William Pettrey <Bill@fuckyou.co.uk>
0.204 ( 0.9 / 4.3) 3 Hector Gonzalez <hgonzalez@mindspring.com>
45 posters (15%) had at least three posts.
Top 10 Crossposters
===================
Articles Address
-------- -------
25 "John W. Stevens" <jstevens@basho.fc.hp.com>
10 jstevens@bamboo.verinet.com (John Stevens)
6 Uriel Wittenberg <urielw@tiac.net>
6 William Pettrey <Bill@fuckyou.co.uk>
6 gh@netquick.net (Gil Harvey)
4 "Ashish Bhargava" <abhargav@rational.com>
4 drclue@drclue.net
3 "Michael Zive" <mzive@interactive.net>
3 "David Yang" <david@math.edu>
3 "T. Besiktasli" <tbesiktasli@gmx.net>
------------------------------
Date: 16 Aug 1999 14:53:57 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Perl data type size (max and min values)
Message-Id: <7p98m5$2p6$1@lublin.zrz.tu-berlin.de>
Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>Anno Siegel (anno4000@lublin.zrz.tu-berlin.de) wrote on MMCLXXVI
>September MCMXCIII in <URL:news:7p8lhf$1f6$1@lublin.zrz.tu-berlin.de>:
>,, Abigail <abigail@delanet.com> wrote in comp.lang.perl.misc:
>,, >
>,, > my $j = my $i = 0;
>,, > do {$j = $i ++} until $i =~ /Inf/;
>,, > print "The maximum value of a scalar is: $j\n";
>,,
>,, PS: Why initialize $j?
>
>
>Obvious. The program text looks better that way.
'Sright. What a question!
Anno
------------------------------
Date: 16 Aug 1999 14:28:45 GMT
From: <bbense+comp.lang.perl.misc.Aug.16.99@telemark.stanford.edu> ;
Subject: Re: PTk
Message-Id: <7p976t$d0h$1@nntp.Stanford.EDU>
In article <7ov8j5$kdt$1@nnrp1.deja.com>, <loadc@my-deja.com> wrote:
>Hello-
>
>
> I am having trouble putting PTk on my machine, I get:
>
>
>:/usr/freeware/Tk800.015 [ 758 ] perl Makefile.PL
>perl is installed in /usr/local/lib/perl5/5.00502/sys3k okay
>PPM for perl5.00502
>Test Compiling config/signedchar.c
>Test Compiling config/Ksprintf.c
>Test Compiling config/tod.c
>Test Compiling -DTIMEOFDAY_TZ config/tod.c
>Test Compiling -DTIMEOFDAY_NO_TZ config/tod.c
>Test Compiling -DTIMEOFDAY_DOTS config/tod.c
>DOTS gettimeofday()
>Using -L/usr/lib/X11R3 to find /usr/lib/X11R3/libX11.so.1
>Cannot find X include files via /include
>Cannot find X include files anywhere at ./myConfig line 318.
>BEGIN failed--compilation aborted at Makefile.PL line 19.
>
>
> Is this a really simple error and I am just that inexperienced or
>is it something more? I am guessing that the makefile is having trouble
>finding my X include files, except that all of the files are in the
>correct places, the script finds libX11.so.1, but I don't use /include.
>Would a sym link work here? Thanks in advance for the help,
>
- - Finding include files is just the beginning of your problems.
/usr/lib/X11R3
- - You're 3 major revisions of X behind the curve. I think Tk will
work with R4, but I wouldn't bet on it. I suspect Tk is looking
for include files that aren't in R3. As I recall R3 -> R4 was
a big change.
- - Booker C. Bense
Version: 2.6.2
iQCVAwUBN7ggBwD83u1ILnWNAQGwogQA3IKGNbeUWrQhfIOOrZYOrgveVbuOFfd/
lwynkOF5TUVPwOAWhANQhQwQQhUYPcnsfDM6Oduyn5dN7xt7tphtgsqv+m6iAVrX
HPVEHFF0nTLUrvOQSPiOfZNA+V3y5hOvugRUEVbDRxsDAWbnByCdj+NYfvTseHt7
Gdvtmdk5xVc=
=K8ia
-----END PGP SIGNATURE-----
------------------------------
Date: Mon, 16 Aug 1999 14:29:11 GMT
From: jeffbernstein@my-deja.com
Subject: Q: Perl and Wordbasic (Word 95)
Message-Id: <7p9779$5ab$1@nnrp1.deja.com>
Greetings:
I've been trying to get the example below to run properly but either
I'm not getting the Perl syntax correct or it just doesn't work because
of a limitation in Wordbasic or Word 7.0.
1: use Win32::OLE;
2:
3: $wd = Win32::OLE->new('Word.Basic') or die "oops\n";
4: #$wd->{'Visible'};
5: $wd->FileNew;
6: $wd->{Bold} = 1;
7: $wd->FontSize(24);
8: $wd->CenterPara;
9: $wd->Insert("Automation's Great!");
10: $wd->FilePrintDefault;
11: $wd->FileClose(2);
The parts of this script that seem to work are line 4 (when it's
uncommented), 5, 9, 10, and 11. I cannot get formatting to perform
properly.
Insight requested.
Jeff
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 16 Aug 1999 16:39:58 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Retrieving TEXTAREA information using CGI (post method)
Message-Id: <Pine.HPP.3.95a.990816151510.25501J-100000@hpplus03.cern.ch>
On Mon, 16 Aug 1999, Ben Holness wrote:
> test.pl will look something like this:
>
> !#/usr/bin/perl
That !# should be #!
Followed by your path to Perl (you'll need to verify that for yourself,
e.g by invoking "/usr/bin/perl -V" and ensuring it's a recent version
of Perl 5).
Don't ever start a Perl program without -w
In due course, you'll understand why. For now, just take my word for it
that you'll get flamed here if you don't. They have our best interests
at heart.
The regulars here will also want you to use strict;
and I'm sure they do that for good reason too.
If it's meant as a CGI then it's dumb not to have -T as well, IMNSHO.
> print "Content-type: text/html\n\n";
So you say you're going to generate HTML...
> $desc = $query->param('description');
>
> print "Your name is $fn. Your description is $desc";
Looks like you're treating it as plain text. Even if the rest of this
works, are you sure that's what you want to do, in an output file that's
meant to be HTML?
> When I tried to run this I got a message that just said "OK".
That's an extremely vague problem symptom report. How did you "try to
run" it? From a shell window? As a CGI script? Where did this message
that "just said OK" appear? If it was a browser that said that, what
did you find when you asked the browser to show you the source?
You really need to go about this sort of thing in an organised and
step-wise manner. If what you're trying, doesn't seem to be working,
and you can't understand why, then back off, go back a step, play with
the script from a shell window until at least _that_ works, follow the
steps in the idiot's guide to CGI debugging, learn how to use one of the
diagnostic technques described in the CGI FAQ. Mostly (as someone else
very perceptively remarked), while collecting the evidence for your
posting, you'll solve the problem for yourself. Then when you come
here, or to the CGI group, depending on which is appropriate, you can
describe the core of the problem in terms that someone can actually
recognise, and help you with.
> Now, however,
> it seems to work OK (albeit on a different machine)!
>
> I will try it again on the other machine later.
I really can't resist repeating that you need a more organised approach
to this. Rushing around "trying it" on this machine or that is
something that only pays off when you're clear on the principles of what
you are doing, but are stuck with compatibility problems between
different implementations.
It may well be that you do, in fact, understand more about this than is
clear from your posting. But the group only has your posting to go on.
And please, _do_ learn how to post in accordance with usenet customs.
news.announce.newusers.
------------------------------
Date: Mon, 16 Aug 1999 14:40:14 GMT
From: Christopher Conway <chris_conway@my-deja.com>
Subject: Re: s/// and interpolation
Message-Id: <7p97sd$5qu$1@nnrp1.deja.com>
In article <x3yyaff1yyb.fsf@tigre.matrox.com>,
Ala Qumsieh <aqumsieh@matrox.com> wrote:
> When was the last time you checked out perlre? I advise you to go
> ahead and read it once more.
I have read perlre recently. Many times. The only portion
that seems relevant ("How can I quote a variable to use in
a regexp?") is quoted below. If you had been following the
discussion up to now, you would know that this is not
relevant -- the question here is how to make perl
interpolate backreference variables within a variable
on the right-hand side of the s/// operator, or how do
you get perl to interpolate within an interpolated
variable?
The eval() method works, but it is unsafe. Someone else
suggested using the Safe module. I assume that will work,
but I don't know how to use it. If there is a simple way
to do this, please stop acting like an arrogant jerk and
share it with us.
Chris
How can I quote a variable to use in a regexp?
The Perl parser will expand $variable and @variable references in
regular expressions unless the delimiter is a single
quote. Remember, too, that the right-hand side of a s/// substitution is
considered a double-quoted string (see the perlop
manpage for more details). Remember also that any regexp special
characters will be acted on unless you precede the
substitution with \Q. Here's an example:
$string = "to die?";
$lhs = "die?";
$rhs = "sleep no more";
$string =~ s/\Q$lhs/$rhs/;
# $string is now "to sleep no more"
Without the \Q, the regexp would also spuriously match ``di''.
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: Mon, 16 Aug 1999 14:46:51 GMT
From: mbowser@my-deja.com
Subject: spawning multiple processes in perl win32
Message-Id: <7p988n$675$1@nnrp1.deja.com>
I have created several perl scripts used to load test a database and
webserver. I have to move the code from unix to win32 (NT) and cannot
get the scripts to run because win32 doesn't support the Fork process I
used on the unix box. I found a reference to Win32::Spawn in
O'Reilly's Perl in a Nutshell, but I can't get it to run. I can't find
any documentation on this module. Is there another way to execute
multiple processes at the same time on Win32?
thanks in advance
Sent via Deja.com http://www.deja.com/
Share what you know. Learn what you don't.
------------------------------
Date: 16 Aug 1999 14:43:15 GMT
From: Greg Bacon <gbacon@cs.uah.edu>
Subject: Statistics for comp.lang.perl.misc
Message-Id: <7p9823$f03$1@info2.uah.edu>
Following is a summary of articles spanning a 7 day period,
beginning at 09 Aug 1999 14:42:47 GMT and ending at
16 Aug 1999 07:04:53 GMT.
Notes
=====
- A line in the body of a post is considered to be original if it
does *not* match the regular expression /^\s{0,3}(?:>|:|\S+>|\+\+)/.
- All text after the last cut line (/^-- $/) in the body is
considered to be the author's signature.
- The scanner prefers the Reply-To: header over the From: header
in determining the "real" email address and name.
- Original Content Rating (OCR) is the ratio of the original content
volume to the total body volume.
- Find the News-Scan distribution on the CPAN!
<URL:http://www.perl.com/CPAN/modules/by-module/News/>
- Please send all comments to Greg Bacon <gbacon@cs.uah.edu>.
- Copyright (c) 1999 Greg Bacon.
Verbatim copying and redistribution is permitted without royalty;
alteration is not permitted. Redistribution and/or use for any
commercial purpose is prohibited.
Excluded Posters
================
perlfaq-suggestions\@(?:.*\.)?perl\.com
Totals
======
Posters: 620
Articles: 2490 (1136 with cutlined signatures)
Threads: 549
Volume generated: 4778.7 kb
- headers: 1973.2 kb (38,667 lines)
- bodies: 2598.8 kb (78,969 lines)
- original: 1689.1 kb (55,946 lines)
- signatures: 204.3 kb (4,183 lines)
Original Content Rating: 0.650
Averages
========
Posts per poster: 4.0
median: 1.0 post
mode: 1 post - 349 posters
s: 10.3 posts
Posts per thread: 4.5
median: 3 posts
mode: 2 posts - 135 threads
s: 12.0 posts
Message size: 1965.2 bytes
- header: 811.5 bytes (15.5 lines)
- body: 1068.7 bytes (31.7 lines)
- original: 694.6 bytes (22.5 lines)
- signature: 84.0 bytes (1.7 lines)
Top 10 Posters by Number of Posts
=================================
(kb) (kb) (kb) (kb)
Posts Volume ( hdr/ body/ orig) Address
----- -------------------------- -------
109 267.0 ( 95.5/158.7/133.4) tchrist@mox.perl.com (Tom Christiansen)
93 176.9 ( 74.8/ 93.1/ 53.4) David Cassell <cassell@mail.cor.epa.gov>
91 249.2 (106.3/102.2/ 98.0) abigail@delanet.com
73 133.8 ( 48.3/ 77.1/ 44.2) lr@hpl.hp.com (Larry Rosler)
64 176.9 ( 56.1/ 96.5/ 53.9) Uri Guttman <uri@sysarch.com>
62 96.0 ( 41.5/ 54.5/ 23.9) anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
52 84.0 ( 34.9/ 38.3/ 35.7) fl_aggie@thepentagon.com (I R A Darth Aggie)
41 122.6 ( 35.9/ 86.7/ 44.1) jstevens@bamboo.verinet.com (John Stevens)
40 63.7 ( 40.0/ 23.7/ 13.5) elaine@chaos.wustl.edu
39 69.6 ( 34.9/ 28.8/ 18.2) brian@pm.org (brian d foy)
These posters accounted for 26.7% of all articles.
Top 10 Posters by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Address
-------------------------- ----- -------
267.0 ( 95.5/158.7/133.4) 109 tchrist@mox.perl.com (Tom Christiansen)
249.2 (106.3/102.2/ 98.0) 91 abigail@delanet.com
176.9 ( 56.1/ 96.5/ 53.9) 64 Uri Guttman <uri@sysarch.com>
176.9 ( 74.8/ 93.1/ 53.4) 93 David Cassell <cassell@mail.cor.epa.gov>
133.8 ( 48.3/ 77.1/ 44.2) 73 lr@hpl.hp.com (Larry Rosler)
122.6 ( 35.9/ 86.7/ 44.1) 41 jstevens@bamboo.verinet.com (John Stevens)
104.0 ( 29.5/ 74.5/ 34.0) 34 "John W. Stevens" <jstevens@basho.fc.hp.com>
96.0 ( 41.5/ 54.5/ 23.9) 62 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
84.0 ( 34.9/ 38.3/ 35.7) 52 fl_aggie@thepentagon.com (I R A Darth Aggie)
80.1 ( 31.5/ 40.4/ 30.6) 38 mgjv@comdyn.com.au (Martien Verbruggen)
These posters accounted for 31.2% of the total volume.
Top 10 Posters by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
1.000 ( 3.9 / 3.9) 6 andrew-johnson@home.com
1.000 ( 1.6 / 1.6) 5 "Troy Knight" <flexit@flexit.eurobell.co.uk>
1.000 ( 2.3 / 2.3) 5 marcza@my-deja.com
1.000 ( 1.8 / 1.8) 6 mesarchm@aol.com (Mesarchm)
0.958 ( 98.0 /102.2) 91 abigail@delanet.com
0.954 ( 2.3 / 2.4) 6 jflowers44@aol.com (Jflowers44)
0.932 ( 35.7 / 38.3) 52 fl_aggie@thepentagon.com (I R A Darth Aggie)
0.908 ( 8.1 / 8.9) 7 japhy@pobox.com
0.885 ( 5.4 / 6.1) 8 chrisl@tourneyland.com (Chris)
0.864 ( 3.7 / 4.3) 7 support@gethits.com
Bottom 10 Posters by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Address
----- -------------- ----- -------
0.423 ( 3.3 / 7.7) 5 Max Pinton <max@maxgraphic.com>
0.421 ( 3.2 / 7.5) 7 Mark McCoy <mcking@cajunbro.com>
0.386 ( 2.4 / 6.3) 9 jerrad pierce <jerrad@networkengines.com>
0.365 ( 1.8 / 5.0) 6 Shmooth <shmooth@yahoo.com>
0.347 ( 1.6 / 4.5) 5 Chi Yu <chi@cybie.com>
0.327 ( 1.7 / 5.1) 6 "Matthew O. Persico" <mpersico@erols.com>
0.316 ( 3.0 / 9.4) 15 Tom Briles <sariq@texas.net>
0.291 ( 1.4 / 4.8) 6 gerg@shell.ncal.verio.com (Greg Andrews)
0.283 ( 11.3 / 39.8) 26 QuestionExchange <USENET@questionexchange.com>
0.239 ( 3.2 / 13.5) 5 "Ben Quick" <newsgroup@bigwig.net>
103 posters (16%) had at least five posts.
Top 10 Threads by Number of Posts
=================================
Posts Subject
----- -------
256 Why use Perl when we've got Python?!
38 HARASSMENT -- Monthly Autoemail
36 Reading the Online Documentation?
33 Nastiness contrary to the spirit of perl?
33 Sesssion ID
33 Looking for a good Perl Book
30 pricing a perl job
28 is our reese the author of mysql book?
20 s/// and interpolation
20 Help - Split Function Blowing My Mind Away!!
These threads accounted for 21.2% of all articles.
Top 10 Threads by Volume
========================
(kb) (kb) (kb) (kb)
Volume ( hdr/ body/ orig) Posts Subject
-------------------------- ----- -------
718.7 (223.1/475.5/284.9) 256 Why use Perl when we've got Python?!
83.7 ( 32.5/ 48.7/ 29.9) 38 HARASSMENT -- Monthly Autoemail
83.1 ( 27.8/ 47.3/ 32.9) 33 Sesssion ID
78.6 ( 31.8/ 43.7/ 25.3) 33 Nastiness contrary to the spirit of perl?
72.9 ( 30.7/ 37.3/ 24.1) 33 Looking for a good Perl Book
69.9 ( 28.2/ 39.7/ 23.7) 30 pricing a perl job
60.8 ( 26.7/ 28.6/ 19.8) 28 is our reese the author of mysql book?
57.6 ( 27.1/ 27.7/ 19.2) 36 Reading the Online Documentation?
55.8 ( 14.9/ 38.5/ 31.0) 20 s/// and interpolation
52.6 ( 15.4/ 35.8/ 21.3) 14 Problem reading forms with perl
These threads accounted for 27.9% of the total volume.
Top 10 Threads by OCR (minimum of five posts)
==============================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.945 ( 20.6/ 21.8) 5 Creating hotlinks out of plain URLs in Perl.
0.898 ( 5.8/ 6.4) 5 perl script for changing all upper case letters to lower case with first word of sentence capitolized
0.830 ( 14.2/ 17.1) 18 Perl Programmers' Web Design "Difficulties"
0.822 ( 1.6/ 2.0) 5 saving a hash
0.810 ( 14.6/ 18.0) 14 Why use Python when we've got Perl?
0.805 ( 31.0/ 38.5) 20 s/// and interpolation
0.796 ( 7.3/ 9.2) 9 dot is too precious to be only for string concatenation
0.784 ( 7.1/ 9.0) 8 Member of an array
0.783 ( 4.5/ 5.8) 5 Things my math teacher forgot to tell me
0.779 ( 2.1/ 2.7) 6 Stopping someone from getting my cgi-scripts
Bottom 10 Threads by OCR (minimum of five posts)
=================================================
(kb) (kb)
OCR orig / body Posts Subject
----- -------------- ----- -------
0.430 ( 1.7 / 4.0) 6 obtaining local IP address in ActivePerl
0.430 ( 1.9 / 4.5) 5 Stripping quotes only from HTML tags
0.405 ( 3.0 / 7.4) 9 Fastest form of an 'if'
0.399 ( 1.3 / 3.3) 6 Announcement: "CRAP"
0.384 ( 1.4 / 3.7) 5 Making a new web page out of an existing page
0.374 ( 9.3 / 24.8) 11 I guess this is a Misc question: Cgi-bin
0.358 ( 2.7 / 7.4) 6 code references to builtin functions
0.337 ( 2.0 / 5.8) 6 Quick Question :)
0.323 ( 3.7 / 11.4) 10 exists problem
0.311 ( 1.3 / 4.1) 6 Newbie question about $_
138 threads (25%) had at least five posts.
Top 10 Targets for Crossposts
=============================
Articles Newsgroup
-------- ---------
76 comp.lang.python
46 comp.lang.perl.tk
40 comp.infosystems.www.authoring.html
31 comp.lang.perl.modules
29 alt.perl
14 comp.lang.perl
5 comp.lang.javascript
4 comp.lang.c
4 comp.lang.java.javascript
4 de.comp.lang.perl
Top 10 Crossposters
===================
Articles Address
-------- -------
25 "John W. Stevens" <jstevens@basho.fc.hp.com>
14 Mark Worsdall <linux@worsdall.demon.co.uk>
12 fl_aggie@thepentagon.com (I R A Darth Aggie)
10 jstevens@bamboo.verinet.com (John Stevens)
9 anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
8 tchrist@mox.perl.com (Tom Christiansen)
7 sholden@cs.usyd.edu.au
7 David Cassell <cassell@mail.cor.epa.gov>
6 Graeme Wall <Graeme@greywall.demon.co.uk>
6 William Pettrey <Bill@fuckyou.co.uk>
------------------------------
Date: Mon, 16 Aug 1999 15:51:35 +0100
From: Robin Becker <robin@jessikat.demon.co.uk>
Subject: Re: Why use Python when we've got Perl?
Message-Id: <l$048EA3VCu3EwSL@jessikat.demon.co.uk>
In article <37B81135.1B598171@strs.co.uk>, Ian Clarke
<I.Clarke@strs.co.uk> writes
>My apologies, this is wandering off-topic, I will keep it short.
>
>Ok, so your point is that I was inciting flames, but that is not in
>itself a bad thing. I can live with that.
>
>> comp.lang.perl.misc is primarily for talking about Perl, not trying to
>> defend Perl to a Python advocate. I'm sure the converse is true of
>> comp.lang.python. Someone who starts a language advocacy flamewar and
>> then plays innocent about it isn't exactly holding the moral high ground.
>
>I never claimed to be perfect, Tom's post just angered me as he was
>accusing me of fanning the flames where as in he was contributing much
>more to the whole thing than I was.
>
>Ian.
I own up to a bit of flame fanning. With TC & perl it's just too
tempting.
--
Robin Becker
------------------------------
Date: Mon, 16 Aug 1999 09:30:29 -0500
From: "End User" <kimntodd@dontspamus.execpc.com>
Subject: Working with Win32 Network API
Message-Id: <7p97d5$5vo$1@ffx2nh3.news.uu.net>
Hello,
Does anyone know where there is a "great" reference that deals with how to
use the API from within perl? I have looked at the docs that come with the
win32::api mod, but it is quite cryptic.
Thanks,
Todd
--
Todd Hayward
Global Analyst, Systems Engineer
MCSE, Compaq ACT
noc at bakernet dot com
------------------------------
Date: 1 Jul 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 1 Jul 99)
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" from
almanac@ruby.oce.orst.edu. The real FAQ, as it appeared last in the
newsgroup, can be retrieved with the request "send perl-users FAQ" from
almanac@ruby.oce.orst.edu. 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" from
almanac@ruby.oce.orst.edu.
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 V9 Issue 554
*************************************
