40 lines
891 B
Perl
Executable File
40 lines
891 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use IO::Socket::INET;
|
|
use Time::HiRes qw( usleep );
|
|
|
|
# auto-flush on socket
|
|
$| = 1;
|
|
|
|
# create a connecting socket
|
|
my $socket = new IO::Socket::INET (
|
|
PeerHost => 'dagobert.agadmin.de',
|
|
PeerPort => '7777',
|
|
Proto => 'tcp',
|
|
);
|
|
die "cannot connect to the server $!\n" unless $socket;
|
|
print "connected to the server\n";
|
|
|
|
for ($i=0; $i<=1000000; $i++) {
|
|
# data to send to a server
|
|
my $req = "hallohallohallo";
|
|
my $size = $socket->send($req);
|
|
#print "sent data of length $size\n";
|
|
|
|
# notify server that request has been sent
|
|
#shutdown($socket, 1);
|
|
|
|
# receive a response of up to 1024 characters from server
|
|
my $response = "";
|
|
$socket->recv($response, 1024);
|
|
chomp $response;
|
|
#print "received response: $response\n";
|
|
# 1000*1000 = 1s
|
|
# 1000 = 1ms
|
|
usleep (10);
|
|
}
|
|
my $req = "quit";
|
|
my $size = $socket->send($req);
|
|
|
|
$socket->close();
|