view tools/emboss_5/emboss_infoseq_wrapper.pl @ 2:c2a356708570

Uploaded
author xuebing
date Fri, 09 Mar 2012 19:45:42 -0500
parents 9071e359b9a3
children
line wrap: on
line source

#! /usr/bin/perl -w
use strict;

my $cmd_string = join (" ",@ARGV);
my $results = `$cmd_string`;
if ($ARGV[6]=~/yes/)
{
	print "Extension: html\n";
}