Discussion :

[Isabella83]

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 :

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

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

[Philou67430]

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.

[Isabella83]

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

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
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.

[Philou67430]

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).

[Sve@r]

boucle if !!!!

[Philou67430]

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 :

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

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

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

Ces lignes :

Code :

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

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 :

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

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 :

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

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.