/tools/emboss_5/emboss_multiple_outputfile_wrapper.pl

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