1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
#!/usr/bin/env perl
use strict;
use warnings;
use File::Basename;
use Cwd;
use Carp;
use Getopt::Long qw(:config no_ignore_case bundling pass_through);
my $usage = <<__EOUSAGE__;
######################################################################
#
# Required:
# --genome <string> target genome to align to
# --transcripts <string> cdna sequences to align
#
# Optional:
# -N <int> number of top hits (default: 1)
# -I <int> max intron length
# --CPU <int> number of threads (default: 2)
# --no_chimera do not report chimeric alignmetnts
# --SAM output in SAM format
#
#######################################################################
__EOUSAGE__
;
my ($genome, $transcriptDB, $max_intron);
my $CPU = 2;
my $help_flag;
my $number_top_hits = 1;
my $no_chimera_flag = 0;
my $SAM_flag = 0;
&GetOptions( 'h' => \$help_flag,
'genome=s' => \$genome,
'transcripts=s' => \$transcriptDB,
'I=i' => \$max_intron,
'CPU=i' => \$CPU,
'N=i' => \$number_top_hits,
'no_chimera' => \$no_chimera_flag,
'SAM' => \$SAM_flag,
);
if ($help_flag) {
die $usage;
}
unless ($genome && $transcriptDB) {
die $usage;
}
main: {
my $genomeName = basename($genome);
my $genomeDir = $genomeName . ".gmap";
my $genomeBaseDir = dirname($genome);
my $cwd = cwd();
unless (-d "$genomeBaseDir/$genomeDir") {
#my $cmd = "gmap_build -D $genomeBaseDir -d $genomeBaseDir/$genomeDir -k 13 $genome >&2";
my $cmd = "gmap_build -D $genomeBaseDir -T $genomeBaseDir -d $genomeDir -k 13 $genome >&2";
&process_cmd($cmd);
}
## run GMAP
my $num_gmap_top_hits = $number_top_hits;
if ((! $no_chimera_flag) && $num_gmap_top_hits == 1) {
$num_gmap_top_hits = 0; # reports two hits if chimera with this setting.
}
my $format = ($SAM_flag) ? "samse" : "3";
my $cmd = "gmap -D $genomeBaseDir -d $genomeDir $transcriptDB -f $format -n $num_gmap_top_hits -x 50 -t $CPU -B 5 ";
if ($max_intron) {
$cmd .= " --intronlength=$max_intron ";
}
&process_cmd($cmd);
exit(0);
}
####
sub process_cmd {
my ($cmd) = @_;
print STDERR "CMD: $cmd\n";
#return;
my $ret = system($cmd);
if ($ret) {
die "Error, cmd: $cmd died with ret ($ret)";
}
return;
}
|
