📄 rrdfetchnames.pl
字号:
#!/usr/bin/perluse strict;#makes things work when run without installuse lib qw( ../../perl-shared/blib/lib ../../perl-shared/blib/arch );#makes programm work AFTER installuse lib qw( /usr/local/rrdtool-1.0.50/lib/perl ../lib/perl );use vars qw(@ISA $loaded);use RRDs;my $NAME = $ARGV[ 0];my $SEPARATOR = " ";my $CF = "AVERAGE";my ($start,$step,$names,$data) = RRDs::fetch "$NAME", "$CF", "--start", "now","--end","start+1";if ( my $ERR = RRDs::error){ die "ERROR while fetching data from $NAME $ERR\n";}print join( $SEPARATOR, @$names), "\n";sub usage{ print "usage: rrdfetchnames filename";};
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -