From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 14 Dec 2011 00:05:21 +0000 (-0800)
Subject: add import seq component md table; download the table
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dacffb352240045901dd70e971dd37331b184f5c;p=dbsnp.git

add import seq component md table; download the table
---

diff --git a/utils/import_seq_component_md.pl b/utils/import_seq_component_md.pl
new file mode 100755
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";
+}