RepoMirrors/ceph
1
0
Fork 0
mirror of https://github.com/ceph/ceph synced 2024-12-17 17:05:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@591 29311d96-e01e-0410-9327-a35deaab8ce9
This commit is contained in:
sage 2006-02-04 17:11:53 +00:00
parent edaf3cd9ee
commit 46eb777e39
1 changed files with 96 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

96
ceph/script/runset.pl Executable file
View File

@ -0,0 +1,96 @@
#!/usr/bin/perl
use strict;
use Data::Dumper;
=item sample input file
# hi there
{
'n' => 30,
'nummds' => 1,
'numosd' => 8,
'numclient' => 400,#[10, 50, 100, 200, 400],
'fs' => [ 'ebofs', 'fakestore' ],
'until' => 150,
'writefile' => 1,
'writefile_size' => [ 4096, 65526, 256000, 1024000, 2560000 ],
'writefile_mb' => 1000,
'start' => 30,
'end' => 120
};
=cut
my $in = shift || die;
my $out = shift || die;
die "$out exists" if -d $out;
my $raw = `cat $in`;
my $sim = eval $raw;
die "bash input" unless ref $sim;
sub iterate {
my $sim = shift @_;
my $fix = shift @_ || {};
my $vary;
my @r;
my $this;
for my $k (keys %$sim) {
if ($fix->{$k}) {
$this->{$k} = $fix->{$k};
}
elsif (!(ref $sim->{$k})) {
$this->{$k} = $sim->{$k};
}
else {
if (!(defined $vary)) {
$vary = $k;
}
}
}
if ($vary) {
for my $v (@{$sim->{$vary}}) {
$this->{$vary} = $v;
push(@r, &iterate($sim, $this));
}
} else {
push(@r, $this);
}
return @r;
}
sub run {
my $h = shift @_;
my $fn = join(",", map {"$_=$h->{$_}"} sort keys %$h);
$fn = $out . '/' . $fn if $out;
my $c = "mpiexec -l -n $h->{'n'} ./tcpsyn --mkfs --nummds $h->{'nummds'} --numclient $h->{'numclient'} --numosd $h->{'numosd'}";
$c .= " --$h->{'fs'}";
$c .= " --syn until $h->{'until'}" if $h->{'until'};
$c .= " --syn writefile $h->{'writefile_mb'} $h->{'writefile_size'}" if $h->{'writefile'};
$c .= " --log $fn";
print "-> $c\n";
#system "$c > o";
}
my @r = &iterate($sim);
my $n = scalar(@r);
my $c = 1;
for my $h (@r) {
print "$c/$n: ";
&run($h);
$c++;
}