add import seq component md table; download the table

[dbsnp.git] / utils / import_seq_component_md.pl

diff --git a/utils/import_seq_component_md.pl b/utils/import_seq_component_md.pl
new file mode 100755 (executable)
index 0000000..c935a75
--- /dev/null
+++ b/utils/import_seq_component_md.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use warnings;
+use strict;
+
+while (<>) {
+    next if /^#/;
+    chomp;
+    my @row = split /\t/;
+    pop @row;
+    pop @row;
+    $row[6] =~ s/na/NULL/;
+    print join("\t",@row)."\n";
+}