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

Uploaded

#!/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";
}