Discussion :

[kuinsy13]

Bonjour,

Apres avoir etudie il y a quelques annees les rudiments du C++, je me remets a la programmation a travers le langage PERL, et les debuts sont difficiles...

J'aimerais creer un programme qui ouvre deux fichiers txt, exporte les donnees (coordonnees de point(x,y,z))de chaque fichier et les regroupe dans un seul fichier apres avoir transforme la column z par -z.

pour mon premier programme en perl je subis un bel echec,... mon message d erreur est:
can't use string "00" as an array ref while "strict refs" in use

Merci

[MarneusCalgarXP]

Hmm, il faudrait déjà que tu penses à identer le code, ca te permettrait d'y voir un peu plus clair.

Ton problème vient à mon avis des lignes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

push @matrix1, [@line];

à remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

push @matrix1, \@line;

PS : au lieu d'écrire du code du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
if  ( $name1 =~ /.txt/ )
{}
else{$name1.= '.txt' ;}

tu pourrais écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if  ( $name1 !~ /.txt/ ) {$name1.= '.txt' ;}

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

unless ($name1 =~ /.txt/)  {$name1.= '.txt' ;}

ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

$name1.= '.txt' , unless ($name1 =~ /.txt/) ;

[kuinsy13]

merci beaucoup pour ton aide, cependant, je suis encore bloque.

J'ai fais les modifications que tu m as apporte et essaye de nombreuse autres choses..

Mon prgramme compile desormais, mais il ne fait pas ce que je lui demande. je pense savoir ou il ne comprend plus (en gras dans le text), problem avec push je pense...

Quelqu un a t il un peu de temps pour me conseiller?

En cherchant sur internet, avant de vous contacter, pour expliquer mes messages d erreur precedent, j ai appris que certains d entre eux pouvait venir du fait que j utilise PERL5.

Je vous laisse mon programme, et vais continue de chercher de mon cote

Merci

[MarneusCalgarXP]

Désolé, mais sur ce forum, on ne débug pas de programmes complets. Isole la partie qui bloque, et pose une question plus précise...

[scaleo]

heu juste une question dans ton code tu écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
foreach $line2 (<fichier2>)
{
chomp($line2);
@ref2 = split(" ",$line2);
push (@matrix,/@ref2);
}

ce qui me fait tiquer c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

/@ref2

c'est une erreur non ? parce que je connais \@ref2 mais pas /@ref2

merci d'éclairer ma lanterne

[kuinsy13]

merci pour vos reponses. En effet, /@ref2 etait une erreur de ma part,...avant d envoyer le code, je n y voyais plus vraiment clair sachant que j ai changé ces lignes une bonne dizaine de fois.

Je joins la partie du programme qui ne semble pas compiler. Fichier3 se creer, cependant il reste vide. le tableau @matrix qu j essaie de creer a partir de deux fichiers dont leur contenue devraient etre concatenés dans @matrix, ne marche pas. Mon probleme vient de mes boucles foreach, mais j ai besoin d aide pour les ameliorer.


Merci

[MarneusCalgarXP]

Le problème vient surtout de ta dernière boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
foreach $line (@matrix)
{
chomp($line);
@data = split(" ",$line); 
$data[2]*=-1 , unless ($data[2]<0);
print fichier3 "\t[@data],\n";
}
close (fichier3) || die "Problème à la fermeture : $!";

Dans ton tableau @matrix, tu as mis des références de tableau, pas des chaines de caractère !!! tu les as déjà splittées.. Ca devrait plutot ressembler à ca:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
foreach $dataRef (@matrix)
{
$$dataRef[2]*=-1 , unless ($$dataRef[2]<0);
print fichier3 "\t[@$dataRef],\n";
}

[kuinsy13]

merci une fois de plus pour vos reponses.

Mais mon programme ne marche toujours pas, et meme aprs maintes modofications, pas moyen qu il me fasse plaisir.

J aimerais que ce programme copie le contenue de deux fichiers dans un tableau que j ai nomme @matrix

J ai maintenant initialiser mon tableau:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
for($t=0;$t<$total;$t++)
{
$matrix[$t][0]=0;
$matrix[$t][1]=0;
$matrix[$t][2]=0;
}

avec $total le nombre de ligne contenu dans mes fichiers.txt.

ensuite je cree des boucles sur chaque fichier et les copie dans mon tabeau @matrix;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$k=0;
foreach $line1 (<fichier1>)
{
print $$line1[0];
chomp($$line1);
$matrix[$k][0]=$$line1[0];
$matrix[$k][1]=$$line1[1];
$matrix[$k][2]=$$line1[2];
$k=$k+1;
}
 
foreach $line2 (<fichier2>)
{
chomp($line2);
$matrix[$k][0]=$$line2[0];
$matrix[$k][1]=$$line2[1];
$matrix[$k][2]=$$line2[2];
$k++;
}

ou encore;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
while ($line2 =<fichier2>)
{
chomp($line2);
push(@matrix,$line2);
}

et ca ne marche pas,...
Mon fichier de sortie dans lequel je copie a la fin @matrix contient un tableau de zero; celui genere lors de l initialisation.

Puis je demander une nouvel fois de l aide?

Merci
J attache mon programme au cas ou cela serait utile.

[kuinsy13]

ps: meme lorsque j insere dans ma boucle foreach en premiere ligne d execution: print $$line1[0]; cela ne donne rien.
Savait vous pourquoi?