Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
2711 connectés 

  FORUM HardWare.fr
  Programmation
  Perl

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

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

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

n°2039641
dreamkille​r
Posté le 02-12-2010 à 13:57:54  profilanswer
 

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
mood
Publicité
Posté le 02-12-2010 à 13:57:54  profilanswer
 

n°2039657
dreamkille​r
Posté le 02-12-2010 à 14:26:06  profilanswer
 

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

n°2039731
gilou
Modérateur
Modzilla
Posté le 02-12-2010 à 19:01:41  profilanswer
 

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é!  --
n°2039815
dreamkille​r
Posté le 03-12-2010 à 10:38:31  profilanswer
 

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.

n°2039840
dreamkille​r
Posté le 03-12-2010 à 12:07:18  profilanswer
 

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

n°2039866
gilou
Modérateur
Modzilla
Posté le 03-12-2010 à 14:37:24  profilanswer
 

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é!  --

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Perl

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

 

Sujets relatifs
Problème fonction strlen /ubuntu[JAVA] Probleme de generation de classes avec PowerAMC
[Résolu] Probleme d'unicité dans un HashSetGros problème d'antislash et quote
Problème balise metaProblème MACRO filtre auto passage v2007 - v2003
Structure + Tableau dynamique en langage C[CSS] Problème avec .class et id
[Python 2.7]Py2exe - probleme de dépendancesPassage de tableau lors d'un changement de page.
Plus de sujets relatifs à : [PERL] Probleme de splice avec un tableau a 2 dimensions

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.065 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR