Mercurial > repos > xuebing > sharplabtool
annotate tools/emboss_5/emboss_banana.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 use strict; | |
| 3 | |
| 4 my $cmd_string = join (" ",@ARGV); | |
| 5 #my $cmd_string = "/home/djb396/temp/emboss/bin/banana -sequence /home/djb396/universe-prototype/test.fasta -outfile result.txt -graph png -goutfile results -auto"; | |
| 6 my $results = `$cmd_string`; | |
| 7 my @files = split("\n",$results); | |
| 8 foreach my $thisLine (@files) | |
| 9 { | |
| 10 if ($thisLine =~ /Created /i) | |
| 11 { | |
| 12 $thisLine =~ /[\w|\.]+$/; | |
| 13 $thisLine =$&; | |
| 14 print "outfile: $thisLine\n"; | |
| 15 } | |
| 16 } |