git.rot13.org Git - influxdb-pipes/blob - ifstat.pl

   1 #!/usr/bin/perl
   2 use warnings;
   3 use strict;
   4 use autodie;
   5 use Data::Dump;
   6 sub XXX { warn "### ",Data::Dump::dump(@_) };
   7
   8 open(my $ifstat, '-|',
   9 qq{ifstat -s 'infosl_com_koo7Kaph@#10.20.0.2' -t -b -a -n -A 1 1});
  10
  11 while(<$ifstat>) {
  12         chomp;
  13         warn "# [$_]\n";
  14         s/^\s+//;
  15         my @v = split(/\s+/);
  16         XXX(@v);
  17
  18 }
  19
  20