Mercurial > repos > xuebing > sharplabtool
annotate tools/emboss_5/emboss_multiple_outputfile_wrapper.pl @ 2:c2a356708570
Uploaded
| author | xuebing |
|---|---|
| date | Fri, 09 Mar 2012 19:45:42 -0500 |
| parents | 9071e359b9a3 |
| children |
| rev | line source |
|---|---|
| 0 | 1 #! /usr/bin/perl -w |
| 2 use strict; | |
| 3 | |
| 4 my $cmd_string = join (" ",@ARGV); | |
| 5 my $results = `$cmd_string`; | |
| 6 my @files = split("\n",$results); | |
| 7 foreach 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 } |