[bcn-pm] RE: Barcelona-pm Digest, Vol 9, Issue 8
Lluís Ribes
lluis_ribes at hotmail.com
Thu Mar 25 13:23:06 CST 2004
Felicitats a ese pedazo pare, ole!!!!!!
Be, jo no podre assistir a la reunio, pero os deixo el codi final que he
realitzat sobre forks i el petit scheduler per llensar en Grid. No m acaba d
anar del tot be,..., crec que haure de fer servir selects, pero tal com m ho
han pintat m ha entrat una mica de por :)))). Son dos fitxers:
fitxer 1:
#!/bin/perl
use POSIX ":sys_wait_h";
push (@INC,'pwd');
use JobGlo;
my $i=0;
my $j=0;
my $t=0;
#Vector de Resources
@resource=('pc1','pc2','pc3','pc4','pc5');
#Vector de directoris remots desti dels treballs
@output_POV=('/scratch','/scratch','/scratch','/scratch/files','/home/tmp');
#Vector de capacitat de concurrencia de cada maquina
@queue=(1,1,2,2,1);
#Path remot de l aplicacio de Render
$POV_LOC="/aplic/POV";
#Redireccionament de les Xserver si es fan servir
$DIS_NOD="pc7:0";
#Funcio que activa el pare al arrancar un fill
$SIG{CHLD}=\&REAPER;
#timini = temps inicial
#limit = numero d imatges a generar
$timini=timi;
$limit=1000;
$i=0;
while($i!=$limit) {
$i=$i+1;
print("@queue[0] @queue[1] @queue[2] @queue[3] @queue[4] busco...\n");
#Bucle d espera (SELECT simulator)
#Si la posicio i+1 del vector de concurrencia
#es diferent a 0, la maquina i+1 esta lliure
#i surt del bucle
while(@queue[($t+1)%5] == 0) {
$t=$t+1;
#print("@resource[($t+1)%5] = @queue[($t+1)%5] \n");
}
#usr = maquina a qui es demana crear una imatge
$usr=($t+1)%5;
#El vector de concurrencia se li resta 1 a la maquina
#que se li ha demanat crear la imatge => maquina ocupada
@queue[$usr] = @queue[$usr]-1;
#Numero d imatge de la animacio a realitzar (es indiferent
#ja que l objectiu es provar el rendiment
$fr=($i%40)+10;
#El pare crea un fill qui executara la funcio que llensa
#un treball via Grid (Globus) per renderitzar la imatge fr
$pd=fork();
if ($pd==0) {
# -------------Node-----------|-path---|--w-|--l--|-#f-|-i-|f-|----output
frame---|--DISPLAY--|time|
#
---------------0------------|---1----|--2-|--3--|--4-|-5-|6-|--------7----------|-----8-----|--9--|
JobGlo::EnvJob(@resource[$usr],$POV_LOC,1280,860,100,$fr,$fr, at output_POV[$usr],$DIS_NOD,time);
exit($usr);
}
else{
print("@queue[0] @queue[1] @queue[2] @queue[3] @queue[4] pillo $i en
@resource[$usr]\n");
}
# torne'm hi
}
sub REAPER{
#papa s espera
wait;
#a = posicio del vector de la maquina a qui el fill l ha enviat un treball
$a=($?/256);
#el vector d concurrencia s actualitza => maquina lliure
@queue[$a] = @queue[$a] + 1;
print("acaba @resource[$a] \n");
}
fitxer 2:
package JobGlo;
=head1 NAME
JobGlob - Module to send job with globusrun
=head SYNOPSIS
=head1 DESCRIPTION
This module send independents jobs with Globus interface
# -------------Node-----------|-path---|--w-|--l--|-#f-|-i-|f-|----output
frame---|--DISPLAY--|time|
#
---------------0------------|---1----|--2-|--3--|--4-|-5-|6-|--------7----------|-----8-----|--9--|
=cut
@EXPORT = qw(EnvJob);
sub JobGlo::EnvJob {
my $ARGUMENTS="\"-D +FT +W$_[2] +H$_[3] +KFI0 +KFF$_[4] +KI0.0 +KF1.0
+SF$_[5] +EF$_[6] +I/tmp/camera2.pov +L$_[1]/povray-3.50c/include
+O$_[7]/povGlobus$NF.tga\"";
#my $ARGUMENTS="\"+D +I/tmp/camera2.pov +L$_[1]/povray-3.50c/include
+O$_[7]/grandine.tga\"";
$timi1=time;
system("globusrun -o -r $_[0]
'&(stderr=/dev/null)(executable=$_[1]/bin/povray)(arguments=$ARGUMENTS)(queue=short)(environment=(DISPLAY
$_[8])(LD_LIBRARY_PATH /usr/local/lib))'>>/dev/null");
my $NF=$_[5];
$timi2=time;
system
("globus-url-copy gsiftp://$_[0]/$_[7]/povGlobus0$NF.tga
file:///tmp/povGlobus$NF.tga >>/dev/null");
$timi3=time;
$timiT=$timi3-$timi1; $timiD=$timi3-$timi2;
print("serie: $_[9] $timi1 - $_[0]: w:$_[2] h:$_[3] #:$_[5] Time total:
$timiT Time Date: $timiD \n" );
system("echo \"$_[9] $_[0] $_[2] $_[3] $_[6] $timiT $timiD\" >>res");
}
1;
Bueno, el fitxer 2 no esta comentat, queda pendent, apa, si algu ho vol fer
servir, o treure alguna idea o millorar'lo el que sigui, endavant que per
aixo esta,
a10,
lluis,
>From: barcelona-pm-request at mail.pm.org
>Reply-To: barcelona-pm at mail.pm.org
>To: barcelona-pm at mail.pm.org
>Subject: Barcelona-pm Digest, Vol 9, Issue 8
>Date: Thu, 25 Mar 2004 12:00:09 -0600
>
>Send Barcelona-pm mailing list submissions to
> barcelona-pm at mail.pm.org
>
>To subscribe or unsubscribe via the World Wide Web, visit
> http://mail.pm.org/mailman/listinfo/barcelona-pm
>or, via email, send a message with subject or body 'help' to
> barcelona-pm-request at mail.pm.org
>
>You can reach the person managing the list at
> barcelona-pm-owner at mail.pm.org
>
>When replying, please edit your Subject line so it is more specific
>than "Re: Contents of Barcelona-pm digest..."
>
>
>Today's Topics:
>
> 1. reunio d'avui (Jordi Delgado)
> 2. Re: reunio d'avui (Alex Muntada)
> 3. Re: reunio d'avui (Xavier Noria)
> 4. Re: reunio d'avui (jluis at escomposlinux.org)
> 5. Re: reunio d'avui (Victor Jalencas)
>
>
>----------------------------------------------------------------------
>
>Message: 1
>Date: Thu, 25 Mar 2004 16:18:17 +0100
>From: Jordi Delgado <jdelgado at lsi.upc.es>
>Subject: [bcn-pm] reunio d'avui
>To: barcelona-pm at mail.pm.org
>Message-ID: <20040325151817.GA10782 at nodoiuna.lsi.upc.es>
>Content-Type: text/plain; charset=us-ascii
>
>Hola
>
>Lamento dir-vos que no podre venir avui. Per una part un amic meu fa una
>conferencia, pero a mes, des de fa dues setmanes soc pare, aixi que el
>meu estat actual es el de reconfiguracio forcosa per fer front a la nova
>situacio (si, ja se que tens nou mesos per preparar-te, pero jo soc dels
>que ho
>deixen tot fins el darrer moment)...
>En fi, us asseguro que aquesta experiencia dona un nou sentit a l'expressio
>"anar de cul".
>
>Ja se que nomes he vingut una vegada, pero creieu-me que ganes no me'n
>falten!... El proper mes sera.
>
>Per demostrar la meva bona volunat podria
>preparar-me alguna cosa sobre continuacions. Ja se que no es propiament
>Perl,
>pero com es rumoreja que Perl 6 les tindra, aniria be de totes totes, no?
>
>En fi, ja en continuarem parlant.
>
>Salut!
>
>Jordi
>
>------------------------------
>
>Message: 2
>Date: Thu, 25 Mar 2004 16:49:44 +0100
>From: Alex Muntada <alexm at ac.upc.es>
>Subject: Re: [bcn-pm] reunio d'avui
>To: Barcelona Perl Mongers <barcelona-pm at mail.pm.org>
>Message-ID: <20040325154944.GC17229 at ac.upc.es>
>Content-Type: text/plain; charset=iso-8859-1
>
>-----BEGIN PGP SIGNED MESSAGE-----
>Hash: SHA1
>
>* Jordi Delgado: [2004-03-25/16:18:17 +0100]
>
> > des de fa dues setmanes soc pare
>
>Enhorabona! Sempre que hi ha una passa a la UPC (potser només
>als edificis =~ /[CD]6/) perquè darrerament la família del meu
>departament també està creixent considerablement.
>
> > Per demostrar la meva bona volunat podria preparar-me alguna
> > cosa sobre continuacions. Ja se que no es propiament Perl,
> > pero com es rumoreja que Perl 6 les tindra, aniria be de totes
> > totes, no?
>
>Com que no tinc ni idea de què va això de les continuacions, amb
>un cop de Google he trobat aquesta perla:
>
> http://perlmonks.thepen.com/193649.html
>
>no using Perl; # aquesta li dedico al Víctor
>use Perl;
>
>- --
>Alex Muntada <alexm at ac.upc.es>
>http://people.ac.upc.es/alexm/
>
>-----BEGIN PGP SIGNATURE-----
>Version: GnuPG v1.2.3 (GNU/Linux)
>
>iD8DBQFAYv+TLdxCGS3zaBERAlk8AJ0blTyc42w4SR4o/Xl6J7iZ1DCh5gCeMLtJ
>GZ09L+FD0hZ6W1dtxDE3QeM=
>=r1in
>-----END PGP SIGNATURE-----
>
>------------------------------
>
>Message: 3
>Date: Thu, 25 Mar 2004 17:18:24 +0100
>From: Xavier Noria <fxn at hashref.com>
>Subject: Re: [bcn-pm] reunio d'avui
>To: Barcelona Perl Mongers <barcelona-pm at mail.pm.org>
>Message-ID: <0A784566-7E78-11D8-827D-000A95A4E370 at hashref.com>
>Content-Type: text/plain; charset=US-ASCII; format=flowed
>
>Carai, hi ha unes quantes baixes avui. Jo anava a venir, pero duc una
>bona galipandria i no estic massa fi.
>
>El tema de les continuacions el trobo interessant. A mes, tot i que el
>tema de la presentacio a les trobades anira al voltant de Perl
>normalment, jo particularment trobo que xerrades tecniques d'altres
>coses (per exemple aixo que proposa en Jordi, o algu que expliqui Zope,
>o AppleScript, o Unicode, ...) son enriquidores pel grup.
>
>-- fxn
>
>
>
>
>
>------------------------------
>
>Message: 4
>Date: Thu, 25 Mar 2004 17:47:30 +0100 (CET)
>From: jluis at escomposlinux.org
>Subject: Re: [bcn-pm] reunio d'avui
>To: "Barcelona Perl Mongers" <barcelona-pm at mail.pm.org>
>Message-ID:
> <41121.217.14.35.72.1080233250.squirrel at webmail.escomposlinux.org>
>Content-Type: text/plain;charset=iso-8859-1
>
> > Hola
> >
> > Lamento dir-vos que no podre venir avui. Per una part un amic meu fa una
> > conferencia, pero a mes, des de fa dues setmanes soc pare, aixi que el
> > meu estat actual es el de reconfiguracio forcosa per fer front a la nova
> > situacio (si, ja se que tens nou mesos per preparar-te, pero jo soc dels
> > que ho
> > deixen tot fins el darrer moment)...
>
>Felicidades.
>
>El cambi de configuracion del sistema la aplicacion de nuevos parches,
>algunos altamente experimentales y casi si how-to son suficentes para
>cualquiera.
>
>
>
>------------------------------
>
>Message: 5
>Date: Thu, 25 Mar 2004 18:08:01 +0100
>From: Victor Jalencas <victor at carotena.net>
>Subject: Re: [bcn-pm] reunio d'avui
>To: Barcelona Perl Mongers <barcelona-pm at mail.pm.org>
>Message-ID: <406311F1.3030702 at carotena.net>
>Content-Type: text/plain; charset=ISO-8859-1; format=flowed
>
>Que vols que et digui, jo això de using Perl; ho he trobat molt irònic...
>:D
>
>En fi. Precissament avui he estat llegit sobre continuacions (no és que
>m'hagi enterat de molt, però la resta d'articles d'aquets pallo no tenen
>desperdici...)
>
>http://www.sidhe.org/~dan/blog/archives/000156.html
>
>Apa siau;
>
>Alex Muntada wrote:
> > -----BEGIN PGP SIGNED MESSAGE-----
> > Hash: SHA1
> >
> > * Jordi Delgado: [2004-03-25/16:18:17 +0100]
> >
> >
> >>des de fa dues setmanes soc pare
> >
> >
> > Enhorabona! Sempre que hi ha una passa a la UPC (potser només
> > als edificis =~ /[CD]6/) perquè darrerament la família del meu
> > departament també està creixent considerablement.
> >
> >
> >>Per demostrar la meva bona volunat podria preparar-me alguna
> >>cosa sobre continuacions. Ja se que no es propiament Perl,
> >>pero com es rumoreja que Perl 6 les tindra, aniria be de totes
> >>totes, no?
> >
> >
> > Com que no tinc ni idea de què va això de les continuacions, amb
> > un cop de Google he trobat aquesta perla:
> >
> > http://perlmonks.thepen.com/193649.html
> >
> > no using Perl; # aquesta li dedico al Víctor
> > use Perl;
> >
> > - --
> > Alex Muntada <alexm at ac.upc.es>
> > http://people.ac.upc.es/alexm/
> >
> > -----BEGIN PGP SIGNATURE-----
> > Version: GnuPG v1.2.3 (GNU/Linux)
> >
> > iD8DBQFAYv+TLdxCGS3zaBERAlk8AJ0blTyc42w4SR4o/Xl6J7iZ1DCh5gCeMLtJ
> > GZ09L+FD0hZ6W1dtxDE3QeM=
> > =r1in
> > -----END PGP SIGNATURE-----
> > _______________________________________________
> > llista dels Barcelona-pm
> > Barcelona-pm at mail.pm.org
> > http://mail.pm.org/mailman/listinfo/barcelona-pm
> > BCN Perl Mongers: http://barcelona.pm.org
>
>
>------------------------------
>
>_______________________________________________
>llista dels Barcelona-pm
>Barcelona-pm at mail.pm.org
>http://mail.pm.org/mailman/listinfo/barcelona-pm
>BCN Perl Mongers: http://barcelona.pm.org
>
>End of Barcelona-pm Digest, Vol 9, Issue 8
>******************************************
_________________________________________________________________
Protege tu correo del spam y los virus con MSN 8. Prueba gratis dos meses
MSN 8. http://join.msn.com/?pgmarket=es-es&XAPID=199&DI=1055
More information about the Barcelona-pm
mailing list