[24489] in Perl-Users-Digest
Perl-Users Digest, Issue: 6669 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Jun 9 03:05:58 2004
Date: Wed, 9 Jun 2004 00:05:03 -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 Wed, 9 Jun 2004 Volume: 10 Number: 6669
Today's topics:
Help me with threads issue ! (Charlie)
Re: Newbie <bernard.el-haginDODGE_THIS@lido-tech.net>
Re: Text GUI with Perl (Thorsten Gottschalk)
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 8 Jun 2004 23:41:11 -0700
From: cji_work@yahoo.com (Charlie)
Subject: Help me with threads issue !
Message-Id: <1dc70d61.0406082241.90150da@posting.google.com>
Hi Folks,
I need some help from you about the thread issue I have.
What I want to do is to simulate multi users to access one web server.
I want to simulate as many as 200 users to assess that web server to
check the performance from both the web server and the backend DB.
The ways that I emploment it are: 1). to have the apache(version
1.3.31) installed on the Linux platform. 2) I am using the perl
5.8.4, along with some perl modules, such as Mechanize, threads to
create the test scripts. And I put the test scripts under the dir of
(Apache)/cgi-bin/.
In that way, I can enter the user number from the browser from
anywhere and can do the rest of work by just clicking one button.
Following is part of my main function:
"package LoadTest;
...
use threads;
use threads::shared;
my ($Input_value, %Inputs, $total);
my $CGIobj = new CGI;
%Inputs = $CGIobj->Vars;
my @threads;
for ( 1..$Inputs{UserNumber} ) {
my $thread;
$thread = new threads(\&Case1, \%Inputs);
push(@threads, $thread);
}
$_-> join foreach(@threads);
}
sub Case1 {
....
}
"
As you can see, I am trying to create a certain amount of
threads(users) to invoke the same function,"Case1".
During the runtime, that program runs perfectly fine if there are 20
users, but when I give more users, such as 50, or even 100, something
is going wrong.
For example, once I submit 100 users, on that linux platform, I can
see the amount threads keeps growing untill it reaches that number.
Then before the sub-function calls are finished, all the threads are
exit at once, without any indications, as if they are being killed
Can someone tell me what might be the problem, all maybe you can give
me a better way to work around this. I need to do the simulations of
as many as 200 users.
Thanks a lot for the help !!!
CJ
------------------------------
Date: Wed, 9 Jun 2004 08:12:58 +0200
From: "Bernard El-Hagin" <bernard.el-haginDODGE_THIS@lido-tech.net>
Subject: Re: Newbie
Message-Id: <Xns950353DA99F37elhber1lidotechnet@62.89.127.66>
Tad McClellan <tadmc@augustmail.com> wrote:
> Bernard El-Hagin <bernard.el-haginDODGE_THIS@lido-tech.net> wrote:
>> serverin2000@yahoo.com (Sree) wrote:
>>
>
>>> If you can
>>> tell me how strong this language is, it would be appreciated.
>>
>>
>> It can lift a two ton truck with its bare hands.
>
>
> You can smell it from 10km away.
I was going for subtle, Tad. ;-)
--
Cheers,
Bernard
------------------------------
Date: 9 Jun 2004 00:01:53 -0700
From: iqrity@web.de (Thorsten Gottschalk)
Subject: Re: Text GUI with Perl
Message-Id: <beb38f7.0406082301.69f3fa41@posting.google.com>
Thanks Kevin, this is also my question?
I know TK. But so far I understand TK, this is a full window widget
with support of graphic and mouse.
And this is NOT what I need.
I only need a rudimentary text menu or grafik, because the script will be
executed over serial terminal or ssh/telnet. So no X windows support.
Please give me any help.
Thanks
Bye
Thorsten
iqrity@web.de (Thorsten Gottschalk) wrote in message news:<beb38f7.0406080559.31f4c402@posting.google.com>...
> Hi all,
>
> I search a module for doing easy text dialogs with perl.
> I tried to find something in CPAN, but I only find curses or something similar.
> But curses is to complex for that I want to do.
> I only need very basic dialoges like that tool dialog under Linux can provide.
> Is there an interface or module for that?
>
> Remeber I need no colors, no mouse, only text.
>
> Thanks.
>
> Bye
> Thorsten
------------------------------
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.
NOTE: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 6669
***************************************
