alive.pl

ns 2.28 下 SPAN节能协议源码

#!/usr/bin/perl

my $maxnn = 2000;
my $nodes;

my @done;

for (my $i=1; $i<=$maxnn; $i++) {
 $done[$i] = 0;
}

while (<>) {
  if ($_ =~ /M 0.0 nn (\d+) x/) {
    $nodes = $1;
  }
  if ($_ =~ /N ([\d.]+) _(\d+)_ energy 0.000/) {
    if ($done[$2] == 0) {
      $now = int($1);
      $prev = $now - 1;
      $nodes--;
      print "$now $nodes\n";
      $done[$2] = 1;
    }
  }
}