utils/parallel/get_SN.pl

   1 #!/usr/local/bin/perl
   2 #############################################################################
   3
   4 #do get_SN($ARGV[0]);
   5
   6 #exit 1;
   7
   8 # ---------------------------------------------------------------------------
   9
  10 sub get_SN {
  11     local ($file) = @_;
  12     local ($id,$idx,$sn);
  13
  14     open (FILE,$file) || die "get_SN: Can't open file $file\n";
  15
  16     $line_no=0;
  17     while (<FILE>) {
  18         next unless /END/;
  19         # PE  0 [3326775]: END 0, SN 0, ST 0, EXP F, BB 194, HA 1464, RT 983079, BT 1449032 (7), FT 0 (0), LS 0, GS 27, MY T
  20
  21         if (/^PE\s*(\d+) \[(\d+)\]: END ([0-9a-fx]+), SN (\d+)/) {
  22             $line_no++;
  23             $idx = $3;
  24             $id = hex($idx);
  25             $sn = $4;
  26             #print STDERR "Id: $id ($idx) --> $sn\n";
  27             $id2sn{$id} = $sn;
  28         }
  29     }
  30
  31     # print STDERR "get_SN: $line_no lines processed\n";
  32     close (FILE);
  33
  34     # print STDERR "Summary: " . "="x15 . "\n";
  35     # foreach $key (keys %id2sn) {
  36     #   print STDERR ">  $key --> $id2sn{$key}\n";
  37     #}
  38 }
  39
  40 1;