Pages

Estimate Linux machine performance with pveperf (proxmox script)


# ./pverperf
CPU BOGOMIPS:      16799.96
REGEX/SECOND:      1686925
HD SIZE:           35.45 GB (/dev/mapper/centos-root)
BUFFERED READS:    728.94 MB/sec
AVERAGE SEEK TIME: 0.65 ms

# cat ./pverperf

#!/usr/bin/perl

use strict;

use warnings;

#use File::Sync;

use Time::HiRes qw( usleep ualarm gettimeofday tv_interval );

#use Net::DNS::Resolver;

if ($#ARGV >= 1) {

    print STDERR "usage: $0 [PATH]\n";

    exit -1;

}

my $path = $ARGV[0] || '/';

sub drop_cache {

    # free pagecache,dentries,inode cache

    if (-f '/proc/sys/vm/drop_caches') {

        system ("echo 3 > /proc/sys/vm/drop_caches");

    }

}

sub test_bogomips {

    my $bogomips = 0;

    open (TMP, "/proc/cpuinfo");

    while (my $line = <TMP>) {

        if ($line =~ m/^bogomips\s*:\s*(\d+\.\d+)\s*$/) {

            $bogomips += $1;

        }

    }

    close (TMP);

    printf "CPU BOGOMIPS:      %.2f\n", $bogomips;

}

sub test_regex {

    my $starttime = [gettimeofday];

    my $count = 0;

    my $elapsed = 0;

    for (;; $count++) {

        my $str = int(rand(1000000)) . time();

        if ($str =~ m/(.+)123.?123/) {

        }

        $elapsed = tv_interval ($starttime);

        last if $elapsed > 3;

    }

    printf "REGEX/SECOND:      %d\n", $count;

}

sub test_fsync {

    my $basedir = shift;

    drop_cache ();

    my $dir = "$basedir/ptest.$$";

    eval {

        mkdir $dir;

        my $data = ('A' x 4000) . "\n";

        my $starttime = [gettimeofday];

        my $count;

        my $elapsed = 0;

        for ($count=1;;$count++) {

            my $m = $count % 300;

            my $filename = "$dir/tf_$m.dat";

            open (TMP, ">$filename") || die "open failed";

 

            print TMP $data;

            File::Sync::fsync (\*TMP);

            close (TMP);

            $elapsed = tv_interval ($starttime);

            last if $elapsed > 3;

        }

        my $sps = $count /$elapsed; # fsync per second

        printf "FSYNCS/SECOND:     %.2f\n", $sps;

    };

    my $err = $@;

    system ("rm -rf $dir");

    die $err if $err;

}

sub test_seektime {

    my ($rootdev, $hdsize) = @_;

    drop_cache ();

    open (ROOTHD, "<$rootdev") || die "unable to open HD";

    my $starttime = [gettimeofday];

    my $count;

    my $elapsed = 0;

    my $readbuf;

    for ($count=1;;$count++) {

        my $pos = int (rand (int($hdsize/512))) * 512;

        sysseek (ROOTHD, $pos, 0);

        (sysread (ROOTHD, $readbuf, 512) == 512) || die "read failed";

        $elapsed = tv_interval ($starttime);

        last if $elapsed > 3;

    }

    close (ROOTHD);

    my $rps = $count /$elapsed; # blocks per second

    my $ast = (1000/$rps);

    printf "AVERAGE SEEK TIME: %.2f ms\n", $ast;

}

sub test_read {

    my $rootdev = shift;

    drop_cache ();

    my $starttime = [gettimeofday];

    my $bytes = 0;

    my $elapsed = 0;

    my $readbuf;


    open (ROOTHD, "<$rootdev") || die "unable to open HD";

 

    for (;;) {

        my $c = sysread (ROOTHD, $readbuf, 2 * 1024 *1024);

        die "read failed" if $c < 0;

        $bytes += $c;

        $elapsed = tv_interval ($starttime);

        last if $elapsed > 3;

    }

    close (ROOTHD);

    my $bps = $bytes /($elapsed * 1024 * 1024); # MB per second

    printf "BUFFERED READS:    %.2f MB/sec\n", $bps;

}

sub get_address {

    my ($resolv, $dns) = @_;

    if (my $a = $resolv->send ($dns, 'A')) {

        foreach my $rra ($a->answer) {

            if ($rra->type eq 'A') {

                return $rra->address;

            }

        }

    }

    return undef;

}

sub test_dns {

    my %dnsargs = (

                   tcp_timeout => 10,

                   udp_timeout => 10,

                   retry => 1,

                   retrans => 0,

                   dnsrch => 0,

                   defnames => 0,

                   debug => 0,

                   );

    #$dnsargs{nameservers} = [ qw (208.67.222.222) ];

    #$dnsargs{nameservers} = [ qw (127.0.0.1) ];

    my $resolv = Net::DNS::Resolver->new (%dnsargs);

    my $starttime = [gettimeofday];

    my $count;

    my $elapsed = 0;

    my $uid = time() . int(rand(1000000));

    my $domain = "nonexistent$uid.com";

    for ($count=1;;$count++) {

        my $hid = int(rand(1000000));

        my $hname = "test${hid}.$domain";

        get_address ($resolv, $hname);

        $elapsed = tv_interval ($starttime);

        last if ($count > 100) || ($elapsed > 3);

    }

    printf "DNS EXT:           %0.2f ms\n", ($elapsed * 1000)/$count;

    my $resolv_conf = `cat /etc/resolv.conf`;

    ($domain) = $resolv_conf =~ m/^search\s+(\S+)\s*$/mg;

    if ($domain) {

        $starttime = [gettimeofday];

        $elapsed = 0;

        for ($count=1;;$count++) {

            my $hid = int(rand(1000000));

            my $hname = "test${hid}.$domain";

            get_address ($resolv, $hname);

            $elapsed = tv_interval ($starttime);

            last if ($count > 100) || ($elapsed > 3);

        }

        printf "DNS INT:           %0.2f ms (%s)\n", 

        ($elapsed * 1000)/ $count, $domain;

    }

}

test_bogomips ();

test_regex ();

my $hd = `df -P '$path'`;

my ($rootdev, $hdo_total, $hdo_used, $hdo_avail) = $hd =~

    m/^(\S+)\s+(\d+)\s+(\d+)\s+(\d+)\s+\S+\s+.*$/mg;

if ($rootdev) {

    my $hdsize = $hdo_total*1024;

    printf "HD SIZE:           %.2f GB ($rootdev)\n", ($hdsize / (1024*1024*1024));

    if ($rootdev =~ m|^/dev/|) {

        test_read ($rootdev);

        test_seektime ($rootdev, $hdsize);

    }

}

test_fsync ($path) if $hdo_avail;

test_dns ();

exit (0);