/tools/emboss_5/emboss_multiple_outputfile_wrapper.pl

https://bitbucket.org/cistrome/cistrome-harvard/ · Perl · 19 lines · 17 code · 1 blank · 1 comment · 1 complexity · 9ff91446ece3e4b865fbabc3a401e3f5 MD5 · raw file

  1. #! /usr/bin/perl -w
  2. use strict;
  3. my $cmd_string = join (" ",@ARGV);
  4. my $results = `$cmd_string`;
  5. my @files = split("\n",$results);
  6. foreach my $thisLine (@files)
  7. {
  8. if ($thisLine =~ /Created /)
  9. {
  10. $thisLine =~ /[\w|\.]+$/;
  11. $thisLine =$&;
  12. print "outfile: $thisLine\n";
  13. }
  14. else
  15. {
  16. print $thisLine,"\n";
  17. }
  18. }