prepare_scoretrain_run.pl

来自「MS-Clustering is designed to rapidly clu」· PL 代码 · 共 41 行

#####################################################################
##

use strict;

my $scratch = '/scratch/amfrank';

my $mgf_list = shift;
my $name = shift;
my $charge = shift;
my $size_idx = shift;
my $region_idx = shift;



if ( ! -e $mgf_list || ! defined($charge) || ! defined($size_idx) || ! defined($name))
{
    print "prepare_ScoreTrain.pl [mgf list] [model name] [charge] [size_idx]\n";
    exit(1);
}


my $r;
for ($r=0; $r<3; $r++)
{
    my $sh_name = sprintf("%s_%d_%d_%d.sh",$name,$charge,$size_idx,$r);
    open (SH, ">$scratch"."/dnv/jobs/$sh_name") || die;
    print SH "\#!/bin/bash\n";
    print SH "\#\n";
    print SH "\#\$ -cwd\n";
    print SH "\#\$ -j y\n";
    print SH "\#\$ -S /bin/bash\n";
    print SH "\#\n";
    print SH "uname -a\n";
    print SH "perl $scratch/dnv/run_ScoreTrain_on_grid.pl $scratch/dnv";
    print SH " $mgf_list $name $charge $size_idx $r\n";
    close SH;

    print "Created job/$sh_name ...\n";
}