#!/usr/bin/perl
use Parallel::ForkManager;

# inicializa el paralelizador a 8 procesos
my $pm = new Parallel::ForkManager(8);

open(LIST,$ARGV[0]);
foreach(<LIST>)
{
    @names=split(/\s/);
    $prot1=@names[0]; 
    $dir = substr($prot1,2,2);
    # inicializa cada proceso a paralelizar
    $pm -> start and next;

    system("./pdb2bssp.pl /home/recerca/SCOP1.7/pdbstyle-1.73/$dir/$prot1.ent bssp/$prot1.bssp ");
    # finaliza cada proceso a finalizar
    $pm -> finish;

}


close(LIST);
# espera a que hayan acabado todos
$pm -> wait_all_children; 



