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

Uploaded
author mcharles
date Mon, 19 Jan 2015 10:38:29 -0500
parents 0a6c1cfe4dc8
children 93e6f2af1ce2
line wrap: on
line source

#!/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";