[21923] in Perl-Users-Digest
Perl-Users Digest, Issue: 4127 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Nov 16 00:06:26 2002
Date: Fri, 15 Nov 2002 21:05:08 -0800 (PST)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Fri, 15 Nov 2002 Volume: 10 Number: 4127
Today's topics:
Re: [Q] Script to search auction sites? (Sir Loin of Beef)
Re: [Q] Script to search auction sites? <jurgenex@hotmail.com>
Re: Calling CGI script in restrcted dir (.htaccess) fro <nobody@noplace.com>
Re: code comprehension tools <webmastr@localhost.localdomain>
Re: Creating a pop up HTML page in perl <spam@all.costs.must.die>
Re: dealing with multiple entires in a multi-dimensiona <nospam@rostie.net>
Re: Deleting from a fixed Length Flat File Database usi <nobody@noplace.com>
HOw to call perl functions from other perl files <ikearndt@warwick.net>
Re: HOw to call perl functions from other perl files <jurgenex@hotmail.com>
Re: How to kill a system or process open call on timeo (Seth Brundle)
Re: installing perl on winxp <wsegrave@mindspring.com>
Re: Is Perl capable to write and read Word file or Exce <spam@all.costs.must.die>
Re: Is Perl capable to write and read Word file or Exce (Colin Smith)
Multiple dbh different servers (Ivan Dwyer)
Re: Multiple dbh different servers ctcgag@hotmail.com
Re: OS/390 perl 5.8.0 help? <nobody@noplace.com>
Re: OS/390 perl 5.8.0 help? <flavell@mail.cern.ch>
Re: OS/390 perl 5.8.0 help? <nospam@rostie.net>
Re: Reading an input file as scalar. <flavell@mail.cern.ch>
Re: Reading an input file as scalar. <comdog@panix.com>
Re: Socket client/server example not working on Windows <troc@netrus.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 16 Nov 2002 03:01:51 GMT
From: NOSPAMmdknight@pacific.net.sg (Sir Loin of Beef)
Subject: Re: [Q] Script to search auction sites?
Message-Id: <3dd5b51e.12637918@news.pacific.net.sg>
I've just enabled warnings and strict, and get this error now.
D:\html10 - auction searcher>perl auctse~1.pl
parse error in file auctse~1.pl at line 3, next 2 tokens "use CGI"
No comma allowed after filehandle at auctse~1.pl line 8.
>So in Basic you would use a string concatenation operator. Perl also has a
>string concatenation operator, but it isn't '+'.
>
I've tried this:
$content =
get("http://search.auctions.shopping.yahoo.com/sg/search/auc?alocale=0sg&p=".searchterm."&auccat=");
but the resulting string is
"http://search.auctions.shopping.yahoo.com/sg/search/auc?alocale=0sg&p=&auccat="
searchterm doesn't even appear. I tried it with the _ operator, with
the same result.
------------------------------
Date: Sat, 16 Nov 2002 04:41:11 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: [Q] Script to search auction sites?
Message-Id: <H%jB9.11358$nQ4.5313@nwrddc01.gnilink.net>
Sir Loin of Beef wrote:
> I've just enabled warnings and strict, and get this error now.
>
> D:\html10 - auction searcher>perl auctse~1.pl
> parse error in file auctse~1.pl at line 3, next 2 tokens "use CGI"
You made a syntax error in line 3 (or maybe shortly before that).
No way of telling what that might be without you showing us the actual
code).
> No comma allowed after filehandle at auctse~1.pl line 8.
You made another coding error in line 8.
No way of telling what that might be without you showing us the actual
code).
> I've tried this:
>
> $content =
>
get("http://search.auctions.shopping.yahoo.com/sg/search/auc?alocale=0sg&p="
.searchterm."&auccat=");
You should have gotten an error message about using a bareword where no
bareword is allowed.
What is searchterm? Did you mean the variable $searchterm by any chance?
> but the resulting string is
>
>
"http://search.auctions.shopping.yahoo.com/sg/search/auc?alocale=0sg&p=&aucc
at="
It actually surprises me that perl generated anything. But because it didn't
know what you meant with the bareword searchterm it probably simply ignored
it.
> searchterm doesn't even appear. I tried it with the _ operator, with
> the same result.
The underscore operator? What is that supposed to do? I've never heard that
Perl has an underscore operator but of course that doesn't mean there is
none.
jue
------------------------------
Date: Sat, 16 Nov 2002 01:44:39 GMT
From: "Gregory Toomey" <nobody@noplace.com>
Subject: Re: Calling CGI script in restrcted dir (.htaccess) from outside shtml (SSI) ?
Message-Id: <01c28d13$381fd320$c1498a90@gmtoomey>
Try alt.apache.configuration or whatever.
gtoomey
------------------------------
Date: Sat, 16 Nov 2002 00:31:19 GMT
From: Webmaster <webmastr@localhost.localdomain>
Subject: Re: code comprehension tools
Message-Id: <pan.2002.11.15.16.31.42.448198.1382@localhost.localdomain>
On Thu, 14 Nov 2002 16:16:28 -0800, pkent wrote:
> In article <bNIA9.819016$Ag2.27694866@news2.calgary.shaw.ca>,
> "NKarun" <ntk00@hotmail.com> wrote:
>
>> I have a relatively large Linux web application written in C, Perl and
>> shell scripts. Are there any tools/techniques/methodologies that can
>> help me understand this application?
>
> eww, sounds like fun :-)
Only after the first one.
> Use existing documentation and source code to work out what the public
> APIs are between things. Try building a big, high-level block diagram of
> the system
This is the best I have come up with also.
> I personally have found that, generally, getting the big idea about a
> system is the best thing to do first, working into more and more detail
> as I get familiar with the files. Sometimes though it works as a a
> bottom-up or middle-out approach :-/
I surveyed some techniques in system abstraction in an old data structers text.
> I'd also recommend that you shove all the files into CVS.
I also installed a module Devel::Trace (http://perl.plover.co/Trace/)
that prints to standard error just before each line of Perl is executed.
I hope will help but I have not tried it yet. I'll post the result here.
Thanks,
Nagita
------------------------------
Date: Sat, 16 Nov 2002 10:57:26 +1100
From: "Tintin" <spam@all.costs.must.die>
Subject: Re: Creating a pop up HTML page in perl
Message-Id: <3dd58a25_1@news.iprimus.com.au>
"Asad" <g0khaasa@cdf.toronto.edu> wrote in message
news:Pine.LNX.4.30.0211141951590.26842-100000@b375-15.cdf...
> How do I make a new HTML page using a perl script. I want it to be a pop
> up age. Actually, I have a script, and I am making an HTML page thorough
> it. On this page, I have a link checkout, which when clicked opens up a
> new pop up HTML page (existing page remains intact as it is) containing
> some information.
>
> So my question is, how do I create a pop up HTML page. In Javascript we
> can go:
>
> DisplayOrder = window.open("", "_blank", "toolbar=yes, status=no,
> width=600, height=800");
>
> How can I do the same in perl?
By printing it
print qq/DisplayOrder = window.open("", "_blank", "toolbar=yes, status=no,
width=600, height=800");\n/;
------------------------------
Date: Fri, 15 Nov 2002 23:34:22 GMT
From: Randy <nospam@rostie.net>
Subject: Re: dealing with multiple entires in a multi-dimensional hash
Message-Id: <lk0btu8nvh4bigpkbs5kqnl5hn8nnbnk45@4ax.com>
On 15 Nov 2002 21:07:34 +0000, Brian McCauley <nobull@mail.com> wrote:
>> # Check to see if this user has another script in here
>> if (exists $users{$user}){
>> # Yes they do, add this file to it.
>> $users{$user} .= "\t\t\t$file\t\t$safe\t\t$version";
>> }else{
>> # No they don't
>> $users{$user} = "$file\t\t$safe\t\t$version";
>> }
>>
>> Isn't there any easier way to do this?
>
>That's not a multi-dimensional hash and doesn't seem to relate to the
>stuff that went before.
>
>It's therefore impossible to figure out to what "do this" refers.
In plain english:
If this user is already in the index %users, don't create another
$user entry
Maybe I am doing it wrong, what if I make the index %file (instead of
%users)
for each %file
store $user $safe $version
because every file will obviously be unique, but then I have to sort
according to user so I can send the user a single email that lists the
files in his home directory.
Randy
------------------------------
Date: Fri, 15 Nov 2002 23:15:38 GMT
From: "Gregory Toomey" <nobody@noplace.com>
Subject: Re: Deleting from a fixed Length Flat File Database using Perl and HTML
Message-Id: <01c28cfe$67029700$c1498a90@gmtoomey>
Dan <thrupwelder@hotmail.com> wrote in article
<4d79ea3.0211150420.12f37506@posting.google.com>...
> Hi, I have the following problem:
> I have a HTML page created dynamically which produces a table of member
> details for my Website. This includes name, e-mail, password, etc. Each
> row of this table is created as a seperate form, in order to post info to
> another perl script which controls the deletion of a single record.
>
> When I click delete, the script 'del.pl' is called, but fails to function
> correctly.
WHich user is your web server running the script as? If you do not have a
cgi swapper then you could be running as "nobody', which may not be able to
read/write/delete your files.
gtoomey
------------------------------
Date: Fri, 15 Nov 2002 20:33:30 -0500
From: "K Arndt" <ikearndt@warwick.net>
Subject: HOw to call perl functions from other perl files
Message-Id: <3dd5a051$1@news1.warwick.net>
Does anyone have an idea on how to call a perl function in another perl
file? I wrote a counter program that I can call from HTML. I do not know
how to call it from a perl file. I tried the same HTML in the perl file as
I would to output information in perl usint HTML tags.
------------------------------
Date: Sat, 16 Nov 2002 01:43:36 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: HOw to call perl functions from other perl files
Message-Id: <cphB9.815$aB1.616@nwrddc02.gnilink.net>
K Arndt wrote:
> Does anyone have an idea on how to call a perl function in another
> perl file?
Usually you would import the the other Perl file as a module using "require"
or "use".
And then just call the function.
> I wrote a counter program that I can call from HTML. I
How would you do that? HTML is a text markup language, it can't call
anything.
> do not know how to call it from a perl file. I tried the same HTML
> in the perl file as I would to output information in perl usint HTML
> tags.
HTML in a Perl file? That doesn't make sense.
To output information from a Perl script use "print".
jue
------------------------------
Date: 15 Nov 2002 18:35:10 -0800
From: brundlefly76@hotmail.com (Seth Brundle)
Subject: Re: How to kill a system or process open call on timeout in Windows
Message-Id: <53e2ec95.0211151835.3711051b@posting.google.com>
"J rgen Exner" <jurgenex@hotmail.com> wrote in message news:<HA1z9.3647$XH4.1538@nwrddc02.gnilink.net>...
> Seth Brundle wrote:
> > I would like to be able to kill a system call or piped open process if
> > it runs over, say a minute.
>
> Please see "perldoc -q timeout": How do I timeout a slow event?
>
> jue
Ahhhh...crap:
The Unsupported function alarm function is unimplemented at
C:/Perl/lib/Sys/AlarmCall.pm line 38.
Unfortunately this is the first time I have had to write a sizeable
Perl program under windows (because of its huge video codec support) -
I usually use Linux. It has been a nightmare.
So, I guess there is like, no way for me to timeout a function under
windows, eh?
GAHH!!
------------------------------
Date: Fri, 15 Nov 2002 17:04:25 -0600
From: "William Alexander Segraves" <wsegrave@mindspring.com>
Subject: Re: installing perl on winxp
Message-Id: <ar3uk8$7d4$1@slb9.atl.mindspring.net>
"thebladerunner" <thebladerunner@hotmail.com> wrote in message
news:4968ad8e.0211151350.27e1d9b1@posting.google.com...
> helgi@decode.is (Helgi Briem) wrote in message
news:<3dd4d1f7.2619814734@news.cis.dfn.de>...
> > On Thu, 14 Nov 2002 20:44:56 -0600, "William Alexander
> > Segraves" <wsegrave@mindspring.com> wrote:
> >
> > >"Helgi Briem" <helgi@decode.is> wrote in message
> > >news:3dd3c762.2551564425@news.cis.dfn.de...
> > >> On Thu, 14 Nov 2002 06:54:46 -0600, "William Alexander
> > >> Segraves" <wsegrave@mindspring.com> wrote:
> > <snip>
> > >> >You might try installing IndigoPerl, www.indigostar.com, on your XP
box.
> > It
> > >> >worked fine when I did this on my son's (similar) XP system.
> > >>
> > >> No, if he is only an ordinary user he is not allowed to
> > >> set up any programs. He has to ask the administrator
> > >> to allow him to do that.
> > >
<snip>
> Helgi is correct, you must have installed on XP Home edition, not the
> Professional edition. I have had no luck whatsoever with either
> version of Perl.
Helgi may be correct, but for the wrong reason. When my son added me as a
user on his WinXP Pro system, he gave me admin privileges.
> I think the general concensus is that I am screwed.
I wouldn't know about that; but it's well known that if you argue too
strongly for your limitations, they will indeed be your limitations. ;-)
If the OP would indentify the problems he had with IndigoPerl, those of us
that use it might be able to help him. The OP might also take a look at Alan
Barclay's nearby post on this thread.
Bill Segraves
------------------------------
Date: Sat, 16 Nov 2002 10:55:57 +1100
From: "Tintin" <spam@all.costs.must.die>
Subject: Re: Is Perl capable to write and read Word file or Excel file?
Message-Id: <3dd589c9_1@news.iprimus.com.au>
"Colin Smith" <peibing@hotmail.com> wrote in message
news:5a1cd92b.0211141604.7e186977@posting.google.com...
> Hi all:
>
> Currently I am using VBscript and ASP to generate a txt file as the
> packing slip and attach that txt file to the e-mail purchase order.
> But I would like to generate a Word file instead. Is it possible to
> use Perl to read and write a Word file?
Forget Word, try to use something a little more portable like PDF.
http://search.cpan.org/search?query=PDF&mode=all
------------------------------
Date: 15 Nov 2002 16:15:03 -0800
From: peibing@hotmail.com (Colin Smith)
Subject: Re: Is Perl capable to write and read Word file or Excel file?
Message-Id: <5a1cd92b.0211151615.4e34d56c@posting.google.com>
Thank you all for your kind help. I will try to find them.
------------------------------
Date: 15 Nov 2002 17:18:06 -0800
From: ivan@alldorm.com (Ivan Dwyer)
Subject: Multiple dbh different servers
Message-Id: <40a0e714.0211151718.4e7cbec7@posting.google.com>
I'm trying to open two connections to two databases on two different
servers in the same script. It's an email campaign manager that
queries an email database on one server and subscribes them to a
transactional database on another server.
First I set up two different db handles
my $dbh = DBI -> connect("DBI:mysql:db1:host1","user", "pass")
or die "Can't connect to sql server. Reason: $DBI::errstr";
my $dbh2 = DBI -> connect("DBI:mysql:db2:host2","user", "pass")
or die "Can't connect to sql server. Reason: $DBI::errstr";
I have two different query subroutines for each connection
sub db_query {
my $query = shift(@_);
my $sth = $dbh->prepare ($query) or
die "Query syntax error: $DBI::errstr. Query: $query";
$sth->execute() or die "Can't execute query: $query. Reason:
$DBI::errstr";
return $sth;
}
sub db_query2 {
my $query = shift(@_);
my $sth = $dbh2->prepare ($query) or
die "Query syntax error: $DBI::errstr. Query: $query";
$sth->execute() or die "Can't execute query: $query. Reason:
$DBI::errstr";
return $sth;
}
In my main, I try and run queries on both connections
$sth=db_query(qq{DELETE FROM verified WHERE email = "$email"});
$sth=db_query2(qq{DELETE FROM subscribe WHERE email = "$email"});
Then I close both connections
defined $dbh and ($dbh->disconnect or die "Can't disconnect from
database. Reason: $DBI::errstr" and undef $dbh);
defined $dbh2 and ($dbh2->disconnect or die "Can't disconnect from
database. Reason: $DBI::errstr" and undef $dbh2);
I'm getting a connection error right away
DBI->connect(db2:host2) failed: Can't connect to MySQL server on
'host2(110)
The first connection works fine, but the second one doesn't. I was
wondering if I have to open a connection, run a query, and then close
the connection each time a run a query on a different server connect.
That seems a little ridiculous and I'd really like to avoid that. I'd
appreciate any advice on how to go about this. Thanks,
Ivan Dwyer
**I was sittin on the corner talkin to myself, I said 'self, you code
like no one else'**
------------------------------
Date: 16 Nov 2002 02:46:50 GMT
From: ctcgag@hotmail.com
Subject: Re: Multiple dbh different servers
Message-Id: <20021115214650.928$N8@newsreader.com>
ivan@alldorm.com (Ivan Dwyer) wrote:
>
> First I set up two different db handles
>
> my $dbh = DBI -> connect("DBI:mysql:db1:host1","user", "pass")
> or die "Can't connect to sql server. Reason: $DBI::errstr";
>
> my $dbh2 = DBI -> connect("DBI:mysql:db2:host2","user", "pass")
> or die "Can't connect to sql server. Reason:
> $DBI::errstr";
...
>
> I'm getting a connection error right away
>
> DBI->connect(db2:host2) failed: Can't connect to MySQL server on
> 'host2(110)
>
> The first connection works fine, but the second one doesn't.
What happens if switch the order in which you make the connections?
Xho
--
-------------------- http://NewsReader.Com/ --------------------
Usenet Newsgroup Service
------------------------------
Date: Fri, 15 Nov 2002 23:18:29 GMT
From: "Gregory Toomey" <nobody@noplace.com>
Subject: Re: OS/390 perl 5.8.0 help?
Message-Id: <01c28cfe$ccfcda20$c1498a90@gmtoomey>
GoHabsGo <gohabsgoNOSPAM@mailandnews.com> wrote in article
<Xns92C79F7D1CC22gohabsgomailandnewsc@130.133.1.4>...
>
> Don't know where else to go for an aswer.
Ask IBM & pay $200 per hour.
gtoomey
------------------------------
Date: Sat, 16 Nov 2002 00:56:45 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: OS/390 perl 5.8.0 help?
Message-Id: <Pine.LNX.4.40.0211160054510.15842-100000@lxplus071.cern.ch>
On Nov 15, Randy inscribed on the eternal scroll:
[quotes the entire posting, in order to say:]
> RTFM
Please consider reading some relevant Usenet documentation relating to
followup style.
------------------------------
Date: Fri, 15 Nov 2002 19:16:18 -0600
From: Randy <nospam@rostie.net>
Subject: Re: OS/390 perl 5.8.0 help?
Message-Id: <9n6btu8nvg34d8koglaqs7qpg902pds5bn@4ax.com>
On 15 Nov 2002 20:41:12 GMT, GoHabsGo <gohabsgoNOSPAM@mailandnews.com>
wrote:
>Has anyone installed perl-5.8.0 on OS/390?
>Can anyone shed any light. Don't know where else to go for an aswer.
>Thanks,
>
>Larry
Read The [blank] Manual
http://www.perldoc.com/perl5.8.0/README.os390.html
Also the hints file for OS390 (VMS)
http://search.cpan.org/src/JHI/perl-5.8.0/hints/os390.sh
and
Mailing list for Perl on OS/390
If you are interested in the VM/ESA, z/OS (formerly known as OS/390)
and POSIX-BC (BS2000) ports of Perl then see the perl-mvs mailing
list. To subscribe, send an empty message to
perl-mvs-subscribe@perl.org.
See also:
http://lists.perl.org/showlist.cgi?name=perl-mvs
There are web archives of the mailing list at:
http://www.xray.mpe.mpg.de/mailing-lists/perl-mvs/
http://archive.develooper.com/perl-mvs@perl.org
------------------------------
Date: Sat, 16 Nov 2002 00:39:27 +0100
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: Reading an input file as scalar.
Message-Id: <Pine.LNX.4.40.0211160033200.15842-100000@lxplus071.cern.ch>
On Nov 15, John W. Krahn inscribed on the eternal scroll:
> Note that binmode() is required on some platforms.
As I understand it, current thinking is that if binmode() is the right
thing to do, then it should be coded irrespective of whether it makes
any difference on a particular platform - whereas of course if
text-type handling is intended then it should be omitted even on
platforms where it does no harm :-}
OK, I do know the difference between 'should' and 'required', but I
still thought it worth a mention - sorry.
(though I'm still trying to get my head around the character coding
options on newer versions of Perl, and understand which functions
apply to characters and which to bytes...)
cheers
------------------------------
Date: Fri, 15 Nov 2002 22:20:05 -0600
From: brian d foy <comdog@panix.com>
Subject: Re: Reading an input file as scalar.
Message-Id: <151120022220054827%comdog@panix.com>
In article <ar3bfu$f4psm$1@fu-berlin.de>, Tina Mueller <usenet@tinita.de> wrote:
> Brian McCauley <nobull@mail.com> wrote:
> > "robertbu" <robertbu@hotmail.com> writes:
> >> > $ui = `cat $file`;
> > I'm curious where whe OP found this. It's not the answer given to
> > this question in the FAQ: "How can I read in an entire file all at
> > once?"
> it is in version 5.6.1:
i've been removing code that uses the shell, but i didn't start doing that
until recently (post-5.6.1).
--
brian d foy <comdog@panix.com> - Perl services for hire
The Perl Review - a new magazine devoted to Perl
<http://www.theperlreview.com>
------------------------------
Date: Sat, 16 Nov 2002 02:51:33 -0000
From: Rocco Caputo <troc@netrus.net>
Subject: Re: Socket client/server example not working on Windows 2K
Message-Id: <slrnatbcke.8ma.troc@eyrie.homenet>
On 15 Nov 2002 04:19:57 -0800, John Ramsden wrote:
> Rocco Caputo <troc@netrus.net> wrote in message news:<slrnat4u4k.8ma.troc@eyrie.homenet>...
>> On 12 Nov 2002 11:23:27 -0800, John Ramsden wrote:
>> > I prepared a short pair of prototype socket client-server
>> > programs, planning to expand them into what is required
>> > for a project I am engaged on at work.
>> >
>> > On Unix (SunOS) everything works fine with one or more clients
>> > each with a TCP socket connection to the server at once, which
>> > is the intention.
>> >
>> > On Windows 2K (using ActiveState Perl v5.6.1 build 631,
>> > MSWin32-x86-multi-thread) the pair work fine with a single
>> > client; but if _two_ clients are started then the server
>> > displays all output from the first client immediately,
>> > but buffers all output for the second client (and only
>> > displays this when the first client disconnects).
>>
>> Unless this is an exercise to learn BSD sockets, consider using
>> IO::Socket::INET to build them rather than the low-level calls.
>
> Many thanks for your reply, Rocco. I only wish I could use IO::Socket.
> But the snag is the server will be receiving a constant stream of event
> messages from various clients and has to store these in a different
> MySQL database for each. So if everything had to run explicitly in
> one process, my server code would be constantly disconnecting from
> one database and connecting to another.
This doesn't follow, though. You can use IO::Socket::INET to replace
the low-level socket() calls you're currently using. That will
simplify your code and possibly flush out the fork() problem you're
having. At the very least, there will be less code for you to debug
and maintain, which will help you focus on the problem at hand: that
fork() may be misbehaving on MSWin32.
IO::Socket::INET does not preclude fork(). In fact, the two work fine
together.
> (Of course, if there is a nifty way of calling DBI::connect on more
> than one database, and switching quickly between them, then this
> would avoid the problem. Perhaps one can call DBI::connect on some
> database, and then just execute 'use <database>'; statements to
> switch databases thereafter. Anyway, I won't speculate further here,
> as SQL is off-topic for Perl.)
Generally speaking, one forks off a pool of DBI connections and passes
requests to idle ones. They perform the slow task of... well,
whatever you tell them to... off in other processes, so things run
concurrently and much faster.
The method works beautifully on Unix systems. Too bad this is fraught
with trouble on Windows, or it would be ideal.
>> What status messages does the server print when the second client
>> connects? Tracing through them might help determine the problem.
>
> I did manage to eliminate the output buffering problem on Windows
> by replacing every read() and write() socket call by sysread() and
> syswrite() resp.
>
> Works fine with one client, then two, then more. _But_ as soon as
> a client disconnects (even with the $SIG{CHLD} assignment commented
> out in the server code), the server bombs out with a message window
> comprising:
>
> perl.exe has generated errors and will be closed by Windows.
>
> An error log is being created
>
> which is a fat lot of use, as it doesn't give any the name or
> location of the error log (and I couldn't find any file called
> *.log or *.err anywhere in the Perl directory tree). Does anyone
> know where this error log goes?
>
> Anyway, I then upgraded from ActiveState perl v5.6.1 to v5.8.0
> (beta), hoping that all these problems would go away. But now
> things are much _worse_, as the server bombs out with the above
> message as soon as the first client tries to connect!
>
> Looks like the signal handling, newly introduced in 5.8.0 as the
> readme file says, has gone pear-shaped!
Well, it *is* a beta. You should see things working much nicer later
on when the bugs are worked out. Meanwhile, report the problem so the
ActiveState people know what to fix. Otherwise it may never get
resolved.
> I really wish the judge in the recent Microsoft anti-trust case
> had included in the settlement conditions a caveat that all Windows
> versions must incorporate a kosher, copy-on-write fork() call, to be
> made publicly available on free upgrade packs within, say, six months.
>
> If not then he/she missed a major trick, as the absence of a fork()
> causes huge problems for all kinds of Unix-to-Windows ports, not just
> Perl, and its continuing absence seems to me like a clear-cut example
> of Microsoft's obstructive tactics that the court case was all about.
Have you tried Perl 5.8's threads, though? Those should be about as
heavyweight (they use the same method that fork() emulation does), but
they may work better because they don't pretend they're something
they're not.
-- Rocco Caputo - troc@pobox.com - http://poe.perl.org/
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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.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.
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 V10 Issue 4127
***************************************
