PageRenderTime 48ms CodeModel.GetById 43ms app.highlight 2ms RepoModel.GetById 2ms app.codeStats 0ms

/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
 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}