Mercurial > repos > xuebing > sharplabtool
annotate tools/filters/CreateInterval.pl @ 1:cdcb0ce84a1b
Uploaded
| author | xuebing |
|---|---|
| date | Fri, 09 Mar 2012 19:45:15 -0500 |
| parents | 9071e359b9a3 |
| children |
| rev | line source |
|---|---|
| 0 | 1 #! /usr/bin/perl -w |
| 2 | |
| 3 # Accepts chrom, start, end, name, and strand | |
| 4 # If strand is void sets it to plus | |
| 5 # CreateInterval.pl $chrom $start $end $name $strand $output | |
| 6 | |
| 7 my $strand = "+"; | |
| 8 | |
| 9 die "Not enough arguments\n" unless @ARGV == 6; | |
| 10 | |
| 11 open OUT, ">$ARGV[5]" or die "Cannot open $ARGV[5]:$!\n"; | |
| 12 | |
| 13 $strand = "-" if $ARGV[4] eq "minus"; | |
| 14 $ARGV[3] =~ s/\s+/_/g; | |
| 15 $ARGV[3] =~ s/\t+/_/g; | |
| 16 | |
| 17 print OUT "$ARGV[0]\t$ARGV[1]\t$ARGV[2]\t$ARGV[3]\t0\t$strand\n"; | |
| 18 close OUT; | |
| 19 |