Perl

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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Probleme de splice avec un tableau a 2 dimensions

dreamkiller

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 :

my $replacement = $tab_temp[$nb_ligne];
$nb_ligne++;
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

Publicité

dreamkiller

Le soucis viens clairement de la ligne

Code :

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

gilou

Modérateur
Modzilla

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

dreamkiller

Salut merci pour ton aide.

Je pense que le code est loin d'etre propre (mes cours de dev sont loin...)

Code :

sub creloctac (){
my $add_line=0;
my $nb_ligne=0;
my @tab_temp;
$tab_temp[0]=$tab_valeur[0]; ###entete
for (my $j=1;$j<=$tab_index_ligne;$j++)
{
my $tache_creloctac=$tab_valeur[$j][2];
$nb_ligne++;
$tab_temp[$nb_ligne]=$tab_valeur[$j];
my $deuxieme_passage=0;
open(my $handle_list_tache_creloctac, "<", $list_tache) or die "Can't open $list_tache: $!"; #####Ouverture du fichier TACHES en mode lecture
while (<$handle_list_tache_creloctac> ) ####Parcourt du fichier en mode ligne a ligne
{
$add_line=0;
my $ligne=$_;
if ($ligne=~ /CRELOCTAC,/) ####Si la ligne commence par CRELOCTAC, alors
{
if ($ligne=~/TACHE=$tache_creloctac,/) ###Si la ligne contient TACHE=matache, alors
{
if ($ligne=~ /LOC=(\w+),/)
{
$loc=$1;
$add_line=1;
}
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 ,
{
$defact=$1;
$add_line=1;
}
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 ,
{
$condact=$1;
$add_line=1;
}
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 ,
{
$defpro=$1;
$add_line=1;
}
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 ,
{
$defext=$1;
$add_line=1;
}
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 ,
{
$defsnb=$1;
$add_line=1;
}
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 ,
{
$defswt=$1;
$add_line=1;
}
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 ,
{
$deflbl=$1;
$add_line=1;
}
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 ,
{
$defcyc=$1;
$add_line=1;
}
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 ,
{
$defcpt=$1;
$add_line=1;
}
if ($add_line != 0)
{
if ($deuxieme_passage==0)
{
$tab_temp[$nb_ligne][12]=$loc;
$tab_temp[$nb_ligne][13]=$defpla;
$tab_temp[$nb_ligne][14]=$defact;
$tab_temp[$nb_ligne][15]=$condact;
$tab_temp[$nb_ligne][16]=$defpro;
$tab_temp[$nb_ligne][17]=$defext;
$tab_temp[$nb_ligne][18]=$defsnb;
$tab_temp[$nb_ligne][19]=$defswt;
$tab_temp[$nb_ligne][20]=$deflbl;
$tab_temp[$nb_ligne][21]=$defcyc;
$tab_temp[$nb_ligne][22]=$defcpt;
&ecriture_fichier($loc,$defpla,$defact,$condact,$defpro,$defext,$defsnb,$defswt,$deflbl,$defcyc,$defcpt,"\n" );
$deuxieme_passage=1;
}
else
{
my @replacement;
for(my $k=0;$k<$tab_index_champs;$k++)
{
push (@replacement,$tab_temp[$nb_ligne][$k]);
}
#print "@replacement\n";
$nb_ligne++;
splice @tab_temp,$nb_ligne, 0, @replacement;
# $tab_temp[$nb_ligne][12]=$loc;
# $tab_temp[$nb_ligne][13]=$defpla;
# $tab_temp[$nb_ligne][14]=$defact;
# $tab_temp[$nb_ligne][15]=$condact;
# $tab_temp[$nb_ligne][16]=$defpro;
# $tab_temp[$nb_ligne][17]=$defext;
# $tab_temp[$nb_ligne][18]=$defsnb;
# $tab_temp[$nb_ligne][19]=$defswt;
# $tab_temp[$nb_ligne][20]=$deflbl;
# $tab_temp[$nb_ligne][21]=$defcyc;
# $tab_temp[$nb_ligne][22]=$defcpt;
}
}
}
}
}
close $handle_list_tache_creloctac or die "Can't close $list_tache: $!"; ### Fermeture du fichier TACHE2
}

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

Code :

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.

dreamkiller

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

gilou

Modérateur
Modzilla

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

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 HashSet	Gros problème d'antislash et quote
Problème balise meta	Problè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épendances	Passage de tableau lors d'un changement de page.
Plus de sujets relatifs à : [PERL] Probleme de splice avec un tableau a 2 dimensions

Page générée en 0.111 secondes