[10963] in Perl-Users-Digest
Perl-Users Digest, Issue: 4565 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jan 6 14:07:23 1999
Date: Wed, 6 Jan 99 11:01:31 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 6 Jan 1999 Volume: 8 Number: 4565
Today's topics:
Re: Newbie With Malformed Header! dave@mag-sol.com
Re: OK I give up (After a WEEK!) (Greg Ward)
Re: OK I give up (After a WEEK!) <uri@home.sysarch.com>
Re: Password Encryption <r2-d2@REMOVEbigfoot.com>
Re: Path under windows (Clinton Pierce)
Re: PERL and permissions (Randal L. Schwartz)
Re: Perl CD Bookshelf plans <bradw@newbridge.com>
Re: Perl CD Bookshelf plans (Greg Ward)
Re: problems with system call hanging (Greg Ward)
rsh and process management q rotenm@ecs.csus.edu
Re: Shame: Deleting List Elements <michael_mongeau@stratus.com>
Re: Shame: Deleting List Elements (Clinton Pierce)
Re: Shame: Deleting List Elements <uri@home.sysarch.com>
Re: Shame: Deleting List Elements (Greg Ward)
Re: Short way to do this with a regexp?? Delete certain (Larry Rosler)
Re: Short way to do this with a regexp?? Delete certain dave@mag-sol.com
Re: using Perl as a telnet "shell" <newsposter@cthulhu.demon.nl>
Re: Zombie, threads, children disapearing <tom_jenquin@mgic.com>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Wed, 06 Jan 1999 17:38:51 GMT
From: dave@mag-sol.com
Subject: Re: Newbie With Malformed Header!
Message-Id: <77073b$r5p$1@nnrp1.dejanews.com>
In article <36934C51.65ED5757@sheffield.ac.uk>,
Will Green <pha97wg@sheffield.ac.uk> wrote:
> Hi,
>
> I'm new to PERL, and I apologise if this is a stupid question, but here
> goes:
>
> When I run PERL at the command line, it says the syntax of my code is
> fine, however when I run it via the web server I get errors about a
> malformed header, even with really simple code:
>
> #!/usr/bin/perl
> print 'Hello world.';
>
> The error message I get is:
> malformed header from script. Bad header=Hello world.:
> /usr2/home/will/public_html/cgi-bin/si.cgi
>
> Any advice would be much appreciated :)
>
> Also does anyone have any advice on a good PERL book (I am a C++
> programmer).
You should probably look at 'Learning Perl' by Schwartz and Christiansen. It
includes a chapter on writing CGI scripts in Perl.
Your error message is very clear as to what the problem is. You are sending
malformed CGI headers back to the browser. If you don't know what CGI headers
are then you should be reading up about the CGI protocol. You should also be
using CGI.pm to write CGI scripts.
hth,
Dave...
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 6 Jan 1999 17:49:57 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: OK I give up (After a WEEK!)
Message-Id: <7707o5$f66$2@news0-alterdial.uu.net>
Marc Austin <placeit@easyad.com> wrote:
> Thanks everyone for your help (especially Greg!) This has to be the most
> helpful newsgroup on the Net!
Unless your post is a glaring example of utter cluelessness, in which
case clp.misc denizens are swifth and ruthless in their putdowns. (Or
you get ignored.) Yours wasn't, so you got helped. One thing you
should have done is come up with a better title; if you stick around,
you'll notice a high degree of correlation between cluelessness and
titles like "HELP!" or "I'm stuck!!!". Yours was dangerously close to
this...
> Unfortunately, I still haven't resolved this... The snippet is part of a
> larger script, so (Greg,) if I were to use "use strict;" I would pretty
> much have to rewrite the entire script. (next time ok?)
Not necessarily so. 'strict' can be turned on and off at will; eg. you
can wrap known well-behaved chunks of code like this:
{
use strict;
# nice code follows
}
Or, if most of your code is well-behaved and you still have some
non-strict stuff floating around:
{
no strict;
# naughty code follos
}
And you can also put 'use strict' or 'no strict' into subroutines at
will. And you can control just what Perl is strict about. See the
'strict' man page ('perldoc -mt strict') for details.
> Maybe what I need is a standalone script, that resends the lost key...
Think "module". Reusability is good. Subroutines are good, modules are
better, classes are best yet.
> sub split_key {
>
> $email_found = 0;
>
> open(KEYEMAIL,"$email_file") || die "can't open $email_file\n";
> @keyemail = <KEYEMAIL>;
> chop(@keyemail);
> close(KEYEMAIL);
>
> foreach (@keyemail) {
> ($field1,$field2) = split(/ /);
>
> if ($field2 == $FORM{'email'}) {
> $email_found = 1;
> $matched_password = $field1;
> $matched_email = $field2;
>
> }
> }
Well, gee, you still haven't fixed the bugs in your code! Your split is
dubious (probably wrong), you're comparing strings with '==' (which is
for numeric comparisons), and you don't exit the loop when you find a
hit.
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 06 Jan 1999 13:02:23 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: OK I give up (After a WEEK!)
Message-Id: <x7emp8mg9b.fsf@home.sysarch.com>
>>>>> "MA" == Marc Austin <placeit@easyad.com> writes:
MA> if ($field2 == $FORM{'email'}) {
^^
use eq to compare strings. == is for numbers.
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: Wed, 6 Jan 1999 18:09:35 -0000
From: "Artoo" <r2-d2@REMOVEbigfoot.com>
Subject: Re: Password Encryption
Message-Id: <770900$dcd$1@plug.news.pipex.net>
Is it possible to decrypt anything crypted with the crypt function if you
have the correct SALT? We need to be about to de-crypt the encrypted info.
Otherwise is there anyother good method for crypting? I've written a simple
programme to encrypt in my own manor and can de-crypt that but would like
know about other methods.
Thanks
Artoo
Mike wrote in message <3693686D.24757D41@counter.w-dt.com>...
>Use perls crypt function. It can't be decrypted, you just crypt both with
>the same salt and then compare them.
>
>Artoo wrote:
>
>> Hi All
>>
>> What is the best way to store passwords encrypted on a server? How do I
>> encode them and decode them to check on log-in to script?
>>
>> Thanks for any help
>> Artoo
>
------------------------------
Date: Wed, 06 Jan 1999 15:18:28 GMT
From: cpierce1@mail.ford.com (Clinton Pierce)
Subject: Re: Path under windows
Message-Id: <369a7c85.2585885077@news.ford.com>
On Tue, 05 Jan 1999 10:11:41 -0600, John Warner <jwarner@tivoli.com>
wrote:
>I know where you're coming from. [...] that I had to teach him
>how to use the mouse before we got to NT administration.
Sounds too familiar to be comfortable. I'm in recovery now becuase of
people like this...
>Hmmm. That's odd. It took me a little debugging on pathing in the makefile but other
>than that (and using nmake), all the modules I have installed ran like a champ. If you
>can persuade them to install the gnu tools (www.gnu.org) as well as gcc, the
>instructions you send to them would work regardless of the differences between your
>OSes. I did this recently on my laptop for work and I have to say, its pretty groovy
>having gcc, a couple of Unix shells, and most of the Unix commands (including make, tar,
>and gzip) on my NT Workstation.
I spent 3 weeks (off-and-on) trying to get Perl & Tk to compile under
Cygwin under Win95. The biggest problem: the shell does not work.
Cygwin even admits this (in an FAQ, something to the effect of "oh yeah,
the shell hangs a lot under Win95, get WinNT and deal with it.") It
wouldn't be so bad if it just crashed itself--it crashes the OS. Grrr.
Under Win95, there is no adaquate substitute, and the Perl Makefile is
just unbearable without it.
I wonder if the Nick Ing-Simmons port of Make in Perl is done yet, and
whether or not....naaaaah.
>That sounds suspiciously like the ActiveState installer. ;-)
Hey, it works. Although they're a couple of modules short of a full
load, so I'm still using GSAR's distribution and sending them perl2exe'd
bundles to run...
>[...]My advice is to try Timbuktu (free last time I
>checked) , tell them to sit quietly and watch, and then install the correct build of
>ActivePerl (also free) for them. When they ask why you did that, explain to them that
>they needed the upgrade and are now using a newer, superior version of Perl.[...]
>Then charge them out the yingyang for the lesson. ;-)
My biggest problem is that I'm in Michigan and my customers aren't.
They're in California, Maryland, etc.. If they were down the road a bit,
I'd sit in front of the Unholy Web Server of Bill and fix it to use a
decent Perl distribution, but I can't.
They pay for it in the end, either way though. :-)
------------------------------
Date: 06 Jan 1999 09:31:31 -0800
From: merlyn@stonehenge.com (Randal L. Schwartz)
Subject: Re: PERL and permissions
Message-Id: <m1yangz4ss.fsf@halfdome.holdit.com>
>>>>> "Eugene" == Eugene Sotirescu <eugene@verticalnet.com> writes:
Eugene> Not all UNICES support suid.
OK, I'll bite. Name one that doesn't support setuid programming.
Unless you meant "setuid scripts". Then I can agree.
print "Just another Perl hacker,"
--
Name: Randal L. Schwartz / Stonehenge Consulting Services (503)777-0095
Keywords: Perl training, UNIX[tm] consulting, video production, skiing, flying
Email: <merlyn@stonehenge.com> Snail: (Call) PGP-Key: (finger merlyn@teleport.com)
Web: <A HREF="http://www.stonehenge.com/merlyn/">My Home Page!</A>
Quote: "I'm telling you, if I could have five lines in my .sig, I would!" -- me
------------------------------
Date: 06 Jan 1999 12:29:37 -0500
From: bj <bradw@newbridge.com>
Subject: Re: Perl CD Bookshelf plans
Message-Id: <op1yangb98e.fsf@kannews.newbridge.com>
Chris Maden <crism@oreilly.com> writes:
> Question for the Perl community:
> _Advanced Perl Programming_
> _Perl Cookbook_
> _Programming Perl_
> _Perl in a Nutshell_
> _Perl 5 Pocket Reference_
>
> The question is, would it be useful to also include _Learning Perl_
> and _Learning Perl on Win32 Systems_?
Make sure the search engine allows you to limit your searches and it
would be an reasonable addition.
Don't really see the advantage of including the pocket reference, but
if you do, please also include the Perl/Tk one. If you are going to
include them, they should be, the same as the online versions are.
Also, you _really_ should include Learning Perl/Tk (which should be at
the presses if O'Reilly is going to make the already pushed back
January publication date... you are going to make this one right?)
Personally I would leave out the pocket references, add in Learning
Perl/Tk and Mastering Regular Expressions.
bj
------------------------------
Date: 6 Jan 1999 17:54:05 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: Perl CD Bookshelf plans
Message-Id: <7707vt$f66$3@news0-alterdial.uu.net>
Chris Maden <crism@oreilly.com> wrote:
> Question for the Perl community:
>
> We're getting ready to put together _The Perl CD Bookshelf_. Like the
> other O'Reilly CDs, it'll be a bunch of books as HTML files with a
> combined index and search engine. The current plan is to have five
> books:
How about including all the online documentation as well? It's more
up-to-date than the books (especially the Camel Book). (Or will the
books be updated for the CD?)
I agree that the Learning Perl books would be useful for many people,
mainly those who learned Perl from them. They might be more familiar
with the content of those books, and those be more easily able to answer
their questions by browsing them. There should be an option to leave
certain books out of search queries, though.
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: 6 Jan 1999 18:49:15 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: problems with system call hanging
Message-Id: <770b7b$iar$1@news0-alterdial.uu.net>
dana <dana@nowhere.com> wrote:
> open(FILEHANDLE, " system command |") || die "generic die message";
>
> which works fine unless the system command hangs. My question is; how
> do I detect that the command is hung and kill the pid of the script? I
> know that I will probably use "kill $$" to kill the perl script process
> but I am not sure how to detect that the system command is hung.
Use 'select' (the four-argument version, the one that corresponds to the
select(2) system call) to see if any output is waiting to be read from
FILEHANDLE. You'll have to read the Perl documentation on select
('perldoc -tf select', and look for the *four*-argument form); then,
you'll get confused and have to read the Unix man page on select.
(FWIW, it's a system call under most Unices, but seems to be a library
call under Solaris.) Repeat until no longer confused.
Alternately, here's an example that seems to work for me:
------------------------------------------------------------------------
# create child process and open pipe to it
my $pid = open (FH, "(sleep 1; ls -l)|") or die "couldn't fork";
# my $pid = open (FH, "ls -l|") || die "couldn't fork";
print "child is $pid\n";
# set up file number bitmap for the select call, and do the call
$rin = '';
vec ($rin, fileno (FH), 1) = 1;
($nf,$tl) = select ($rin, undef, undef, 0.9);
# if we don't have output waiting on exactly one filehandle, then
# FH timed out: kill the child and die
unless ($nf == 1)
{
print "killing $pid\n";
kill 15, $pid or warn "couldn't kill $pid: $!\n";
die "timed out";
}
# gather the child's output and print it (NB. *must* use sysread
# when using select!)
my $output = '';
my $chunk;
$output .= $chunk
while (sysread (FH, $chunk, 8192));
die "error reading from pipe" unless defined $chunk;
print $output;
# finish up
close FH;
die "command failed" unless $? == 0;
------------------------------------------------------------------------
Unfortunately, there's still one problem with this script: a timed-out
child dies with a "Broken pipe" message when I die, even though I kill
it before dying. If I kill with signal 9, then I don't get the message,
but that seems awfully harsh.
I think this might be because my child is actually a shell (since the
command I'm running is "(sleep 1; ls -l)" to provoke a guaranteed
timeout). If the child program you're running is under your control,
then it probably won't have this problem. (As I recall, if you simply
ignore SIGPIPE, then nothing will happen, which is usually what you
want. Probably my shell catches SIGPIPE and prints the "Broken pipe"
message.)
Hope this helps --
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: Wed, 06 Jan 1999 17:28:08 GMT
From: rotenm@ecs.csus.edu
Subject: rsh and process management q
Message-Id: <7706f3$qi4$1@nnrp1.dejanews.com>
Greetings!
I've got a tricky one that maybe somebody out there can help with.
I'm attempting rsh command over a network, whereas some of the machines that
are getting shelled to will not permit a rsh, and will not return any form
of error message... they will just sit there and do nothing.
This is a snippet of the core of what I'm trying to do... it works, but it's
only *semi* reliable. Sometimes it won't timeout properly at all and just
hangs up.
$SIG{ALRM} = \&timeout;
alarm(10);
$pid = open ( RSH, "rsh -n $ipadd echo \'x\' |" );
alarm(0);
exit(0);
sub timeout {
print STDERR " *** TIMEOUT on $ipadd ***\n";
print STDERR " *** KILLING $pid... ***\n";
system "kill -9 $pid";
print STDERR " *** $pid KILLED! ***\n";
alarm(0);
close RSH;
return
}
Any advice as to how to increase the reliability of this would be greatly
appreciated.
Michael
rotenm@ecs.csus.edu
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 6 Jan 1999 12:17:50 -0500
From: "Michael Mongeau" <michael_mongeau@stratus.com>
Subject: Re: Shame: Deleting List Elements
Message-Id: <7705l6$acp@transfer.stratus.com>
Richard Jelinek <rj@suse.de> wrote in message
news:36938070.534CBB6@suse.de...
>
>@list = (1,2,3,4,5);
>
>How do I delete element 3? I mean not to clear it, I mean delete. I know
>shift,pop et al. but I need to delete elements inside a list.
>
><do_some_magic_thing>
>
>print join ':',@list;
>
>=> 1:2:4:5
You could use an array slice:
@list = (1,2,3,4,5);
@list2 = @list[0..1,3..4]; # list2 now contains 1,2,4,5
Michael Mongeau
------------------------------
Date: Wed, 06 Jan 1999 17:17:44 GMT
From: cpierce1@mail.ford.com (Clinton Pierce)
Subject: Re: Shame: Deleting List Elements
Message-Id: <369d9a75.2593549575@news.ford.com>
[Courtesy CC sent to poster in E-Mail]
On Wed, 06 Jan 1999 16:25:36 +0100, Richard Jelinek <rj@suse.de> wrote:
>Hi,
>
>either there are tomatoes on my eyes or I'm still a bloody perl-newbie:
>
>@list = (1,2,3,4,5);
>
>How do I delete element 3? I mean not to clear it, I mean delete. I know
>shift,pop et al. but I need to delete elements inside a list.
>
><do_some_magic_thing>
>
>print join ':',@list;
>
>=> 1:2:4:5
>
>How???
splice()
--
Clinton A. Pierce "If you rush a Miracle Man, you get rotten
cpierce1@ford.com miracles" --Miracle Max, The Princess Bride
fubar@ameritech.net http://www.dcicorp.com/~clintp
------------------------------
Date: 06 Jan 1999 13:03:37 -0500
From: Uri Guttman <uri@home.sysarch.com>
Subject: Re: Shame: Deleting List Elements
Message-Id: <x7btkcmg7a.fsf@home.sysarch.com>
>>>>> "RJ" == Richard Jelinek <rj@suse.de> writes:
RJ> either there are tomatoes on my eyes or I'm still a bloody perl-newbie:
or both? :-)
RJ> @list = (1,2,3,4,5);
RJ> How do I delete element 3? I mean not to clear it, I mean delete. I know
RJ> shift,pop et al. but I need to delete elements inside a list.
perldoc -f splice
hth,
uri
--
Uri Guttman ----------------- SYStems ARCHitecture and Software Engineering
Perl Hacker for Hire ---------------------- Perl, Internet, UNIX Consulting
uri@sysarch.com ------------------------------------ http://www.sysarch.com
The Best Search Engine on the Net ------------- http://www.northernlight.com
------------------------------
Date: 6 Jan 1999 18:19:53 GMT
From: gward@thrak.cnri.reston.va.us (Greg Ward)
Subject: Re: Shame: Deleting List Elements
Message-Id: <7709g9$f66$4@news0-alterdial.uu.net>
Richard Jelinek <rj@suse.de> wrote:
> either there are tomatoes on my eyes or I'm still a bloody perl-newbie:
>
> @list = (1,2,3,4,5);
>
> How do I delete element 3? I mean not to clear it, I mean delete. I know
> shift,pop et al. but I need to delete elements inside a list.
Use splice. 'perldoc -tf splice' for details. Here's an example to
delete the third element from your @list:
splice (@list, 2, 1);
splice actually does a lot more than just delete elements, but that
seems to be what I use it for most often.
Greg
--
Greg Ward - software developer gward@cnri.reston.va.us
Corporation for National Research Initiatives
1895 Preston White Drive voice: +1-703-620-8990 x287
Reston, Virginia, USA 20191-5434 fax: +1-703-620-0913
------------------------------
Date: Wed, 6 Jan 1999 09:48:01 -0800
From: lr@hpl.hp.com (Larry Rosler)
Subject: Re: Short way to do this with a regexp?? Delete certain chars from string.
Message-Id: <MPG.10fd41b1e398d07198997c@nntp.hpl.hp.com>
[Posted to comp.lang.perl.misc and copy mailed.]
In article <MPG.10fd46e978c025e49896b2@netnews.worldnet.att.net> on 6
Jan 1999 14:54:32 GMT, Charles Wilt
<charles.0272@worldnet.no.spam.att.net> says...
> I need to replace the following characters with a space if the appear in
> a string:
> \ / : * ? " < > |
Someone else showed you how to do it with a regex, as requested in your
Subject (using a character class). But by far the faster way to deal
with single characters without context is to use the 'tr' operator (look
in perlop instead of perlre):
tr#\\/:*?"<>|# #;
where # is an arbitrary delimiter, just as for a regex.
--
(Just Another Larry) Rosler
Hewlett-Packard Company
http://www.hpl.hp.com/personal/Larry_Rosler/
lr@hpl.hp.com
------------------------------
Date: Wed, 06 Jan 1999 17:46:42 GMT
From: dave@mag-sol.com
Subject: Re: Short way to do this with a regexp?? Delete certain chars from string.
Message-Id: <7707i1$rn6$1@nnrp1.dejanews.com>
In article <MPG.10fd46e978c025e49896b2@netnews.worldnet.att.net>,
charles.0272@worldnet.no.spam.att.net (Charles Wilt) wrote:
> I need to replace the following characters with a space if the appear in
> a string:
> \ / : * ? " < > |
>
> The string will be used as a filename. I think I can do this in multiple
> lines with each line handling one char. But I wonder if there is a way
> to do this in one line.
perldoc perlre
and look for the stuff on character classes.
hth,
Dave...
--
Dave Cross
Magnum Solutions Ltd: <http://www.mag-sol.com/>
London Perl M[ou]ngers: <http://london.pm.org/>
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Wed, 06 Jan 1999 12:44:18 -0500
From: Erik van Roode <newsposter@cthulhu.demon.nl>
Subject: Re: using Perl as a telnet "shell"
Message-Id: <3693A0F0.5F55A995@cthulhu.demon.nl>
Big Jim wrote:
>
> After taking out a 6 month subscription with a local iap I then
> discovered that they have no newsserver! Their mail server was
> initially flakey, failed for weeks, and is plainly unreliable. Then
> pdksh broke, so I converted my few scripts to zsh. Now, with still
> two months subscription remaining, telnet has been made rwx------
> and I can no longer even telnet to port 119 of another newsserver
> to read their local newsgroups (albeit slowly and painfully). For
> some mysterious reason, ps is also now rwx------. Unsurprisingly,
> the admin have stopped responding to my email complaints.
Instead of spending a lot of time on getting your current ISP working,
getting a _good_ ISP might save you a lot of time and frustration.
Erik
--
Sure, doesn't everyone sign up for internet service so as to have
their mailbox stuffed with megabytes of postage-due rubbish every day?
Absolutely. And everyone who owns a car intends that it be used as a
portable dumpster. Any unwanted garbage in their vehicle they can
simply throw away, after all.
------------------------------
Date: Wed, 06 Jan 1999 11:41:13 -0600
From: Tom Jenquin <tom_jenquin@mgic.com>
Subject: Re: Zombie, threads, children disapearing
Message-Id: <3693A038.BBB55B61@mgic.com>
Daniel Grisinger wrote:
> Tom Jenquin <tom_jenquin@mgic.com> writes:
>
> > OS: UNIX; Solaris 2.5.1
> > PERL: 5.004_04
> ^^^^^^^^^
> > Latest change: Added threads to perl for use with MQ Series
> ^^^^^^^^^^^^^
> I doubt it, threads are not available in 5.004_0x no matter how
> hard you try.
You are probably correct. I did what MQ Series asked for; during the
configure I added a compiler flag (-D_REENTRANT) and a library (-lthreads).
>
>
> > After I added threads my all of my socket server type applications began
> > having processing children disappear. I am using a reaper process to
> > remove zombies.
>
> I'm guessing that when you say threads you mean that you've moved
> to a fork/exec model of execution. They aren't the same thing, you'll
> just confuse yourself if you think of them that way.
>
No exec, just a socket connect and a fork.
>
> > After disabling the reaper process (living with lots of zombies), I find
> > that all of my children complete normally.
> >
> > HELP!?
>
> We can't help at all if you don't show us the code that causes the
> problem.
>
I'm working on it. Its 11663 lines of perl code plus some dynamic routines
that I need to synthisize and still have fail. (My perceived key was that I
didn't have failures before I changed perl or after I removed the reaping of
zombies).
>
> dgris
> --
> Daniel Grisinger dgris@moiraine.dimensional.com
> perl -Mre=eval -e'$_=shift;;@[=split//;;$,=qq;\n;;;print
> m;(.{$-}(?{$-++}));,q;;while$-<=@[;;' 'Just Another Perl Hacker'
I'm trying to replace my perl5.004_04 with perl5.005_02 (using the
-Dusethreads on the configure), but, I am having other troubles as identified
in another post.
------------------------------
Date: 12 Dec 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 4565
**************************************
