fill-in-smr.pl

#!/usr/bin/env perl
use strict;

my %mapping;
while(<STDIN>)
{
  print;
  chomp;
  my($tsaid, @vals) = split(/,/);
  $mapping{ $tsaid } = 1;
}

for my $i(1..209675)
{
  my $id = $i;
  $id = "0" . $id while(length($id) < 6);
  my $label = "PdomTSAr1.1-$id";
  print("$label,0,0,0,0,0,0,0,0,0,0,0,0\n") unless($mapping{$label});
}