annotate rapsodyn/CreateMatrixMultiple.pl @ 13:827da1a9a326 draft

Uploaded
author mcharles
date Mon, 19 Jan 2015 10:38:29 -0500
parents 0a6c1cfe4dc8
children 56d328bce3a7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
1 #!/usr/bin/perl
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
2 #V1.0.0
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
3 use strict;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
4 use warnings;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
5 use Getopt::Long;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
6
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
7
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
8 my $input_matrix_files;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
9 GetOptions (
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
10 "input_matrix_files=s" => \$input_matrix_files
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
11 ) or die("Error in command line arguments\n");
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
12
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
13 my @files = split(/,/,$input_matrix_files);
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
14 for (my $i=0;$i<=$#files;$i++){
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
15 print $files[$i],"\n";
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
16 }
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
17