Server Load Testing

[arunprakash647]

hi,
i need to write a perl client script to create 5000 socket connections at the same time.

use IO::Socket;
use diagnostics;
use POSIX qw(strftime); 
my $i;
my $connections = 5000;

foreach my $i (1...$connections)
	{
		repeat();
	}
	
sub repeat
{
	my $remote_host = "192.168.1.57";
	my $remote_port = "1201";
	my $count=0;
	my $handle= IO::Socket::INET->new(   PeerAddr   =>   $remote_host, 
									   PeerPort   =>   $remote_port, 
									   Proto      =>   "tcp",
										Type       =>   SOCK_STREAM
								   ) 
	|| die "Couldn't connect to $remote_host:$remote_port: \n"; 
	
	print STDERR "[Connected to $remote_host:$remote_port]\n";


		DATA: {while(<$handle=1>)
				{
					for($count=0;$count<5;$count++)
					{
						my $send_data = strftime("::DATA::3847,%d.%m.%Y,%H:%M:%S,13.0149405,77.7736041,0,933.4,04A8,31,0 \n", gmtime);
						$handle-> send($send_data);
						$count=0;
						sleep(5);
					}
				}
				redo DATA;
		}
}

the above script creates only one socket connection at a time........
what should be changed to create 5000 socket connections at the same time.

[chaarmann]

Create 5000 pearl threads.
see:

http://www.xav.com/perl/lib/Pod/perlthrtut.html

each of these threads can start a single time your "sub repeat" function to create a socket connection. But because the thread creation itself also takes time, I would create all 5000 threads first and let them all sleep before they process this function until a special time is reached. For example if you start creating your threads at 10:00 o'clock and you know that the last thread will be created and up and running before maximum 10:03, then I would program all the threads to sleep and wake up at exactly 10:03 and execute your socket-creation function.