/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
- #! /usr/bin/perl -w
- use strict;
- my $cmd_string = join (" ",@ARGV);
- my $results = `$cmd_string`;
- my @files = split("\n",$results);
- foreach my $thisLine (@files)
- {
- if ($thisLine =~ /Created /)
- {
- $thisLine =~ /[\w|\.]+$/;
- $thisLine =$&;
- print "outfile: $thisLine\n";
- }
- else
- {
- print $thisLine,"\n";
- }
- }