Viacom mtv_scripts admin nfs-snmp.pl

#!/usr/bin/perl

# nfsstat -nc

$nfsargs = shift (@ARGV);

$cmd_line = "/usr/bin/nfsstat $nfsargs";

$i = 0;

@frank = `$cmd_line`;

while ($i <= $#frank) {
	if (($frank[$i] =~ (/^Connection/)) || ($frank[$i] =~ (/^Client/)) || ($frank[$i] =~ (/^Version/)) || ($frank[$i] =~ (/^$/))) {
	  $i++;
	  next;
	}
	@bob = split /\s+/, $frank[$i];
	@jane = split /\s+/, $frank[++$i];
	$xy = 0;
	$yz = 0;
	while ($xy <= $#bob) {
	  if ($jane[$yz] =~ /%/) {
	    $yz++;
	  }
	  print "$bob[$xy]\n";
	  print "$jane[$yz]\n";
	  $xy++;
	  $yz++;
	}
	$i++;
}