Mercurial > repos > mcharles > rapsosnp

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author mcharles
date Mon, 19 Jan 2015 04:33:21 -0500
parents
children 56d328bce3a7
comparison
equal deleted inserted replaced
9:0e7c6fe60646 10:0a6c1cfe4dc8
1 #!/usr/bin/perl
2 #V1.0.0
3 use strict;
4 use warnings;
5 use Getopt::Long;
6
7
8 my $input_matrix_files;
9 GetOptions (
10 "input_matrix_files=s" => \$input_matrix_files
11 ) or die("Error in command line arguments\n");
12
13 my @files = split(/,/,$input_matrix_files);
14 for (my $i=0;$i<=$#files;$i++){
15 print $files[$i],"\n";
16 }
17