[Problème] lecture fichier entre ; et :

Ca ne serait pas plutôt à la seconde ligne que tu dois commencer?

Code:

---

if ($. > 1)

---

ou

Code:

---

if ($. >= 2)

---

au lieu de

Code:

---

if ($. >= 1)

---

Tu peux également supprimer le print Dumper (%Table); c'était juste pour que tu visualises ton tableau. Une fois que tu sais que c'est correct, tu peux l'enlever du code.


Jasmine,

Déjà, pour répondre sur ce que je viens de lire dans ton code :

Code:

---

if ($. >= 1)

---

Ca, c'est lorsque tu lis le contenu de ton fichier.

C'est inutile d'inclure ce genre de choses si tu comptes lire tout ton fichier. Autant t'en passer car par défaut, ton code va tout lire.

Code:

---

1 2 3

{ print("Erreur lecture de ligne"); }

---

Ici sinon, c'est dommage d'indiquer qu'il y a une erreur dans une ligne du fichier, mais autant ajouter la valeur de $. dans le print. Ce sera plus pratique pour repérer la ligne en erreur.

C'est parce qu'il faut éviter la première ligne
.... sinon supprime la manuellement.


Jasmine,

Les problèmes résolu merci

Code:

---

1 2 3 4 5

else { print("Erreur lecture de ligne : $."); }

---

&

Code:

---

1 2 3

if ($. >= 2) {

---

Code:

---

1 2 3

Voila si je veut maintenant chercher dans le tableaux et en retirer les information plus précisément Je cherche MR Martin Rene je l'est mit dans ma variable

---

Moi, je ferais des boucles sur toutes les valeurs de clé et je vérifierais par un

Code:

---

1 2 3 4

(if $cle eq "nom_prenom") { ecrire les classes et les cours }

---

^^ Allez, Maloute à ton tour de travailler un peu :P.


Jasmine,

Doit bien y avoir moyen via la fonction grep de Perl de trouver

En effet, ça serait plus stylé ... mais c'est déjà plus compliqué à écrire.


Jasmine,


http://perldoc.perl.org/functions/grep.html

Citation:

---

Envoyé par Jasmine80

En effet, ça serait plus stylé ... mais c'est déjà plus compliqué à écrire.


Jasmine,


http://perldoc.perl.org/functions/grep.html

---

Plus rapide qu'une recherche clé par clé ;)

Quand tu as 10 clés dans ton hachage, ça va mais imagine quand tu en as des millions :aie:

Code:

---

Plus rapide qu'une recherche clé par clé

---

Oui, tu as raison. Maintenant je commence à intégrer les map dans mes script :) je vais essayer de penser au grep plus souvent. Je crois que j'ai le cerf-volant c'est pour ça ^^.

Jasmine,

Citation:

---

Envoyé par Jasmine80

Code:

---

Plus rapide qu'une recherche clé par clé

---

Oui, tu as raison. Maintenant je commence à intégrer les map dans mes script :) je vais essayer de penser au grep plus souvent. Je crois que j'ai le cerf-volant c'est pour ça ^^.

Jasmine,

---

J'ai eu moi aussi du mal à m'y faire jusqu'au jour où un code à la c... :aie:m'a contraint d'utiliser grep. Ca m'a permi de gagner de précieuses minutes sur le temps de traitement.

Excuser moi vous étiez en plein discutions
mais je voudrais savoir si c'est ça grep :cry::D

Code:

---

1 2 3 4

my @s =undef; @s = grep { $_=MARTIN_RENE } @Table; print @s;

---

Vous affolé pas la syntaxe doit être totalement fausse
Mais je cherche comment grep fonctionne hihi :)
Google est mon ami d'enfance :)
(Jasmine80 & Arioch c'est met copain copine :oops:maintenant à oui c'est vrai <?)
oula Je part en sucette oO :roll:

de la doc sur la fonction grep : http://perldoc.perl.org/functions/grep.html

Une petite question @ correspond bien à mon tableau?

Parceque

Citation:

---

Global symbol "@Table" requires explicit package name at ./Prof.pl line 48.
Bareword "MARTIN_RENE" not allowed while "strict subs" in use at ./Prof.pl line 48.
Execution of ./Prof.pl aborted due to compilation errors.

---

ligne 48

Code:

---

1 2	@s = grep { $_=MARTIN_RENE } @Table;

---

Lis bien les 2 premières lignes du message d'erreur que Perl te retourne :aie:

ligne 1 : variable @table nécessite une déclaration dans le script avant emploi
ligne 2 : t'indiques qu'éventuellement, si tu mettais le terme MARTIN_RENE entre " ", ça marcherait mieux :mouarf:

J'ai une petite question d'intérêt personnel et je devrais peut-être refaire un nouveau post.

Voila ce que j'ai
$Table_MUT{$Position_MUT}{$Type_MUT}=$Score_MUT;
$Table_WT{$Position_WT}{$Type_WT}=$Score_WT;

et ce que je veux
1) Rechercher les positions n'étant pas communes
2) Pour les positions communes à MUT et WT vérifier que les types et les scores sont bien égaux

L'ennui c'est que je n'ai pas d'array pour utiliser la fonction grep.
Vaut-il mieux que je fasse des boucles ou alors que je crée des arrays contenant mes positions puis faire quelque chose qui ressemblerait à

Code:

---

my @Absent_Mut = grep(!exists($Table_MUT{$_}), @Positions_WT);

---

Merci,


Jasmine,



PS : j'ai refait un nouveau post.

my @Table=quelque chose donc mais je ne comprend pas trop bien si il nécessite une déclaration il faut qu'il reprenne le tableau d'avant
oula je suis perdu !!

Code:

---

1 2 3 4 5

#my @Table ; #Oo my @s =undef; @s = grep { $_="MARTIN_RENE" } @Table; print @s;

---

Coucou,

Je n'ai jamais utilisé grep mais à ta place j'essaierais

Code:

---

@s = grep ( !/MARTIN_RENE/, @Table);

---

Avec des parenthèses et non des crochets.


Jasmine,

Bonjour, après une bonne nuit de sommeil et de rêve sur Perl me revoilà.

Citation:

---

Code:

---

1 2	@s = grep ( !/MARTIN_RENE/, @Table);

---

---

Cela fonctionne beaucoup mieux mais si

Code:

---

1 2

print @s;

---

Ne m'affiche rien le problème vient de moi donc du code ou autre part?

D'avance merci.

Le problème vient du fait que tu manipules une array comme si c'était un scalaire. Tu dois utiliser une bouche foreach et appeler une à une les valeurs de ton tableau. Ou alors faire un "print join" sur ton array.

http://lhullier.developpez.com/tutor...e=page_5#LIV-1


Jasmine,

Citation:

---

Envoyé par Jasmine80

Le problème vient du fait que tu manipules une array comme si c'était un scalaire. Tu dois utiliser une bouche foreach et appeler une à une les valeurs de ton tableau. Ou alors faire un "print join" sur ton array.

http://lhullier.developpez.com/tutor...e=page_5#LIV-1


Jasmine,

---

Pas nécessairement, regarde :

Code:

---

1 2	@toto = ("titi", "tutu", "tata", "toto"); print @toto; # affiche tititututatatoto

---

C'est juste que son tableau @s ne contient rien.