High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

[PERL]Récupération chaîne caractère...

Dernière réponse le 28 fév 2006 à 07:22:22 Zep3k!GnO, le 10 nov 2005 à 10:18:13 
 Signaler ce message aux modérateurs

Bonjour à tous . . . :D
voilà j'expose direct le problème :
j'ai un fichier avec a plusieurs endroit : 

coucou@art[L. 125-65]blablablahh
coucou@art[L. 15-5-3]blablablahh
et autres du genre...


et ce que je veux fair c'est prendre ce qui est en gras afin de supprimmer de cette chaine tout caractère qui n'est pas un chiffre ni une lettre ni un '-' .
Bref mon soucis est que je vois pas comment faire pour récupérer ce qui est en gras dans une variable afin de le traiter avec une expression régulière et de le replacer dans mon fichier . . .

Donc si quelqu'un sait , MERCI de m'dire comment qu'on fait :D

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

Meilleures réponses pour « [PERL]Récupération chaîne caractère... » dans :
Javascript - Concaténation de chaînes de caractères VoirLe terme "concaténer" signifie joindre deux chaînes bout à bout pour n'en former qu'une seule. Dans la plupart des langages tels que PHP, la concaténation se fait avec le caractère ".". En javascript, il suffit d'utiliser le caractère plus (+) ou...
Les chaînes de caractères en C++ VoirQu'est-ce qu'une chaîne de caractères ? Une chaîne de caractères (appelée string en anglais) est une suite de caractères, c'est-à-dire un ensemble de symboles faisant partie du jeu de caractères, défini par le code ASCII. En langage C++, une...
Langage C - Les chaînes de caractères VoirQu'est-ce qu'une chaîne de caractères ? Une chaîne de caractères (appelée string en anglais) est une suite de caractères, c'est-à-dire un ensemble de symboles faisant partie du jeu de caractères, défini par le code ASCII. En langage C, une chaîne...
Javascript - Les chaînes de caractères VoirQu'est-ce qu'une chaîne de caractère Une chaîne de caractère est, comme son nom l'indique, une suite de caractères. On la représente par la suite de caractères encadrée par des guillemets simples (') ou doubles ("), sachant que les deux types de...
Posez votre question Répondre

1

Zep3k!GnO, le 10 nov 2005 à 10:49:27

J'ai déjà trouvé ça : 

while ($ligne = <>) 
{
	if($ligne=~m/@art\[([^\]]+)\]/)			#si je trouve @art[contenu] dans ma ligne.je traite le contenu
	{
			$inter=$1;                                 #POUR les tests
			$ligne="+$inter+ $ligne";   #POUR les tests
	}
		print ("$ligne");
	
}


Je trouve donc correctement les ligfnes ou mon occurence est présente mais le problème est qu'il y a des fois ou mon occurence est présente plusieurs fois dans la ligne . . . et avec ce script je trouve que la première occurence . . .
Voilà, j'attend xD une bonne âme ki m'aide . .

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

   
Répondre à Zep3k!GnO

2

jisisv, le 10 nov 2005 à 10:58:54

Utilise l'option 'g'
$st =~ m/modele/g;

Je regarderai ton problème en détail quand j'aurai un petit peu de temps...
Gates gave you the windows.
GNU gave us the whole house.(Alexandrin)

   
Répondre à jisisv

3

Zep3k!GnO, le 10 nov 2005 à 11:20:51

Merci mais avec le g ça ne change rien . . .
j'obtient toujours en début de ligne sur mon document résultant mon
+monModele+ blahblahblah

et monModele vaut la valeur de la première occurence dans la ligne.

sinon je me dis qu'il est possible en PERl si je ne m'abuse de tout fair d'un coups genre :
s/Mon_modèle_de_recherche/traitement_du_modele/g;

avec dans la zone de traitement du modele, les fonctions pour supprimmer de monModele tout caractère qui n'est pas un chiffre ni une lettre ni un '-' .
ça serait plus facile mais moins lisible.. Mais tout ce que je veux c'est que mon fichier soit traité donc la lisibilité pour ce coups ci , vous imaginez ce que j'en fait ! hi hi hi

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

   
Répondre à Zep3k!GnO

4

Zep3k!GnO, le 10 nov 2005 à 13:36:49

Pour le moment j'ai un peu contourné le problème en bricolant mais si quelqu'un aune idée PROPRE, j'suis toujours à l'écoute.

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

   
Répondre à Zep3k!GnO

5

Zep3k!GnO, le 10 nov 2005 à 14:13:01

Bah ca m'a pas l'air dégueux ce que j'ai fais, je vais rester dessus...
hé hé hé

Merci quand même :D

Zep3k!GnO
-->kurtis jackson:"Dans la vie tu as besoin de 3 choses : le fitness, l'aérobic et moi."

   
Répondre à Zep3k!GnO

6

lami20j, le 27 fév 2006 à 20:51:19

Malgré 2005-11-10 10:18:13 (GMT+1) essaie ça

#! /usr/bin/perl

use warnings;

while (<>)
{
  s/(             # 1ere capture en $1
      \w+\@art    # coucou@art
      \[          # a partir de [
        (         # 2eme capture en $2
          [^\]]+
        )
      \]
    )
    /+$2+ $1/xg; #si je trouve @art[contenu] dans ma ligne.je traite le contenu
  print;
}

   
Répondre à lami20j

7

lami20j, le 27 fév 2006 à 21:32:35

Re,

Quelque petits conseils :
1
$inter=$1;
$ligne="+$inter+ $ligne";

Pas besoin d'introduire la variable $inter, tu peux utiliser directement $1

Donc $ligne ="+$1+ $ligne";

2
Pas besoin d'utiliser des paranthèses pour afficher.
print ("$ligne");

Je trouve donc correctement les ligfnes ou mon occurence est présente mais le problème est qu'il y a des fois ou mon occurence est présente plusieurs fois dans la ligne . . . et avec ce script je trouve que la première occurence . . .

En fait il ne s'agit pas de ce que tu trouves mais plutôt de ce que tu affiches.

$ligne="+$inter+ $ligne";

Veut dire que chaque ligne est remplacée avec le contenu de $1 et la ligne.

Ex:
disons que le contenu soit +L. 125-65+
et pour les lignes on a

coucou@... et 2eme fois coucou@....

Le résultat sera
+L. 125-65+ coucou@... et 2eme fois coucou@....
même si tu trouves tous les occurences avec le modificateur /g

m//
Mais il ne faut pas oublier pas non plus que en contexte scalaire m//g indique une detection progressive et dans un contexte de liste m//g renvoie la liste de toutes les occurences.

if ( @val = $mot =~ /test/gi ) {# contexte liste
  printf "Test trouver de %d fois.\n",scalar @val;
}

======================================= 
while ( $val =~ /t/gi ) { # contexte scalaire
  printf "t ou T dans la position %d.\n",pos($val) -1;
}

s///
Dans ce cas s///g actionne comme un recherch/remplecement global qui modifie tout d'un coup et il ne fait pas de détection progressive en contexte scalaire.

   
Répondre à lami20j

8

 lami20j, le 28 fév 2006 à 07:22:22
  • +2

Une autre possibilité c'est d'utiliser un test avant qui ne consomme pas de texte, comme ça tu ne fais q'une seule capture. 

#! /usr/bin/perl

use warnings;

while (<>)
{
  s/\b(?=       # teste avant si on a
      \w+\@art  # coucou@art
      \[        # a partir de [
        (       # on capture ce que nous interesse dans $1
          [^\]]+
        )
      \]
    )\b
    /+$1+ /xg; # on ajoute $1 avant coucou @art[contenu] dans ma ligne
  print;
}

   
Répondre à lami20j
Posez votre question Répondre
Ils ont besoin de votre aide