process-log.pl

来自「The Staged Event-Driven Architecture (SE」· PL 代码 · 共 10 行

#!/usr/bin/perl

while (<>) {
  if (/\d+\s+(\S+) megabits/) {
    $rate = $1;
    print "$rate\n";
  }
}