Discussion :

[étoile de mer]

Bonjour à tous
Je decris mon probleme :
j'ai un sous chaine de caractree "xx" que j'extrais a partir d'un fichier fich1 ,
J'aimerai savoir comment faire pour chercher cette cous chaine dans un fichier fich2 et afficher tout la ligne que contient cette sous chaine.
Sachant que mon probleme cest :
si jai cette sous chaine : of the ->"
jaime pas quil afiche la ligne qui contient
"and of the ->"
:/

MErci d'avance

[Peps16]

Coucou, je suis pas sûr d'avoir tout compris mais voici une proposition qui t'aidera peut être.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
my $file = "path/fich2.txt";
my $substring = "xx";
 
open(FILE, $file);
while( <FILE> ){
  if( $_ =~ m/$substring/ ){
    $_ =~ s/(.*)and of the \->(.*)/$1$2/g if( $_ =~ m/of the \->/ );
    print $_;
  }
}
close(FILE);

@++

[Philou67430]

J'imagine que "xx" est une exemple littéral, mais qu'en réalité, c'est une valeur extraite d'un fichier, et est donc variable.

Pour anticiper sur ce point, j'aurais tendance à modifier le script proposé par :

Code :

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

my $substring = quotemeta("xx");

Ainsi, il est facile de remplacer "xx" par n'importe quelle variable scalaire, et la regexp fonctionnera toujours correctement.

A la place d'une recherche par regexp du motif "xx", on peut aussi utiliser la fonction index (et dans ce cas, on doit se passer que quotemeta également).

[étoile de mer]

Je pense que c'est mieux de charger tout le second fichier dans une table de hachage, comme ca sera plus efficace.. pas la peine de refaire à chaque fois le passage de fichier...

[étoile de mer]

J'imagine que "xx" est une exemple littéral, mais qu'en réalité, c'est une valeur extraite d'un fichier, et est donc variable.

Pour anticiper sur ce point, j'aurais tendance à modifier le script proposé par :

Code :

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

my $substring = quotemeta("xx");

Ainsi, il est facile de remplacer "xx" par n'importe quelle variable scalaire, et la regexp fonctionnera toujours correctement.

A la place d'une recherche par regexp du motif "xx", on peut aussi utiliser la fonction index (et dans ce cas, on doit se passer que quotemeta également).

Merci Philou67430 pour votre reponse,
En fait oui, vous avez raison, "xx" ce n'est qu'un exemple
mais en realité j'ai un fichier de texte sous cette forme :
de+la -> of (0.069487)

J'aimerai extraine la chaine de caractere qui se trouve à gauche de la fleche qui est ici "de+la"
avez vous une piste qui m'aidera à extraire ces sous chaine?
MErci

[Philou67430]

Oui, bien sur :

Code :

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

1
2
3
4
5
6
7
 
open my $FIC1, "<", "fic1.txt" or die "Can't open fic1.txt: $!";
while (<$FIC1>) {
  if (my ($substring) = /^(.*?)\s*->\s*of/) {
    # traiter $substring
  }
}

[étoile de mer]

Oui, bien sur :

Code :

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

1
2
3
4
5
6
7
 
open my $FIC1, "<", "fic1.txt" or die "Can't open fic1.txt: $!";
while (<$FIC1>) {
  if (my ($substring) = /^(.*?)\s*->\s*of/) {
    # traiter $substring
  }
}

Merci philou,
Mais c'est pas toujours qu'il ya le "of"
je veux juste la chaine avant la "->"
Merci

[Lolo78]

Alors quelque chose comme cela, sans doute:

Code :

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

if (my ($substring) =~ /^(.*?)\->/) { # ...

qui devrait capturer dans $1 ce qui précède le premier "->".

A toi de virer les espaces inutiles le cas échéant.

[Philou67430]

Alors quelque chose comme cela, sans doute:

Code :

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

if (my ($substring) =~ /^(.*?)\->/) { # ...

qui devrait capturer dans $1 ce qui précède le premier "->".

A toi de virer les espaces inutiles le cas échéant.

En fait, cette expression capture directement dans $substring (ce qui est tout son intérêt)

[étoile de mer]

Merci beaucoup pour vos reponses
Probleme resolu!