root/galaxy-central/tools/emboss_5/emboss_multiple_outputfile_wrapper.pl
リビジョン 2, 314 bytes (コミッタ: hatakeyama, 14 年 前) |
---|
行番号 | |
---|---|
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 | } |
Note: リポジトリブラウザについてのヘルプは TracBrowser
を参照してください。