[PERL] Probleme de splice avec un tableau a 2 dimensions

Probleme de splice avec un tableau a 2 dimensions [PERL] - Perl - Programmation

Marsh Posté le 02-12-2010 à 13:57:54    

Bonjour, j'ai un soucis avec une insertion de ligne dans un tableau a 2 dimension.
 
Je m'explique, jutilise ce code pour faire mon insertion (qui est en faite une duplication de la ligne dans le tableau)
 

Code :
  1. my $replacement = $tab_temp[$nb_ligne];
  2. $nb_ligne++;
  3. splice @tab_temp,$nb_ligne, 0, $replacement;


 
le soucis arrive quand je souhaite faire une modification sur une des lignes 2 lignes précédentes, la modification est répercuté sur les deux lignes en meme temps...
 
Je pense qu'il y a un soucis avec l'adressage lors de la définition de la variable $replacement mais je ne voie pas comment procéder autrement.
 
 
je ne sais pas si je suis bien clair   :heink:  
 
En vous remerciant d'avance


Message édité par dreamkiller le 02-12-2010 à 14:35:29
Reply

Marsh Posté le 02-12-2010 à 13:57:54   

Reply

Marsh Posté le 02-12-2010 à 14:26:06    

Le soucis viens clairement de la ligne  

Code :
  1. my $replacement = $tab_temp[$nb_ligne];


 
la variable $replacement contient a chaque fois un truc comme ca:
ARRAY(0x40087cf8)
 
Elle devrait avoir une liste de valeur a la place

Reply

Marsh Posté le 02-12-2010 à 19:01:41    

Si on pouvait voir le reste du code: définitions de @tab_temp, $nb_ligne, contenu de $tab_temp, on pourrait avoir une idée de la cause du pb.
A priori, si je pige bien, les éléments de @tab_temp sont des arrays? auquel cas, une réponse comme ARRAY(0x40087cf8) est tout à fait normale, $replacement étant défini comme un scalaire.
A+,


Message édité par gilou le 03-12-2010 à 03:36:20

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Marsh Posté le 03-12-2010 à 10:38:31    

Salut merci pour ton aide.
 
Je pense que le code est loin d'etre propre (mes cours de dev sont loin...)
 
 

Code :
  1. sub creloctac (){
  5. my $add_line=0;
  7. my $nb_ligne=0;
  8. my @tab_temp;
  9. $tab_temp[0]=$tab_valeur[0];              ###entete
  11. for (my $j=1;$j<=$tab_index_ligne;$j++)
  12. {
  13.  my $tache_creloctac=$tab_valeur[$j][2];
  15.  $nb_ligne++;
  16.  $tab_temp[$nb_ligne]=$tab_valeur[$j];
  18.  my $deuxieme_passage=0;
  20.  open(my $handle_list_tache_creloctac,  "<", $list_tache)  or die "Can't open $list_tache: $!"; #####Ouverture du fichier TACHES en mode lecture
  21.  while (<$handle_list_tache_creloctac> ) ####Parcourt du fichier en mode ligne a ligne
  22.  {
  23.   $add_line=0;
  24.   my $ligne=$_;
  25.   if ($ligne=~ /CRELOCTAC,/)   ####Si la ligne commence par CRELOCTAC, alors
  26.   {
  27.    if ($ligne=~/TACHE=$tache_creloctac,/) ###Si la ligne contient TACHE=matache, alors
  28.    {
  29.     if ($ligne=~ /LOC=(\w+),/)
  30.     {
  31.      $loc=$1;
  32.      $add_line=1;
  33.     }
  35.     if ($ligne=~ /DEFACT=(\w+),/) #### Si la ligne contient DEFACT=N, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  36.     {
  37.      $defact=$1;
  38.      $add_line=1;
  39.     }
  41.     if ($ligne=~ /CONDACT=(\w+),/) #### Si la ligne contient CONDACT=macond, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  42.     {
  43.      $condact=$1;
  44.      $add_line=1;
  45.     }
  47.     if ($ligne=~ /DEFPRO=(\w+),/) #### Si la ligne contient DEFPRO=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  48.     {
  49.      $defpro=$1;
  50.      $add_line=1;
  51.     }
  53.     if ($ligne=~ /,DEFEXT=(\w+|\*?),/) #### Si la ligne contient DEFEXT=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  54.     {
  55.      $defext=$1;
  56.      $add_line=1;
  57.     }
  59.     if ($ligne=~ /DEFSNB=(\w+),/) #### Si la ligne contient DEFSNB=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  60.     {
  61.      $defsnb=$1;
  62.      $add_line=1;
  63.     }
  65.     if ($ligne=~ /DEFSWT=(\w+),/) #### Si la ligne contient DEFSWT=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  66.     {
  67.      $defswt=$1;
  68.      $add_line=1;
  69.     }
  71.     if ($ligne=~ /DEFLBL=(\w+),/) #### Si la ligne contient DEFLBL=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  72.     {
  73.      $deflbl=$1;
  74.      $add_line=1;
  75.     }
  77.     if ($ligne=~ /DEFCYC=(\w+),/) #### Si la ligne contient DEFCYC=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  78.     {
  79.      $defcyc=$1;
  80.      $add_line=1;
  81.     }
  83.     if ($ligne=~ /DEFCPT=(\w+),/) #### Si la ligne contient DEFCPT=O, alors on recupere dans la variable $1 le contenue de ce qui se trouve entre le = et la ,
  84.     {
  85.      $defcpt=$1;
  86.      $add_line=1;
  87.     }
  89.     if ($add_line != 0)
  90.     {
  91.      if ($deuxieme_passage==0)
  92.      {
  93.       $tab_temp[$nb_ligne][12]=$loc;
  94.       $tab_temp[$nb_ligne][13]=$defpla;
  95.       $tab_temp[$nb_ligne][14]=$defact;
  96.       $tab_temp[$nb_ligne][15]=$condact;
  97.       $tab_temp[$nb_ligne][16]=$defpro;
  98.       $tab_temp[$nb_ligne][17]=$defext;
  99.       $tab_temp[$nb_ligne][18]=$defsnb;
  100.       $tab_temp[$nb_ligne][19]=$defswt;
  101.       $tab_temp[$nb_ligne][20]=$deflbl;
  102.       $tab_temp[$nb_ligne][21]=$defcyc;
  103.       $tab_temp[$nb_ligne][22]=$defcpt;
  105.       &ecriture_fichier($loc,$defpla,$defact,$condact,$defpro,$defext,$defsnb,$defswt,$deflbl,$defcyc,$defcpt,"\n" );
  106.       $deuxieme_passage=1;
  107.      }
  108.      else
  109.      {
  111.       my @replacement;
  113.       for(my $k=0;$k<$tab_index_champs;$k++)
  114.       {
  115.        push (@replacement,$tab_temp[$nb_ligne][$k]);
  116.       }
  118.       #print "@replacement\n";
  119.       $nb_ligne++;
  120.       splice @tab_temp,$nb_ligne, 0, @replacement;
  122.       # $tab_temp[$nb_ligne][12]=$loc;
  123.       # $tab_temp[$nb_ligne][13]=$defpla;
  124.       # $tab_temp[$nb_ligne][14]=$defact;
  125.       # $tab_temp[$nb_ligne][15]=$condact;
  126.       # $tab_temp[$nb_ligne][16]=$defpro;
  127.       # $tab_temp[$nb_ligne][17]=$defext;
  128.       # $tab_temp[$nb_ligne][18]=$defsnb;
  129.       # $tab_temp[$nb_ligne][19]=$defswt;
  130.       # $tab_temp[$nb_ligne][20]=$deflbl;
  131.       # $tab_temp[$nb_ligne][21]=$defcyc;
  132.       # $tab_temp[$nb_ligne][22]=$defcpt;
  134.      }
  135.     }
  136.    }
  137.   }
  138.  }
  139.  close $handle_list_tache_creloctac or die "Can't close $list_tache: $!";  ### Fermeture du fichier TACHE2
  140. }


 
 
Le code que j'ai donné au depart a quelque peu changé du coup maintenant j'ai une erreur d'un autre type
 

Code :
  1. Can't use string ("V2_XCH_CHJ_1_JOURNALIER" ) as an ARRAY ref while "strict refs" in use at ./concatenation_extraction_vega3.pl line 243.


 
Pour le contenu de tab_val et tab_temp se sont des tableaux de tableaux donc oui j'ai compris que ARRAY 0x ..... c'etait normal.

Reply

Marsh Posté le 03-12-2010 à 12:07:18    

je pense avoir solutionné le probleme  
 
splice (@tab_temp,$nb_ligne, 0, \@replacement);
 
un tableau a 2 dimensions, c'est un tableau de pointeur donc il faut lui passé une adresse de tableau et non des valeurs.
 
Reste a confirmer que tout fonctionne correctement

Reply

Marsh Posté le 03-12-2010 à 14:37:24    

Citation :

un tableau a 2 dimensions, c'est un tableau de pointeur donc il faut lui passé une adresse de tableau et non des valeurs.

Perl 5 n'a pas de telle structure de données.
Il ne connait que les tableaux simples, dont les éléments sont des scalaires.
Si ces scalaires sont les adresses d'autres tableaux, on peut simuler la notion de tableau à 2 dimensions, mais cela n'a rien d'un type de données intrinsèque à Perl.
En perl 6, la notion de tableau multi dimensionnel a été ajoutée, et bien plus: http://perlcabal.org/syn/S09.html .
A+,


Message édité par gilou le 03-12-2010 à 14:41:53

---------------
There's more than what can be linked! --    Iyashikei Anime Forever!    --  AngularJS c'est un framework d'engulé!  --
Reply

Sujets relatifs:

Leave a Replay

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