Mercurial > repos > mcharles > rapsosnp
annotate rapsodyn/CreateMatrix.pl @ 13:827da1a9a326 draft
Uploaded
| author | mcharles |
|---|---|
| date | Mon, 19 Jan 2015 10:38:29 -0500 |
| parents | 0a6c1cfe4dc8 |
| children | 93e6f2af1ce2 |
| rev | line source |
|---|---|
| 10 | 1 #!/usr/bin/perl |
| 2 #V1.0.0 | |
| 3 use strict; | |
| 4 use warnings; | |
| 5 use Getopt::Long; | |
| 6 | |
| 7 my $input_pileup_file; | |
| 8 my $input_variant_file; | |
| 9 my $input_variant_unique_file; | |
| 10 | |
| 11 GetOptions ( | |
| 12 "input_pileup_file=s" => \$input_pileup_file, | |
| 13 "input_variant_file=s" => \$input_variant_file, | |
| 14 "input_variant_unique_file=s" => \$input_variant_unique_file | |
| 15 ) or die("Error in command line arguments\n"); | |
| 16 | |
| 17 | |
| 18 | |
| 19 print "$input_pileup_file\n$input_variant_file\n$input_variant_unique_file\n"; | |
| 20 |