Discussion :

[siham_06]

Bonjour,
j'ai un problème avec les expressionss régulières, je voudrais lire et afficher à partir d'un fichier la séquence : [NP ] voilà ce que j'ai fait mais ça marche pas:

Code :

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

1
2
3
4
5
6
open(fid,"soil5.txt")|| die ("couldn't open soil5.txt!");
 while (fid)
	{if($_ =~/\[NP (.*)\]/)
         {print $_;}
	}
 close(fid);

[djibril]

oublie pas la prochaine fois de mettre ton code entre balise code.
sinon pour ton souci, à quoi ressemble ton fichier, du moins uns portion de ce que tu veux!!

[stoyak]

avec NP, ça donne comme indice ... un fichier avec des sequences proteiques?
donc un bioinformaticien?

Code :

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

1
2
3
4
5
6
7
8
 
open(FIC,"soil5.txt")|| die ("couldn't open soil5.txt!"); 
       while ($ligne=<FIC>) {
               if ($ligne =~/\[NP (.*)\]/) {
                   print "$ligne"\n;
               } 
       } 
close (FIC);

en ouvrant ainsi ton fichier, il aura moins de mal a trouver ce que tu veux!

[djibril]

+1 à stoyak!!

[siham_06]

mon fichier ressemble à :
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]
moi je veux extraire l'expression [NP ] entre crochet et l'afficher

merci

oublie pas la prochaine fois de mettre ton code entre balise code.
sinon pour ton souci, à quoi ressemble ton fichier, du moins uns portion de ce que tu veux!!

[djibril]

mon fichier ressemble à :
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]
moi je veux extraire l'expression [NP ] entre crochet et l'afficher

merci

oublie pas la prochaine fois de mettre ton code entre balise code.
sinon pour ton souci, à quoi ressemble ton fichier, du moins uns portion de ce que tu veux!!

c'est à dire??
tu veux afficher

Code :

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

 tHwl/NN tAryxy/JJ

et

Code :

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

 mkAfHp/NN

???

[chostrama]

Code :

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

1
2
3
4
5
6
7
8
 
open FIC, "<", "soil5.txt" or die("Impossible d'ouvrir le fichier soil5.txt: $!");
while ( <FIC> ) {
     while ( $_ =~ m!\[NP ([^\]]*)\]!g ) {
               print $1;
     }
}
close FIC;

Pas testé.

[siham_06]

oui c'est ce que je veux afficher

mon fichier ressemble à :
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]
moi je veux extraire l'expression [NP ] entre crochet et l'afficher

merci

oublie pas la prochaine fois de mettre ton code entre balise code.
sinon pour ton souci, à quoi ressemble ton fichier, du moins uns portion de ce que tu veux!!

c'est à dire??
tu veux afficher

Code :

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

 tHwl/NN tAryxy/JJ

et

Code :

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

 mkAfHp/NN

???

[djibril]

voilà une regex tres courte.

Code :

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

1
2
3
 
my @mes_motifs;
@mes_motifs = $ligne =~ /\[np([^\]]+)\]/gi;

t'auras dans chaque case de ton tableau les motifs trouvés.

[siham_06]

Code :

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

1
2
3
4
5
6
7
8
 
open FIC, "<", "soil5.txt" or die("Impossible d'ouvrir le fichier soil5.txt: $!");
while ( <FIC> ) {
     while ( $_ =~ m!\[NP ([^\]]*)\]!g ) {
               print $1;
     }
}
close FIC;

Pas testé.

J'ai un fichier texte qui est sous la forme :
[NP AlSyn/NNP] [VP ttTlE/VBP] [PP AlY/IN] [NP AlsyAHp/NN] [NP AlArADY/NN AlSHrAwyp/JJ]

je veux avoir en sortie que les NP entre crochet sans les slash par ex
AlSyn
AlsyAHp
AlArADY AlSHrAwyp
..
aprés je calcule leur fréquence.
j'ai écrit ce code mais ça marche pas
***************************************************
sub occurrence
{
my @word_list;
my @temp;
open(fid,$_[0]) || die ("couldn't open file.txt!");
while (<fid>)
{
while ($_ =~ m!\[NP ([^\]]*)\]!g )
{
@temp = "";
@temp = (@temp,split(/[\s\/]/,$1));
$i = 3;
while($i < $#temp)
{
$temp[1] .= " $temp[i]";
$i = $i + 2;
}
push(@word_list,$temp[1]);

}

}
close(fid);

foreach $word (@word_list)
{ print $word;
@{$occurrence_matrix{$word}}[$_[1]] ++;
}
delete $occurrence_matrix{""};
}
***************************************************
merci de m'aider

[djibril]

utilise les balises code

[tfe]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#
 
 while (<DATA>)
 {
    while ($_ =~ /\[NP (.+?)\]/g)
        {
            print "[NP  $1]\n";
        }
}                
 
 
__DATA__
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]

wala wala

[siham_06]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#
 
 while (<DATA>)
 {
    while ($_ =~ /\[NP (.+?)\]/g)
        {
            print "[NP  $1]\n";
        }
}                
 
 
__DATA__
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]

wala wala

étant donné que mon fichier est sous la forme :
[NP AlSyn/NNP] [VP ttTlE/VBP] [PP AlY/IN] [NP AlsyAHp/NN] [NP AlArADY/NN AlSHrAwyp/JJ]

je voudrais afficher que :
AlSyn
AlsyAHp
AlArADY AlSHrAwyp
sans leurs étiquettes.
merci pour ton aide

[tfe]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#
 
 while (<DATA>)
 {
    while ($_ =~ /\[NP (.+?)\]/g)
        {
            print $1."\n";
        }
}               
 
 
__DATA__
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]

...?

[siham_06]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
#!/usr/bin/perl -w
#
 
 while (<DATA>)
 {
    while ($_ =~ /\[NP (.+?)\]/g)
        {
            print $1."\n";
        }
}               
 
 
__DATA__
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]

...?

lorsque j'ai exécuté le code il m'a donné comme résultat par ex:
tHwl/NN tAryxy/JJ
or je veux afficher que :
tHwl tAryxy

merci de ton aide

[tfe]

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
#!/usr/bin/perl -w
#
 
 while (<DATA>)
 {
    while ($_ =~ /\[NP (.+?)\]/g)
        {
             my $var = $1;
             $var =~ s/\/..//g;
            print $var."\n";
        }
}               
 
 
__DATA__
[NP tHwl/NN tAryxy/JJ] [PP fy/IN] [NP mkAfHp/NN]