Mercurial > repos > grau > dimont
comparison extract_data_single_galaxy.pl @ 11:fa520092c603 draft
Uploaded
| author | grau |
|---|---|
| date | Thu, 07 Nov 2013 16:59:25 -0500 |
| parents | 85fd336b5b45 |
| children |
comparison
equal
deleted
inserted
replaced
| 10:247f7edbe7f8 | 11:fa520092c603 |
|---|---|
| 78 push(@vals,$width); | 78 push(@vals,$width); |
| 79 push(@lines,\@vals); | 79 push(@lines,\@vals); |
| 80 } | 80 } |
| 81 | 81 |
| 82 close(IN); | 82 close(IN); |
| 83 print "Read input file ".$bed."\n"; | 83 #print "Read input file ".$bed."\n"; |
| 84 | 84 |
| 85 | 85 |
| 86 if($sort){ | 86 if($sort){ |
| 87 | 87 |
| 88 @lines = sort { ${$a}[0] cmp ${$b}[0] } @lines; | 88 @lines = sort { ${$a}[0] cmp ${$b}[0] } @lines; |