view rapsodyn/CreateMatrix.pl @ 11:0c2743f66e4f draft

Uploaded

#!/usr/bin/perl
#V1.0.0
use strict;
use warnings;
use Getopt::Long;

my $input_pileup_file;
my $input_variant_file;
my $input_variant_unique_file;

GetOptions (
"input_pileup_file=s" => \$input_pileup_file,
"input_variant_file=s" => \$input_variant_file,
"input_variant_unique_file=s" => \$input_variant_unique_file
) or die("Error in command line arguments\n");



print "$input_pileup_file\n$input_variant_file\n$input_variant_unique_file\n";