/tools/emboss_5/emboss_banana.pl

https://bitbucket.org/cistrome/cistrome-harvard/ · Perl · 16 lines · 13 code · 1 blank · 2 comment · 1 complexity · e0ae547770f9dcbc0c11fdbf8abed43b MD5 · raw file 

    

  1. #! /usr/bin/perl -w
    2. 

  2. use strict;
    3. 

  3. 

  4. my $cmd_string = join (" ",@ARGV);
    5. 

  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. 

  6. my $results = `$cmd_string`;
    7. 

  7. my @files = split("\n",$results);
    8. 

  8. foreach my $thisLine (@files)
    9. 

  9. {
    10. 

  10. 	if ($thisLine =~ /Created /i)
    11. 

  11. 	{
    12. 

  12. 		$thisLine =~ /[\w|\.]+$/;
    13. 

  13. 		$thisLine =$&;
    14. 

  14. 		print "outfile: $thisLine\n";
    15. 

  15. 	}
    16. 

  16. }
    17.