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

Uploaded
author mcharles
date Mon, 19 Jan 2015 10:38:29 -0500
parents 0a6c1cfe4dc8
children 93e6f2af1ce2
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 my $input_pileup_file;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
8 my $input_variant_file;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
9 my $input_variant_unique_file;
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
10
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
11 GetOptions (
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
12 "input_pileup_file=s" => \$input_pileup_file,
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
13 "input_variant_file=s" => \$input_variant_file,
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
14 "input_variant_unique_file=s" => \$input_variant_unique_file
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
15 ) or die("Error in command line arguments\n");
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
16
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
17
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
18
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
19 print "$input_pileup_file\n$input_variant_file\n$input_variant_unique_file\n";
0a6c1cfe4dc8 Uploaded
mcharles
parents:
diff changeset
20