]>
git.proxmox.com Git - pve-manager.git/blob - bin/pveperf
6 use Time
::HiRes
qw( usleep ualarm gettimeofday tv_interval );
7 use Net
::DNS
::Resolver
;
10 print STDERR
"usage: $0 [PATH]\n";
14 my $path = $ARGV[0] || '/';
18 # free pagecache,dentries,inode cache
19 if (-f
'/proc/sys/vm/drop_caches') {
20 system ("echo 3 > /proc/sys/vm/drop_caches");
27 open (TMP
, "/proc/cpuinfo");
29 while (my $line = <TMP
>) {
30 if ($line =~ m/^bogomips\s*:\s*(\d+\.\d+)\s*$/) {
37 printf "CPU BOGOMIPS: %.2f\n", $bogomips;
42 my $starttime = [gettimeofday
];
49 my $str = int(rand(1000000)) . time();
50 if ($str =~ m/(.+)123.?123/) {
52 $elapsed = tv_interval
($starttime);
57 printf "REGEX/SECOND: %d\n", $count;
65 my $dir = "$basedir/ptest.$$";
71 my $data = ('A' x
4000) . "\n";
73 my $starttime = [gettimeofday
];
78 for ($count=1;;$count++) {
81 my $filename = "$dir/tf_$m.dat";
83 open (TMP
, ">$filename") || die "open failed";
87 File
::Sync
::fsync
(\
*TMP
);
91 $elapsed = tv_interval
($starttime);
95 my $sps = $count /$elapsed; # fsync per second
97 printf "FSYNCS/SECOND: %.2f\n", $sps;
102 system ("rm -rf $dir");
108 my ($rootdev, $hdsize) = @_;
112 open (ROOTHD
, "<$rootdev") || die "unable to open HD";
114 my $starttime = [gettimeofday
];
119 for ($count=1;;$count++) {
121 my $pos = int (rand (int($hdsize/512))) * 512;
123 sysseek (ROOTHD
, $pos, 0);
125 (sysread (ROOTHD
, $readbuf, 512) == 512) || die "read failed";
127 $elapsed = tv_interval
($starttime);
129 last if $elapsed > 3;
134 my $rps = $count /$elapsed; # blocks per second
135 my $ast = (1000/$rps);
136 printf "AVERAGE SEEK TIME: %.2f ms\n", $ast;
144 my $starttime = [gettimeofday
];
150 open (ROOTHD
, "<$rootdev") || die "unable to open HD";
155 my $c = sysread (ROOTHD
, $readbuf, 2 * 1024 *1024);
156 die "read failed" if $c < 0;
160 $elapsed = tv_interval
($starttime);
162 last if $elapsed > 3;
167 my $bps = $bytes /($elapsed * 1024 * 1024); # MB per second
168 printf "BUFFERED READS: %.2f MB/sec\n", $bps;
172 my ($resolv, $dns) = @_;
174 if (my $a = $resolv->send ($dns, 'A')) {
175 foreach my $rra ($a->answer) {
176 if ($rra->type eq 'A') {
177 return $rra->address;
197 #$dnsargs{nameservers} = [ qw (208.67.222.222) ];
198 #$dnsargs{nameservers} = [ qw (127.0.0.1) ];
200 my $resolv = Net
::DNS
::Resolver-
>new (%dnsargs);
202 my $starttime = [gettimeofday
];
207 my $uid = time() . int(rand(1000000));
208 my $domain = "nonexistent$uid.com";
210 for ($count=1;;$count++) {
212 my $hid = int(rand(1000000));
213 my $hname = "test${hid}.$domain";
214 get_address
($resolv, $hname);
215 $elapsed = tv_interval
($starttime);
217 last if ($count > 100) || ($elapsed > 3);
220 printf "DNS EXT: %0.2f ms\n", ($elapsed * 1000)/$count;
222 my $resolv_conf = `cat /etc/resolv.conf`;
223 ($domain) = $resolv_conf =~ m/^search\s+(\S+)\s*$/mg;
226 $starttime = [gettimeofday
];
229 for ($count=1;;$count++) {
231 my $hid = int(rand(1000000));
232 my $hname = "test${hid}.$domain";
233 get_address
($resolv, $hname);
234 $elapsed = tv_interval
($starttime);
236 last if ($count > 100) || ($elapsed > 3);
239 printf "DNS INT: %0.2f ms (%s)\n",
240 ($elapsed * 1000)/ $count, $domain;
247 my $hd = `df -P '$path'`;
249 my ($rootdev, $hdo_total, $hdo_used, $hdo_avail) = $hd =~
250 m/^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\s+\S+\s+.*$/mg;
253 my $hdsize = $hdo_total*1024;
254 printf "HD SIZE: %.2f GB ($rootdev)\n", ($hdsize / (1024*1024*1024));
256 if ($rootdev =~ m
|^/dev/|) {
257 test_read
($rootdev);
259 test_seektime
($rootdev, $hdsize);
264 test_fsync
($path) if $hdo_avail;