1
0
mirror of https://github.com/ceph/ceph synced 2024-12-18 17:37:38 +00:00

*** empty log message ***

git-svn-id: https://ceph.svn.sf.net/svnroot/ceph@372 29311d96-e01e-0410-9327-a35deaab8ce9
This commit is contained in:
sage 2005-07-01 15:27:25 +00:00
parent 71d798bf50
commit 0fdf74c1ac

View File

@ -1,7 +1,8 @@
#!/usr/bin/perl
use strict;
my $starttime = 1;
my $enddtime = -1;
my $endtime = -1;
my $avgrows = 0;
@ -14,7 +15,7 @@ while ($ARGV[0] =~ /^-/) {
$starttime = shift @ARGV;
}
elsif ($_ eq '-end') {
$endttime = shift @ARGV;
$endtime = shift @ARGV;
}
else {
die "i don't understand arg $_";
@ -51,6 +52,8 @@ for (@data) {
}
next unless int $r;
next if $r < $starttime;
next if $endtime > 0 && $r > $endtime;
$tcount{$r}++;
#print "$r: @r\n";