parse_output.pl

来自「ns 2.28 下 SPAN节能协议源码」· PL 代码 · 共 31 行

#!/usr/bin/perl

$parser = "./parse_dump.pl";
my $fn = $ARGV[0];
shift @ARGV;

if ($fn eq "") { die "must specify a file name\n"; }

while (<>) {
  if ($_ =~ /^StartOfDump/) { last; }
}

my $iter = 0;
open(F0, ">$fn.$iter.dump") || die "$fn.$iter.dump: $!";

while (<>) {
  if ($_ =~ /^StartOfDump/) { 
    close F0;
    system("$parser $fn.$iter < $fn.$iter.dump");
    $iter++;
    open(F0, ">$fn.$iter.dump") || die "$fn.$iter.dump: $!";
  }
  else {
    print F0 "$_";
  }
}

close F0;
system("$parser $fn.$iter < $fn.$iter.dump");