diff rapsodyn/CreateMatrixMultiple.pl @ 10:0a6c1cfe4dc8 draft

Uploaded
author mcharles
date Mon, 19 Jan 2015 04:33:21 -0500
parents
children 56d328bce3a7
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/rapsodyn/CreateMatrixMultiple.pl	Mon Jan 19 04:33:21 2015 -0500
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+#V1.0.0
+use strict;
+use warnings;
+use Getopt::Long;
+
+
+my $input_matrix_files;
+GetOptions (
+"input_matrix_files=s" => \$input_matrix_files
+) or die("Error in command line arguments\n");
+
+my @files = split(/,/,$input_matrix_files);
+for (my $i=0;$i<=$#files;$i++){
+	print $files[$i],"\n";
+}
+