1) INTRODUCCI\u00d3N.
Muchas veces realizamos acciones que pueden hacerse en paralelo,
por ejemplo generar 6 tomos de un libro en latex. Cada tomo puede generarse
de forma independiente.<\/p>\n
El objetivo es que si se tienen 4 procesadores cada procesador genere
un libro, y cuando termine siga generando otro libros.<\/p>\n
La conclusi\u00f3n es que tarda 1\/3 parte menos de tiempo en realizar
las tareas.<\/p>\n
Esta basado en el programa jigl, que genera albunes de fotos, a una
velocidad de v\u00e9rtigo) el cual consulte las fuentes
para poder hacer mi propio script.<\/p>\n
2) SCRIPT EN PERL<\/p>\n
#!\/usr\/bin\/perl -w
# Por Paco Aldarias
# Fecha: 12\/12\/2010
# Pasado en: jigl
# Script que genera tomos en paralelo<\/p>\n
use Cwd;<\/p>\n
my $MP_MAX_JOBS = mp_detect_cpu();
print \u00abN\u00famero procesadores: $MP_MAX_JOBS\u00bb;
my $startDir = cwd;<\/p>\n
&main();<\/p>\n
###########################################################
sub mp_detect_cpu
{
my $r = `grep processor \/proc\/cpuinfo |wc -l`;
mp_debug(\u00abDetected $r cpu.n\u00bb);
return $r;
}
###########################################################
sub mp_debug($)
{
print \u00abmp[$$]: \u00ab. $_[0];
}
###########################################################
sub mp_wait_jobs($)
{
my($n) = @_;<\/p>\n
while(1){
my $running = scalar(keys %mp_jobs);
mp_debug(\u00ab$running job(s) currently running.n\u00bb);<\/p>\n
last if $running <= $n; mp_debug(\u00abWaiting…n\u00bb); # Wait for a job to finish. my $c = wait(); my $rc = $?; mp_debug(\u00ab-> $c ($rc)n\u00bb);<\/p>\n
# Sanity checks.
if($c < 0){
print \u00abmp: wait() returned $c. Strange!n\u00bb;
}<\/p>\n
if(!exists $mp_jobs{$c}){
print \u00abmp: wait() returned $c, but job is not\u00bb
.\u00bb in mp_jobs. Strange!n\u00bb;
}<\/p>\n
# Check the return code and die if non-zero.
die $mp_jobs{$c} if $rc;<\/p>\n
# Forget job.
delete $mp_jobs{$c};
}
}
###########################################################
sub mp_wait_for_free_slot()
{
mp_wait_jobs($MP_MAX_JOBS – 1);
}
###########################################################
sub mp_wait_for_all_jobs()
{
mp_wait_jobs(0);
}
###########################################################
sub mp_launch($$)
{
my($cmd, $die_msg) = @_;<\/p>\n
# Wait for a free slot first.
mp_wait_for_free_slot();<\/p>\n
# Ok, fork.
my $r = fork();<\/p>\n
if(!$r){
# We are in the child.
# Do the job.
mp_debug(\u00abRunning $cmd n\u00bb);
exec($cmd);<\/p>\n
} else {
# We are in the father.
# Remember the child as well as the die msg.
mp_debug(\u00abLaunched $r.n\u00bb);
$mp_jobs{$r} = $die_msg;
}
}<\/p>\n
######################################################3
sub main {<\/p>\n
my @carpetas=`find . -type d -name \u00abtic1tomo?-*\u00bb | cut -d \u00ab\/\u00bb -f2`;<\/p>\n
foreach $c (@carpetas) {<\/p>\n
#Eliminamos saltos de linea.
$c =~ s\/n\/\/g;
$c =~ s\/ \/\/g;<\/p>\n
my @f = split(\u00ab-\u00ab,$c);<\/p>\n
print \u00abCarpeta: $c Fichero: $f[0]n\u00bb;<\/p>\n
chdir $startDir;
chdir \u00ab.\/\u00bb.$c;
$cmd = \u00abpdflatex -interaction nonstopmode \/home\/paco\/Dropbox\/ceed1011\/apuntes\/\u00bb.$c.\u00bb\/\u00bb.$f[0].\u00bb.tex -output-directory \/home\/paco\/Dropbox\/ceed1011\/apuntes\/\u00bb.$c.\u00bb\/\u00bb;
print \u00abComando: $c\u00bb;
$dieMsg = \u00abMensaje Errorn\u00bb;
mp_launch($cmd, $dieMsg);<\/p>\n
}<\/p>\n
mp_wait_for_all_jobs();<\/p>\n
}
######################################3<\/p>\n","protected":false},"excerpt":{"rendered":"
1) INTRODUCCI\u00d3N.Muchas veces realizamos acciones que pueden hacerse en paralelo,por ejemplo generar 6 tomos de un libro en latex. Cada tomo puede generarsede forma independiente. El objetivo es que si se tienen 4 procesadores cada procesador genereun libro, y cuando … Sigue leyendo