From 1e61428737a3f953af8b271a369f33df8e218238 Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Sun, 11 Dec 2016 12:50:27 +0100 Subject: [PATCH] read ifstat from pipe --- ifstat.pl | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100755 ifstat.pl diff --git a/ifstat.pl b/ifstat.pl new file mode 100755 index 0000000..4b213f9 --- /dev/null +++ b/ifstat.pl @@ -0,0 +1,20 @@ +#!/usr/bin/perl +use warnings; +use strict; +use autodie; +use Data::Dump; +sub XXX { warn "### ",Data::Dump::dump(@_) }; + +open(my $ifstat, '-|', +qq{ifstat -s 'infosl_com_koo7Kaph@#10.20.0.2' -t -b -a -n -A 1 1}); + +while(<$ifstat>) { + chomp; + warn "# [$_]\n"; + s/^\s+//; + my @v = split(/\s+/); + XXX(@v); + +} + + -- 2.20.1