68 lines
1.5 KiB
Raku
68 lines
1.5 KiB
Raku
|
|
|
|
my $client;
|
|
my $thread_count;
|
|
my $job_count;
|
|
my $urlfile;
|
|
my $server;
|
|
my $pool_size;
|
|
|
|
&varyURLFile();
|
|
|
|
#&thousandFiles();
|
|
|
|
sub thousandFiles() {
|
|
|
|
&initClient();
|
|
my $string = "$client job-count=3000 thread-count=32 < urlfile6";
|
|
system($string);
|
|
}
|
|
|
|
sub initClient() {
|
|
$client = "bin/client";
|
|
$thread_count = 2;
|
|
$job_count = $thread_count * 100;
|
|
$urlfile = "urlfile";
|
|
}
|
|
|
|
sub varyThreadCountClient() {
|
|
my $file = pop(@_);
|
|
my $i;
|
|
my $string = "echo 'Something bad happened if you see this.";
|
|
|
|
&initClient();
|
|
|
|
for ($i = 0; $i < 5; $i++) {
|
|
$thread_count = $thread_count * 2;
|
|
$job_count = $thread_count * 10;
|
|
$string = "$client job-count=$job_count thread-count=$thread_count < $file";
|
|
|
|
system($string);
|
|
print "-----------------------------------------------------------------\n";
|
|
}
|
|
system("$client job-count=1280 thread-count=128 < $file");
|
|
print "-----------------------------------------------------------------\n";
|
|
}
|
|
|
|
sub varyURLFile() {
|
|
my $j = 0;
|
|
|
|
&initClient();
|
|
for ($j = 1; $j < 6; $j++) {
|
|
&varyThreadCountClient("$urlfile$j");
|
|
}
|
|
}
|
|
|
|
sub initServer() {
|
|
$server = "bin/server";
|
|
$pool_size = 2;
|
|
}
|
|
|
|
sub varyThreadCountServer() {
|
|
&initServer();
|
|
|
|
$thread_count = $thread_count * 2;
|
|
$job_count = $thread_count * 100;
|
|
open(SERVER, "| $server home=home pool-size=$pool_size") or die "Could not open server! $!";
|
|
}
|