RRD::Editor

RRD ファイルの構造を変更するときに CPAN の RRD::Editor は何かと便利です。

例 DS の type を COUNTER から DERIVE に変更する。

use File::Find;
use RRD::Editor;

$SIG{__DIE__} = sub {
    print $File::Find::name, "\n";
};

$| = 1;

$top_dir = "/path/to/rrd/.";

sub process {
    return unless (/\.rrd$/);
    return unless (-f $File::Find::name);

    print $File::Find::name, " ... ";
    my ($min_pdp, $max_pdp);
    my $rrd = RRD::Editor->new();
    $rrd->open($File::Find::name);
    foreach $name ($rrd->DS_names()) {
        if ($rrd->DS_type($name) eq "COUNTER") {
            $rrd->set_DS_type($name, "DERIVE");
        }
    }
    $rrd->save();
    $rrd->close();
};

find(\&process, $top_dir);

例 RRA のレコード数を変更する。

use File::Find;
use RRD::Editor;

$SIG{__DIE__} = sub {
    print $File::Find::name, "\n";
};

$| = 1;

$top_dir = "/path/to/rrd/.";

sub process {
    return unless (/\.rrd$/);
    return unless (-f $File::Find::name);

    print $File::Find::name, " ... ";
    my ($min_pdp, $max_pdp);
    my $rrd = RRD::Editor->new();
    $rrd->open($File::Find::name);
    for ($i=0; $i < $rrd->{rrd}->{rra_cnt}; $i++) {
        if ($rrd->{rrd}->{rra}[$i]->{pdp_cnt} == 1) {
            if ($rrd->{rrd}->{rra}[$i]->{row_cnt} < 18432) {
                $rrd->resize_RRA($i, 18432);
            }
        }
        if ($rrd->{rrd}->{rra}[$i]->{pdp_cnt} == 6) {
            if ($rrd->{rrd}->{rra}[$i]->{row_cnt} < 3072) {
                $rrd->resize_RRA($i, 3072);
            }
        }
        if ($rrd->{rrd}->{rra}[$i]->{pdp_cnt} == 24) {
            if ($rrd->{rrd}->{rra}[$i]->{row_cnt} < 768) {
                $rrd->resize_RRA($i, 768);
            }
        }
        if ($rrd->{rrd}->{rra}[$i]->{pdp_cnt} == 288) {
            if ($rrd->{rrd}->{rra}[$i]->{row_cnt} < 797) {
                $rrd->resize_RRA($i, 797);
            }
        }
    }
    $rrd->save();
    $rrd->close();
};
find(\&process, $top_dir);