comparison tools/emboss_5/emboss_banana.pl @ 0:9071e359b9a3

Uploaded
author xuebing
date Fri, 09 Mar 2012 19:37:19 -0500
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:9071e359b9a3
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 }