Mercurial > repos > mcharles > rapsosnp
annotate rapsodyn/MergeLogFiles.pl @ 10:0a6c1cfe4dc8 draft
Uploaded
| author | mcharles |
|---|---|
| date | Mon, 19 Jan 2015 04:33:21 -0500 |
| parents | |
| children | 827da1a9a326 |
| rev | line source |
|---|---|
| 10 | 1 #!/usr/bin/perl |
| 2 #V1.0.0 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use Getopt::Long; | |
| 6 | |
| 7 | |
| 8 my $input_log_files; | |
| 9 GetOptions ( | |
| 10 "input_log_files=s" => \$input_log_files | |
| 11 ) or die("Error in command line arguments\n"); | |
| 12 | |
| 13 my @files = split(/,/,$input_log_files); | |
| 14 for (my $i=0;$i<=$#files;$i++){ | |
| 15 print $files[$i],"\n"; | |
| 16 } |