annotate html.pl @ 33:feef3e202591 draft

Uploaded
author big-tiandm
date Thu, 31 Jul 2014 03:07:46 -0400
parents 5ac42e277c76
children 0c4e11018934
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
10
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
1 #!/usr/bin/perl -w
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
2 #Filename:
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
3 #Author: Tian Dongmei
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
4 #Email: tiandm@big.ac.cn
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
5 #Date: 2014-5-29
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
6 #Modified:
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
7 #Description:
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
8 my $version=1.00;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
9
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
10 use strict;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
11 use Getopt::Long;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
12 use File::Basename;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
13
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
14 my %opts;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
15 GetOptions(\%opts,"i=s","format=s","o=s","h");
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
16 if (!(defined $opts{o} and defined $opts{format} and defined $opts{i} ) || defined $opts{h}) { #necessary arguments
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
17 &usage;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
18 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
19 my ($config,$prepath,$rfampath,$knownpath,$genomepath,$novelpath);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
20 my ($predir,$rfamdir,$knowndir,$genomedir,$noveldir);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
21 open IN,"<$opts{i}";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
22 $config=<IN>; chomp $config;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
23 $prepath=<IN>; chomp $prepath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
24 $rfampath=<IN>;chomp $rfampath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
25 $knownpath=<IN>; chomp $knownpath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
26 $genomepath=<IN>; chomp $genomepath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
27 $novelpath=<IN>; chomp $novelpath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
28 close IN;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
29 my @tmp=split/\//,$prepath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
30 $predir=$tmp[-1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
31 @tmp=split/\//,$rfampath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
32 $rfamdir=$tmp[-1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
33 @tmp=split/\//,$knownpath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
34 $knowndir=$tmp[-1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
35 @tmp=split/\//,$genomepath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
36 $genomedir=$tmp[-1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
37 @tmp=split/\//,$novelpath;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
38 $noveldir=$tmp[-1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
39
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
40 my $dir=dirname($opts{'o'});
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
41
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
42 open OUT ,">$opts{'o'}";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
43 print OUT "<HTML>\n <HEAD>\n <TITLE> Analysis Report </TITLE>\n </HEAD>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
44 <BODY bgcolor=\"lightgray\">\n <h1 align=\"center\">\n <font face=\"ºÚÌå\">\n <b>Small RNA Analysis Report</b>\n </font>\n </h1>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
45 <h2>1. Sequence No. and quality</h2>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
46 <h3>1.1 Sequece No.</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
47 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
48
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
49 ### raw data no
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
50 open IN,"<$config";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
51 my @files;my @marks; my @rawNo;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
52 while (my $aline=<IN>) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
53 chomp $aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
54 my @tmp=split/\t/,$aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
55 push @files,$tmp[0];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
56
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
57 my $no=`less $tmp[0] |wc -l `;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
58 chomp $no;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
59 if ($opts{'format'} eq "fq" || $opts{'format'} eq "fastq") {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
60 $no=$no/4;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
61 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
62 else{
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
63 $no=$no/2;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
64 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
65 push @rawNo,$no;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
66
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
67 push @marks,$tmp[1];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
68 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
69 close IN;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
70
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
71 ### preprocess
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
72 unless ($prepath=~/\/$/) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
73 $prepath .="/";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
74 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
75
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
76 my @trimNo;my @collapse;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
77 my $collapsefile=$prepath."collapse_reads.fa";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
78 open IN,"<$collapsefile";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
79 while (my $aline=<IN>) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
80 chomp $aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
81 <IN>;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
82 $aline=~/:([\d|_]+)_x(\d+)$/;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
83 my @lng=split/_/,$1;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
84 for (my $i=0;$i<@lng;$i++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
85 if ($lng[$i]>0) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
86 $trimNo[$i] +=$lng[$i];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
87 $collapse[$i] ++;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
88 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
89 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
90 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
91 close IN;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
92
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
93 my @cleanR;my @cleanT;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
94 my $clean=$prepath."collapse_reads_19_28.fa";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
95 open IN,"<$clean";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
96 while (my $aline=<IN>) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
97 chomp $aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
98 <IN>;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
99 $aline=~/:([\d|_]+)_x(\d+)$/;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
100 my @lng=split/_/,$1;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
101 for (my $i=0;$i<@lng;$i++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
102 if ($lng[$i]>0) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
103 $cleanR[$i] +=$lng[$i];
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
104 $cleanT[$i] ++;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
105 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
106 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
107 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
108 close IN;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
109
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
110 print OUT "<table border=\"1\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
111 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
112 <th>&nbsp;</th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
113 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
114 foreach (@marks) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
115 print OUT "<th> $_ </th>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
116 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
117 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
118 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
119 <th align=\"left\">Raw Reads No. </th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
120 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
121 foreach (@rawNo) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
122 print OUT "<td> $_ </td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
123 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
124 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
125 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
126 <th align=\"left\">Reads No. After Trimed 3\' adapter </th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
127 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
128 foreach (@trimNo) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
129 print OUT "<td> $_ </td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
130 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
131 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
132 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
133 <th align=\"left\">Unique Tags No. </th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
134 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
135 foreach (@collapse) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
136 print OUT "<td> $_ </td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
137 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
138 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
139 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
140 <th align=\"left\">Clean Reads No. </th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
141 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
142 foreach (@cleanR) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
143 print OUT "<td> $_ </td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
144 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
145 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
146 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
147 <th align=\"left\">Clean Tags No. </th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
148 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
149 foreach (@cleanT) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
150 print OUT "<td> $_ </td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
151 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
152 print OUT "</tr>\n</table>";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
153 print OUT "<p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
154 Note:<br />
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
155 The raw data file path is: <b>$files[0]</b><br />
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
156 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
157 for (my $i=1;$i<@files;$i++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
158 print OUT "&nbsp;&nbsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;&emsp;<b>$files[$i]</b><br />";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
159 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
160 print OUT "The collapsed file path is: <b>$collapsefile</b><br />
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
161 The clean data file path is: <b>$clean</b><br />
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
162 </p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
163 <h2> 1. Sequence length count</h2>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
164 <h3> 1.1 Reads length</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
165 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
166
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
167 print OUT "<img src=\"./$predir/Reads_length.png\" alt=\"Reads_length.png\" width=\"400\" height=\"300\"/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
168 <h3> 1.2 Tags length count</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
169 <img src=\"./$predir/Tags_length.png\" alt=\"Tags_length.png\" width=\"400\" height=\"300\"/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
170 <p> Note:<br />The sequence length data: <a href=\"./$predir/reads_length_distribution.txt\"> length file</a>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
171 </p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
172 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
173
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
174 #### rfam
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
175 unless ($rfampath=~/\/$/) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
176 $rfampath .="/";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
177 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
178 print OUT "<h2>2. Rfam non-miRNA annotation</h2>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
179 <h3>2.1 Reads count</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
180 <table border=\"1\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
181 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
182 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
183
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
184 my @rfamR; my @rfamT;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
185 my $tag=1;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
186 open IN,"<$dir/rfam_non-miRNA_annotation.txt";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
187 while (my $aline=<IN>) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
188 chomp $aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
189 $tag=0 if($aline=~/tags\s+number/);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
190 next if($aline=~/^\#/);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
191 next if($aline=~/^\s*$/);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
192 my @tmp=split/\s+/,$aline;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
193 if($tag == 1){push @rfamR,[@tmp];}
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
194 else{push @rfamT,[@tmp];}
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
195 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
196 close IN;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
197
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
198
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
199 print OUT "<th>RNA Name</th>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
200 foreach (@marks) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
201 print OUT "<th> $_ </th>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
202 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
203 for (my $i=0;$i<@rfamR;$i++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
204 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
205 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
206 <th align=\"left\">$rfamR[$i][0]</th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
207 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
208 for (my $j=1;$j<@{$rfamR[$i]} ;$j++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
209 print OUT "<td> $rfamR[$i][$j]</td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
210 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
211 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
212
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
213 print OUT "</tr>\n</table>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
214 <h3>2.2 Tags count</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
215 <table border=\"1\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
216 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
217 <th>RNA Name</th>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
218 foreach (@marks) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
219 print OUT "<th> $_ </th>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
220 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
221 for (my $i=0;$i<@rfamT;$i++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
222 print OUT "</tr>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
223 <tr align=\"center\">
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
224 <th align=\"left\">$rfamT[$i][0]</th>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
225 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
226 for (my $j=1;$j<@{$rfamT[$i]} ;$j++) {
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
227 print OUT "<td> $rfamT[$i][$j]</td>\n";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
228 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
229 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
230 print OUT "</tr>\n</table>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
231 <p>Note:<br />The rfam mapping results is: <b>$rfampath</b>";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
232 print OUT "<b>rfam_mapped.bwt</b></p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
233 <h2>3. MicroRNA result</h2>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
234 <h3>3.1 known microRNA</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
235 <p>The known microRNA express list: <a href=\"./known_microRNA_express.txt\"> known_microRNA_express.txt</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
236 The known microRNA alngment file: <a href=\"./known_microRNA_express.aln\"> known_microRNA_express.aln</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
237 The known moRs file: <a href=\"./known_microRNA_express.moRs\"> known_microRNA_express.moRs</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
238 The known microRNA mature sequence file: <a href=\"./known_microRNA_mature.fa\"> known_microRNA_mature.fa</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
239 The knowm microRNA precursor sequence file: <a href=\"./known_microRNA_precursor.fa\"> known_microRNA_precursor.fa</a>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
240 </p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
241
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
242 <h3>3.2 novel microRNA</h3>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
243 <p>The novel microRNA prediction file:<a href=\"./microRNA_prediction.mrd\"> microRNA_prediction.mrd</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
244 The novel microRNA express list: <a href=\"./novel_microRNA_express.txt\"> novel_microRNA_express.txt</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
245 The novel microRNA mature sequence file: <a href=\"./novel_microRNA_mature.fa\"> novel_microRNA_mature.fa</a><br/>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
246 The novel microRNA precursor sequence file: <a href=\"./novel_microRNA_precursor.fa\"> novel_microRNA_precursor.fa</a>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
247 </p>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
248 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
249
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
250
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
251
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
252 print OUT "
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
253 </BODY>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
254 </HTML>
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
255 ";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
256 close OUT;
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
257
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
258 sub usage{
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
259 print <<"USAGE";
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
260 Version $version
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
261 Usage:
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
262 $0 -o
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
263 options:
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
264 -o output file
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
265 -h help
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
266 USAGE
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
267 exit(1);
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
268 }
5ac42e277c76 Uploaded
big-tiandm
parents:
diff changeset
269