boucle if en perl

Bonjour à tous ,

j'ai un fichier du type :

a b 1 8 9636 2
c d 1 8 9636 50
e f 1 8 9636 1 # cette ligne doit etre retirée
g h 1 8 9636 1 # j'aimerai retirer cette ligne
i j 1 8 9636 3
k l 0 8 9636 1 # cette ligne aussi doit etre retirée

et je souhaiterai ecrire dans un autre fichier, seulement les lignes pour lesquelles :
la valeur de la colonne 3 est differente de 0
si la colonne 1 a pour valeur 1, il faut que la valeur de la colonne 4 soit different de 1
ou si la colonne 1 a pour valeur 1, il faut que la valeur de la colonne 6 soit different de 1

j'ai ecris ceci :

Code:

---

if(($intersect > 0) && (($intersect==1 && scalar(@s1)!=1 ) ||( $intersect==1 && scalar(@s2)!=1)) )

---

mais ca ne fonctionne pas ..

Merci pour votre aide !


PS : $intersect = 3eme colonne
scalar(@s1) = 4eme colonne
scalar(@s2)= 6eme colonne

Etrange de considérer que scalar(@s1) et scalar(@s2) puissent correspondre à la valeur d'une colonne, vu que scalar(@tableau) retourne la taille du tableau @tableau.

Pourrais-tu fournir le script complet ?

Par ailleurs, il semble y avoir une incohérence entre ta description textuelle de l'algorithme (qui parle de colonne 1) et la légende qui indique que $intersect correspond à la colonne 3.

En fait j'ai fait un hash de hash et scalar(@s1) est bien la taille de mon tableau.
Voici mon script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

while (<KEY2SIGN>) { s/[\r\n]//g; my($onto,$keywordID,$keyword,$sign)=split "\t"; $k2s{"$onto;$keywordID;$keyword"}{$sign}++; }   foreach my $k1 (keys %k2s){   foreach my $k2 (keys %k2s){ if($k1 ne $k2){   $k1 =~ /(.*?);/; my $onto1 = $1;   $k2 =~ /(.*?);/; my $onto2 = $1;   if($onto1 != $onto2){   my @s1 = keys (%{$k2s{$k1}}); # scalar(@s1) renvoit la longueur de la liste donc le nombre de signature pr mt clé 1 my @s2 = keys (%{$k2s{$k2}}); my %hash = map{$_ => 1} (@s1, @s2); my @tab = keys %hash; my $intersect = @s1 + @s2 - @tab; # renvoi le nombre de signatures communes aux deux listes if(($intersect > 0) && (($intersect==1 && scalar(@s1)!=1 ) ||( $intersect==1 && scalar(@s2)!=1)) ){ print ECRIRE $k1,"\t",$k2,"\t",$intersect, "\t", scalar(@s1),"\t",$S-scalar(@s1), "\t",scalar(@s2),"\n"; } } } } }

---

Oui je me suis trompée, $intersect correspond bien à la colonne 3.

Dès que j'aurai un peu plus de temps, je regarderai ton script, cependant, je note dores-et-déjà que tu découpes chaque ligne dans 4 variables (split), alors que ton exemple montre 6 colonnes... Pourrais-tu clarifier le fichier d'exemple (le mettre par exemple en pièce jointe).

boucle if !!!! :roll:

En lisant un peu plus loin ton script, j'avoue ne pas comprendre du tout la complexité et l'utilité, alors qu'à la base, il s'agit vraisemblablement d'un simple filtrage.

Par exemple, ce code est erroné (et je cherche encore son utilité) :

Code:

---

1 2	$k1 =~ /(.*?);/; my $onto1 = $1;

---

La recherche de motif se fait sur $_, qui n'est pas affecté avant.

Ces lignes :

Code:

---

1 2 3 4 5

my @s1 = keys (%{$k2s{$k1}}); # scalar(@s1) renvoit la longueur de la liste donc le nombre de signature pr mt clé 1 my @s2 = keys (%{$k2s{$k2}}); my %hash = map{$_ => 1} (@s1, @s2); my @tab = keys %hash; my $intersect = @s1 + @s2 - @tab; # renvoi le nombre de signatures communes aux deux listes

---

peuvent se résumer à :

Code:

---

1 2	use $intersect = @s1 + @s2 - uniq(@s1, @s2);

---

(sauf erreur).
Mais j'ai du mal à en voir l'utilité.

En reprenant ta spécification de départ, j'arrive au script suivant :

Code:

---

1 2 3 4 5 6 7 8

use strict; use warnings;   while (<>) { my(undef, undef, $keyword, $sign, $col5, $col6) = split /\t/;   print if $keyword == 1 && $sign != 1 && $col6 != 1; }

---

qui sélectionne toutes les lignes pour lesquelles keyword vaut 1 et colonne 4 et 6 sont différentes de 1, car tu n'as pas indiqué accepter des lignes dont keyword vaudrait plus que 1, quelque soit les autres colonnes.
Mais je doute que ce soit ce que tu souhaites. Re-spécifie complètement ton besoin, qui n'est ni clair, ni complet, à mon avis.

J'ai fini par trouver :

Code:

---

if (($intersec==1 && $k1 > 1 && $k2 > 1) || ($intersec>1))

---

Merci a tous !

Tu ne m'as pas vraiment éclairé sur la complexité (que je trouve injustifiée) de ton script, par rapport à ta spécification qui semblait pourtant assez simple :cry:

Desolée !
En fait les informations de la premieres colonne et de la deuxième colonnes sont de la forme :

nombre;une_info;une_autre_info
et je souhaitais traiter ces données seulement en fonction de la donnée "nombre" d'ou :
$k1 =~ /(.*?);/;
de cette facon, $k1 prend pour valeur mon nombre !

Ce n'était pas évident à voir dans l'exemple cité en début de fil... 8O

Quant à la recherche d'intersection, l'utilisation du hash et des tableaux s1, s2 ... :oops:

Mais merci pour les explications.