RRDTools RRDs::xport模块的工作示例

use RRDs;
use strict;

my $rrd_file = "/path/to/rrd/database.rrd";
my $output_file = "/path/to/output.xml";
my $start_time = time() - 3600;  # 1 hour ago
my $end_time = time();  # current time

# 定义导出的数据源和数据点
my $data_source = "data_source_name";
my $data_point = "data_point_name";

# 设置导出参数
my @args = (
    $rrd_file,
    "xport",
    "--start", $start_time,
    "--end", $end_time,
    "DEF:$data_source=$rrd_file:$data_source:AVERAGE",
    "XPORT:$data_source:$data_point"
);

# 执行导出操作
my ($status, $stdout, $stderr) = RRDs::xport(@args);

if ($status) {
    die "RRDs::xport error: $stderr";
} else {
    # 将导出结果写入文件
    open(my $fh, '>', $output_file) or die "Cannot open file $output_file: $!";
    print $fh $stdout;
    close($fh);
    print "Data exported successfully to $output_file\n";
}