Mercurial > repos > mcharles > rapsosnp
diff rapsodyn/MergeLogFiles.pl @ 10:0a6c1cfe4dc8 draft
Uploaded
author | mcharles |
---|---|
date | Mon, 19 Jan 2015 04:33:21 -0500 |
parents | |
children | 827da1a9a326 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/rapsodyn/MergeLogFiles.pl Mon Jan 19 04:33:21 2015 -0500 @@ -0,0 +1,16 @@ +#!/usr/bin/perl +#V1.0.0 +use strict; +use warnings; +use Getopt::Long; + + +my $input_log_files; +GetOptions ( +"input_log_files=s" => \$input_log_files +) or die("Error in command line arguments\n"); + +my @files = split(/,/,$input_log_files); +for (my $i=0;$i<=$#files;$i++){ + print $files[$i],"\n"; +} \ No newline at end of file