#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
my $output_dir;
my $number_base;
&Usage("Too few arguments") if $#ARGV<0;
GetOptions(
'o|out_dir=s' => \$output_dir,
'b|base=i' => \$number_base
)or &Usage("Wrong arguments");
sub Usage(){
my($msg) = @_;
print "\nUsage: perl CutBaseRead.pl -o out_fir/ -b 40
$msg!
Argument(s): -out_dir|-o -base|-b\n";
exit(1);
}
use strict;
use warnings;
use Getopt::Long;
my $output_dir;
my $number_base;
&Usage("Too few arguments") if $#ARGV<0;
GetOptions(
'o|out_dir=s' => \$output_dir,
'b|base=i' => \$number_base
)or &Usage("Wrong arguments");
sub Usage(){
my($msg) = @_;
print "\nUsage: perl CutBaseRead.pl -o out_fir/ -b 40
$msg!
Argument(s): -out_dir|-o -base|-b\n";
exit(1);
}