utils/import_seq_component_md.pl

   1 #!/usr/bin/perl
   2
   3 use warnings;
   4 use strict;
   5
   6 while (<>) {
   7     next if /^#/;
   8     chomp;
   9     my @row = split /\t/;
  10     pop @row;
  11     pop @row;
  12     $row[6] =~ s/na/NULL/;
  13     print join("\t",@row)."\n";
  14 }