From de51915ddc95c811d049d0bffd061d5a58da5c62 Mon Sep 17 00:00:00 2001
From: Reuben Pengelly <r.j.pengelly@soton.ac.uk>
Date: Thu, 4 Feb 2021 15:10:14 +0000
Subject: [PATCH] Update to V2
---
ACCESSORY_SCRIPTS/ldmap_to_csv.pl | 16 ++++++++++++++++
1 file changed, 16 insertions(+)
create mode 100644 ACCESSORY_SCRIPTS/ldmap_to_csv.pl
diff --git a/ACCESSORY_SCRIPTS/ldmap_to_csv.pl b/ACCESSORY_SCRIPTS/ldmap_to_csv.pl
new file mode 100644
index 0000000..ab7914d
--- /dev/null
+++ b/ACCESSORY_SCRIPTS/ldmap_to_csv.pl
@@ -0,0 +1,16 @@
+use warnings; use strict;
+
+## Script to convert LDmap output to CSV
+## RJPengelly, 2014, r.j.pengelly@soton.ac.uk
+
+open FILE, $ARGV[0];
+open OUT, ">$ARGV[0]" . '.csv';
+
+print OUT 'N,Locus,KBmap,LDUmap';
+while (<FILE>) {
+ if ($_ =~ /#/) {next;}
+ $_ =~ s/^\s+//;
+ $_ =~ s/\s+$//;
+ $_ =~ s/\s+/\,/g;
+ print OUT "$_\n";
+}
--
GitLab