[PERL] Supprimer valeure d'un tableau contenant des hash

Supprimer valeure d'un tableau contenant des hash [PERL] - Perl - Programmation

Marsh Posté le 16-12-2011 à 12:09:19    

Bonjour, :hello:  
 
J'ai un tableau (@tabProc_temp) qui est construit comme ceci:

Code :
  1. $VAR1 = bless( {
  2.                  'PERE' => '4 5',
  3.                  'ID_PROCESS' => '7',
  4.                  'LOCK' => '0',
  5.                  'FILS' => '8',
  6.                  'TYPE' => 'PERE',
  7.                  'STARTED' => '0',
  8.                  'ALIAS' => 'alias7'
  9.                }, 'Job' );
  10. $VAR2 = bless( {
  11.                  'PERE' => '7 6 3',
  12.                  'ID_PROCESS' => '8',
  13.                  'LOCK' => '0',
  14.                  'FILS' => 'NULL',
  15.                  'TYPE' => 'FILS',
  16.                  'STARTED' => '0',
  17.                  'ALIAS' => 'alias8'
  18.                }, 'Job' );
  19. $VAR3 = bless( {
  20.                  'PERE' => '3',
  21.                  'ID_PROCESS' => '9',
  22.                  'LOCK' => '0',
  23.                  'FILS' => 'NULL',
  24.                  'TYPE' => 'FILS',
  25.                  'STARTED' => '0',
  26.                  'ALIAS' => 'alias9'
  27.                }, 'Job' );


 
Mon probleme est que je ne trouve pas comment supprimer un des élément de ce tableau en fonction de la valeure de "'ID_PROCESS' => 'x',".
Par exemple, je voudrai supprimer seulement l’élément qui a pour "ID_PROCESS":8.
 
Le résultat serait donc:

Code :
  1. $VAR1 = bless( {
  2.                      'PERE' => '4 5',
  3.                      'ID_PROCESS' => '7',
  4.                      'LOCK' => '0',
  5.                      'FILS' => '8',
  6.                      'TYPE' => 'PERE',
  7.                      'STARTED' => '0',
  8.                      'ALIAS' => 'alias7'
  9.                    }, 'Job' );
  10.     $VAR3 = bless( {
  11.                      'PERE' => '3',
  12.                      'ID_PROCESS' => '9',
  13.                      'LOCK' => '0',
  14.                      'FILS' => 'NULL',
  15.                      'TYPE' => 'FILS',
  16.                      'STARTED' => '0',
  17.                      'ALIAS' => 'alias9'
  18.                    }, 'Job' );


 
Avez vous une idée pour faire cela?  :whistle:  
 
Merci,
Cordialement,
Benjamin.


Message édité par Super_carotte le 16-12-2011 à 12:11:14
Reply

Marsh Posté le 16-12-2011 à 12:09:19   

Reply

Marsh Posté le 16-12-2011 à 12:17:19    

Bonjour,
 
La manière standard:  
Parcourir l'array et tester chaque élément pour avoir l'indice de l'élément à retirer
Quand il est trouvé, appeller splice avec cet indice: splice(@array, $indextoremove,1);
ne convient pas?
 
A+,


Message édité par gilou le 16-12-2011 à 12:17:51

---------------
There's more than what can be linked! --  Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
Reply

Marsh Posté le 16-12-2011 à 15:30:00    

Je vois bien comment parcourir le tableau:

Code :
  1. my $ID_inFork = "8";
  2. foreach my $row_inFork (@tabProc_temp)  #pour chaque processus
  3. {
  4. if ($row_inFork->{ID_PROCESS} == $ID_inFork )
  5. {
  6. my $indextoremove = ?????;
  7. splice(@tabProc_temp, $indextoremove,1);
  8. }
  9. }


 
Mais je ne sais pas quoi mettre a la place de $indextoremove.  
J'ai essayé avec:

Code :
  1. my $indextoremove = $row_inFork;

mais ça ne fonctionne pas.
Je ne vois pas comment récupérer cette valeur vu que mon tableau ressemble a:

Code :
  1. $VAR1 = bless( {
  2.                  'PERE' => '4 5',
  3.                  'ID_PROCESS' => '7',
  4.                  'LOCK' => '0',
  5.                  'FILS' => '8',
  6.                  'TYPE' => 'PERE',
  7.                  'STARTED' => '0',
  8.                  'ALIAS' => 'alias7'
  9.                }, 'Job' );
  10. $VAR2 = bless( {
  11.                  'PERE' => '7 6 3',
  12.                  'ID_PROCESS' => '8',
  13.                  'LOCK' => '0',
  14.                  'FILS' => 'NULL',
  15.                  'TYPE' => 'FILS',
  16.                  'STARTED' => '0',
  17.                  'ALIAS' => 'alias8'
  18.                }, 'Job' );


Message édité par Super_carotte le 16-12-2011 à 15:55:15
Reply

Marsh Posté le 16-12-2011 à 20:47:18    

A priori, quelque chose comme ceci:
my $ID_inFork = "8";
my @indextoremove = ();
foreach my $row_inFork (0..$#tabProc_temp) {
  push(@indextoremove, $row_inFork) if ($tabProc_temp[$row_inFork]->{ID_PROCESS} == $ID_inFork )
}
foreach ((reverse @indextoremove)) {
  splice(@tabProc_temp, $_, 1);
}
 
Un tableau pour collecter les indices a supprimer
Un parcours du tableau par indice croissant avec collecte des indices à supprimer
Une inversion du tableau pour retirer par ordre décroissant, sinon, les indices collectés ne vont plus être bons pour splice dès qu'il a été appliqué une fois.
Le retrait des éléments du tableau.
 
Au cas ou l'on sait qu'il n'y a au plus qu'une seule valeur d'indice à retirer, ça peut se simplifier.
 
A+,


---------------
There's more than what can be linked! --  Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
Reply

Marsh Posté le 19-12-2011 à 11:09:27    

Merci Gilou!  :D  
 
Ton code fonctionne parfaitement. Comme je l'esperai, ça a permis de supprimer une erreure qui arivait de temps en temps a savoir: si je mettai un sleep a 1 (pour simuler le lancement d'un job) la hiérarchisation ne fonctionnait plus.
 
Encore merci !
Cordialement,
Benjamin Pleumeckers.
 
Pour les curieux, voici le code:
 

Code :
  1. #!/usr/bin/perl -w
  2. use strict;
  3. use warnings;
  4. use diagnostics;
  5. use Data::Dumper;
  6. use Parallel::ForkManager;
  7. use IPC::Shareable;
  9. ####################### PACKAGES ###########################
  10. package Job;
  11. my @listJob = ();
  12. my @tabProc = ();
  14. sub new {
  15. my ($class, $ID_PROCESS, $ALIAS, $PERE, $FILS, $LOCK, $TYPE, $STARTED) = @_;
  16. my $this = {};
  17. bless($this, $class);
  19. $this->{ID_PROCESS} = $ID_PROCESS;
  20. $this->{ALIAS} = $ALIAS;
  21. $this->{PERE} = $PERE;
  22. $this->{FILS} = $FILS;
  23. $this->{LOCK} = $LOCK;
  24. $this->{TYPE} = $TYPE;
  25. $this->{STARTED} = $STARTED;
  27. push(@listJob,$ID_PROCESS);
  28. push(@tabProc,$this);
  29. return $this;
  30. }
  33. sub getID {
  34. my ($this) = @_;
  35. return $this->{ID_PROCESS};
  36. }
  37. sub getAlias {
  38. my ($this) = @_;
  39. return $this->{ALIAS};
  40. }
  41. sub getPere {
  42. my ($this) = @_;
  43. return $this->{PERE};
  44. }
  45. sub getFils {
  46. my ($this) = @_;
  47. return $this->{FILS};
  48. }
  49. sub getLock {
  50. my ($this) = @_;
  51. return $this->{LOCK};
  52. }
  53. 1;
  54. ####################### FIN PACKAGES ###########################
  57. ####################### MAIN ###########################
  58. my $pere;
  59. my $fils;
  60. my $LEVEL=0;
  62. $pere = undef;
  63. $fils = "4,5";
  64. my $proc1 = new Job( "1", "alias1", $pere, $fils, "0", "unknown", "0" );
  66. $pere = undef;
  67. $fils = "6";
  68. my $proc2 = new Job( "2", "alias2", $pere, $fils, "0", "unknown", "0" );
  70. $pere = undef;
  71. $fils = "8,9";
  72. my $proc3 = new Job( "3", "alias3", $pere, $fils, "0", "unknown", "0" );
  74. $pere = "1";
  75. $fils = "7";
  76. my $proc4 = new Job( "4", "alias4", $pere, $fils, "0", "unknown", "0" );
  78. $pere = "1";
  79. $fils = "7";
  80. my $proc5 = new Job( "5", "alias5", $pere, $fils, "0", "unknown", "0" );
  82. $pere = "2";
  83. $fils = "8";
  84. my $proc6 = new Job( "6", "alias6", $pere, $fils, "0", "unknown", "0" );
  86. $pere = "4,5";
  87. $fils = "8";
  88. my $proc7 = new Job( "7", "alias7", $pere, $fils, "0", "unknown", "0" );
  90. $pere = "7,6,3";
  91. $fils = undef;
  92. my $proc8 = new Job( "8", "alias8", $pere, $fils,, "0", "unknown", "0" );
  94. $pere = "3";
  95. $fils = undef;
  96. my $proc9 = new Job( "9", "alias9", $pere, $fils, "0", "unknown", "0" );
  98. print "listJob : @listJob\n";
  99. print Data::Dumper::Dumper @tabProc;
  102. foreach my $row (@tabProc)
  103. {
  105.  if ($row->{PERE} eq undef)
  106.  {
  107.   $row->{PERE} = "NULL";
  108.  }else
  109.  {
  110.   $row->{PERE} =~ s/,/ /g;
  111.  }
  113.  if ($row->{FILS} eq undef)
  114.  {
  115.   $row->{FILS} = "NULL";
  116.  }
  117.  else
  118.  {
  119.   $row->{FILS} =~ s/,/ /g;
  120.  }
  122.  if ($row->{PERE} eq "NULL" )
  123.  {
  124.   $row->{TYPE} = "PERE-0";
  125.  }
  126.  else
  127.  {
  128.   if ($row->{FILS} eq "NULL" )
  129.   {
  130.    $row->{TYPE} = "FILS";
  131.   }
  132.   else
  133.   {
  134.    $row->{TYPE} = "PERE";
  135.   }
  136.   $row->{STARTED} = 0;
  137.  }
  138.  $LEVEL+=1;
  139. }
  141. print Data::Dumper::Dumper @tabProc;
  142. print "LEVEL : $LEVEL\n";
  145. my $RETOUR;
  146. my @tabProc_temp=();
  147. my @tabProcEnCours;
  148. my @tabProcFini;
  149. #my $i=0;
  151. my %options = (
  152. create    => 1,
  153. exclusive => 0,
  154. mode      => 0644,
  155. destroy   => 0,
  156. );
  158. print "tabProcFini: @tabProcFini\n";
  159. print "tabProcEnCours: @tabProcEnCours\n";
  160. print "tabProc_temp: @tabProc_temp\n";
  161. tie @tabProc_temp, 'IPC::Shareable', 'tie1', \%options;
  162. tie @tabProcEnCours, 'IPC::Shareable', 'tie2', \%options;
  163. tie @tabProcFini, 'IPC::Shareable', 'tie3', \%options;
  164. @tabProcEnCours=();
  165. @tabProcFini=();
  166. @tabProc_temp=@tabProc;  #tabProc_temp contient la copie de la liste des processus existants.
  168. print "tabProc_temp: @tabProc_temp\n";
  169. my $pm = new Parallel::ForkManager(10);
  170. while( @tabProc_temp )  #Tant que le tableau des processus n'est pas vide
  171. {
  172.  #$i=0;
  173.  foreach my $row (@tabProc_temp)  #pour chaque processus
  174.  {
  176.   my $ID = $row->{ID_PROCESS};
  177.   my $LOCK = $row->{LOCK};
  178.   my $TYPE = $row->{TYPE};
  179.   my $PERE = $row->{PERE};
  181.   print "tabProcFini : @tabProcFini\n";
  182.   print "tabProcEnCours : @tabProcEnCours\n";
  183.   print "PROCESS $ID lets work on it! \n";
  185.   my %hashEncours = map{$_ => 1} (@tabProcEnCours);
  187.   if (exists $hashEncours{$ID})  #si le processus est en cour de traitemet
  188.   {
  189.    print "PROCESS $ID already forked! \n";
  190.    print "PROCESS ","$ID Let's try another process \n\n";
  191.   }else
  192.   {
  193.    if ($LOCK == "0" ) #si le processus est bloqué (dans ce test code, il ne l'est jamais)
  194.    {
  195.     $RETOUR = "Not OK";
  197.     if ($RETOUR eq "OK" ) #si le retout est OK (dans ce test code, il ne l'est jamais)
  198.     {
  199.      print "PROCESS","$ID is Running \n";
  200.      push(@tabProcFini,$ID);
  201.      print "\n";
  202.     }
  203.     else
  204.     {
  205.      print "PROCESS ","$ID is Stopped \n";
  207.      if ($TYPE eq "PERE-0" ) #si le processus en cour de traitement est tout en haut de l'arbre (donc que lui meme n'a pas de pere)
  208.      {
  209.       $pm->start and next; # je lance un fork
  210.       my $ID_inFork = $ID;
  212.       (tied @tabProcEnCours)->shlock;
  213.       push(@tabProcEnCours,$ID_inFork);  #j'ajoute le processus dans le tableau des processus en cour de traitement
  214.       (tied @tabProcEnCours)->shunlock;
  216.       sleep 1;  # je fais un sleep pour simuler le temps de traitement du processus
  218.       (tied @tabProc_temp)->shlock;
  219.        my @indextoremove = ();
  220.        foreach my $row_inFork (0..$#tabProc_temp) {
  221.         push(@indextoremove, $row_inFork) if ($tabProc_temp[$row_inFork]->{ID_PROCESS} == $ID_inFork )
  222.        }
  223.        foreach ((reverse @indextoremove)) {
  224.         splice(@tabProc_temp, $_, 1);
  225.        }
  226.       (tied @tabProc_temp)->shunlock;
  229.       (tied @tabProcFini)->shlock;
  230.        push(@tabProcFini,$ID_inFork);  # j'ajoute le processus dans le tableau contenant les processus fini
  231.       (tied @tabProcFini)->shunlock;
  233.       (tied @tabProcEnCours)->shlock;
  234.        my %hashTabProcEnCours = map{$_ => 1} (@tabProcEnCours);
  235.        delete $hashTabProcEnCours{$ID_inFork};
  236.        @tabProcEnCours=keys(%hashTabProcEnCours);
  237.       (tied @tabProcEnCours)->shunlock;
  239.       print "PROCESS ","$ID_inFork well started outside \n\n";
  240.       $pm->finish;
  241.      }else
  242.      {
  243.       my @tab1 = split(/ /,$PERE);
  244.       my $tailletab1 = scalar @tab1;
  245.       my @tab2=@tabProcFini;
  246.       my %hash = map{$_ => 1} (@tab1, @tab2);
  247.       my @tab = keys %hash;
  248.       my $nombre_elements_commun = @tab1 + @tab2 - @tab;
  250.       if($nombre_elements_commun == $tailletab1)
  251.       {
  252.        $pm->start and next; # je lance un fork
  253.        my $ID_inFork = $ID;
  254.        my $PERE_inFork =$PERE;
  256.        (tied @tabProcEnCours)->shlock;
  257.         push(@tabProcEnCours,$ID_inFork); #j'ajoute le processus dans le tableau des processus en cour de traitement
  258.        (tied @tabProcEnCours)->shunlock;
  260.        print "PROCESS ","$ID_inFork Parents: $PERE_inFork \n";
  261.        print "PROCESS ","$ID_inFork Les elements de la liste \"PERE\" du process $ID_inFork sont tous présents dans le tableau \@tabProcFini \n\n";
  263.        sleep 1; # je fais un sleep pour simuler le temps de traitement du processus
  265.        (tied @tabProc_temp)->shlock;
  266.         my @indextoremove = ();
  267.         foreach my $row_inFork (0..$#tabProc_temp) {
  268.          push(@indextoremove, $row_inFork) if ($tabProc_temp[$row_inFork]->{ID_PROCESS} == $ID_inFork )
  269.         }
  270.         foreach ((reverse @indextoremove)) {
  271.          splice(@tabProc_temp, $_, 1);
  272.         }
  273.        (tied @tabProc_temp)->shunlock;
  275.        (tied @tabProcFini)->shlock;
  276.         push(@tabProcFini,$ID_inFork);  # j'ajoute le processus dans le tableau contenant les processus fini
  277.        (tied @tabProcFini)->shunlock;
  279.        (tied @tabProcEnCours)->shlock;
  280.         my %hashTabProcEnCours = map{$_ => 1} (@tabProcEnCours);
  281.         delete $hashTabProcEnCours{$ID_inFork};
  282.         @tabProcEnCours=keys(%hashTabProcEnCours);
  283.        (tied @tabProcEnCours)->shunlock;
  285.        print "PROCESS ","$ID_inFork well started inside\n\n";
  286.        $pm->finish;
  287.       }else
  288.       {
  289.        print "PROCESS ","$ID Les elements de la liste \"PERE\" du process $ID NE sont PAS tous présents dans le tableau \@tabProcFini \n";
  290.        print "PROCESS ","$ID Let's try another process \n\n";
  291.       }
  292.      }
  293.      $RETOUR = "OK";
  294.      if ($RETOUR ne "OK" )
  295.      {
  296.      print "PROCESS","$ID not started \n";
  297.      exit(1);
  298.      }
  299.     }
  300.    }
  301.    else
  302.    {
  303.     print "PROCESS","$ID is Locked !!! \n";
  304.     push(@tabProcFini,$ID);
  305.     print "\n";
  306.    }
  307.   }
  308.   sleep 1;
  309.   #$i++;
  310.   #print "tabProc_temp : \n";
  311.   #print Data::Dumper::Dumper @tabProc_temp;
  312.  }
  313. }
  314. $pm->wait_all_children;
  315. print "tabProc_temp : \n";
  316. print Data::Dumper::Dumper @tabProc_temp;
  317. print "tabProcFini : @tabProcFini\n";
  318. print "tabProcEnCours : @tabProcEnCours\n\n";

Reply

Marsh Posté le 19-12-2011 à 11:48:01    

Excellent!  
C'était codé sans visibilité (je suis sous un environnement Windows ou certains modules ne sont pas disponibles) et je ne pouvais donc pas tester ce code.
A+,


---------------
There's more than what can be linked! --  Le capitaine qui ne veut pas obéir à la carte finira par obéir aux récifs. -- Il ne faut plus dire Sarkozy, mais Sarkozon -- (╯°□°)╯︵ ┻━┻
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed