Perl

division de string[resolu]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : division de string[resolu]

Lanfeust42

J'ai un problème de string lol, je m'explique:

j'ai ce genre de string: "US4241611(A)(Cat. A)"

je veut couper à partir de la parenthèse afin d'obtenir ceci: "US4241611"

j'ai essayer avec substr mais il me renvoi seulement "(A)(Cat. A)" d'ou mon drame

Merci pour vos idées

Message édité par Lanfeust42 le 05-06-2006 à 14:03:53

Publicité

Taz

bisounours-codeur

fais un split ou match avec une regex. mais substr doit très bien marché également.

Code :

my $s = "US4241611(A)(Cat. A)";
my $us = substr($s, 0, 9);

perldoc -f substr

lami20j

Salut,

Tu peux aussi utiliser une regex ou la fonction unpack

la regex

Code :

perl -e '$u="US4241611(A)(Cat. A)";$us=$u=~/(.*?)(?=\()/;print $1'

la fonction unpack

Code :

perl -e '$u="US4241611(A)(Cat. A)";print unpack("A9",$u),"\n"'

lami20j

Lanfeust42

Merci pour ces aides mais:

TAZ: Je ne l'ai pas préciser mais les chiffre après US varie c'est à dire je peut en avoir 8 9 ou 10 ou plus donc ta solution ne marcherais pas. Merci quand même .

lami20j:je n'arrive pas à utiliser tes règles dois-je mettre mon code ainsi??:

Code :

if($word =~ /\(/){
$word=~/(.*?)(?=\()/;
$us=$word=~/(.*?)(?=\()/;

autre chose je débute un peu en PERL quel est la signification de print $1?

Merci de ton aide

Message édité par Lanfeust42 le 05-06-2006 à 09:03:10

Lanfeust42

j'ai trouver avec ta solution TAZ j'ai fait un index juste avant:

Code :

if($word =~ /\(/){
my $compt=index ($word, "(" );
$us = substr($word, 0, $compt);

Merci beaucoup à tous

lami20j

Salut,

j'ai commenté dans le code. J'espère que c'est assez claire.

Code :

#!/usr/bin/perl
#
use warnings;use strict;
my $u ="US424161100000077700888(A)(Cat. A)";
$u =~ /(.*?) # ici je capture n'importe quelle caractère le minumum possible
# dans la variable $1, je me fait pas des soucis si j'ai
# US ou combien des nombres, mais j'arrête la capture à la
# rencontre de la 1ère ( grâce à *?)
# Enleve ? pour voir ce que tu vas obtenir
(?= # ici je commence un test avant pour voir si
\( # j'ai une ( , donc ça remplace ton if avec la fonction index
) # fin de test avant
/x; # le modificateur x me permet d'inserer des commentaires
# et des espaces dans la regex
# la regex est : /(.*?)(?=\()/
print "$1\n";

Voilà le code sans commentaires

Code :

#!/usr/bin/perl
#
use warnings;use strict;
my $u ="US424161100000077700888(A)(Cat. A)";
$u =~ /(.*?)(?=\()/;
print "$1\n";

lami20j

Message édité par lami20j le 05-06-2006 à 09:57:52

Lanfeust42

Merci beaucoup pour ces explication, si j'ai bien compris le $1 est une variable "système", par contre je crois qu'il manque un signe dans ton code ou sinon j'ai rater un train:

à la ligne 7 du code sans commentaire:

$u =~ /(.*?)(?=()/;

ca serait pas:

$u =~ /(.*?)(?=\()/; comme tu la marquer dans le code commenter ligne 18??

En tout cas merci pour cette explication

Message cité 1 fois
Message édité par Lanfeust42 le 05-06-2006 à 10:20:14

anapajari

s/travail/glanding on hfr/gs;

je ne comprends pas trop l'interet de faire une assertion dans la mesure ou la même sans marche aussi bien

Code :

$u =~ /(.*?)\(/;

>Lamfeust tu as raison, il manque un "\" mais le forum l'a surement mangé!

Message cité 1 fois

Lanfeust42

eu je commence vraiment le PERL, une assertion c'est le test (?=\() ???

lami20j

Re,

Lanfeust42 a écrit :

si j'ai bien compris le $1 est une variable "système", par contre je crois qu'il manque un signe dans ton code ou sinon j'ai rater un train:

à la ligne 7 du code sans commentaire:

$u =~ /(.*?)(?=()/;

ca serait pas:

$u =~ /(.*?)(?=\()/; comme tu la marquer dans le code commenter ligne 18??

$1 c'est une variable spéciale des expressions régulières.

Il y a encore ( @+, @-, $+, $^R, $&, $`, $' )

On utilise les paranthèses dans une regex pour plusieurs raisons: regroupement, capture.

Donc pour capturer une sous-chaîne on mets des paranthèses autour du motif.
Les paranthèses (ouvrantes) sont comptées en commencant de la gauche.

(\d)([a-z])(variable)

dans cet exemple
$1 va conteniur un chiffre
$2 une lettre minuscule
$3 la sous-chaine variable

Oui il y a une erreur puisque j'ai modifié le message donc \ à été effacé.
C'est bien /(.*?)(?=\()/

Une paranthèse ouvrante ( est un métacaractère donc pour l'avoir en tant que caractère on doit l'echapée avec \ donc \(

lami20j

Publicité

lami20j

Salut,

anapajari a écrit :

je ne comprends pas trop l'interet de faire une assertion dans la mesure ou la même sans marche aussi bien
/(.*?)\(/;

Tu as raison, ça marche aussi. Et pour cet exemple banal c'est vrai qu'on n'a pas vraiment besoin de (?=\().
Mais pourquoi? Parce une assertion de largeur nulle ne consomme pas de texte, et dans le cas d'un gros fichier ça peut servir.

lami20j

FORUM HardWare.fr

Programmation

Perl

division de string[resolu]

Sujets relatifs
[Resolu] string.lenght qui marche une fois sur deux	pb tableau[résolu]
[RESOLU] Changer largeur zone de liste access	pb de transition excel[resolu]
Java Transformation XSLT résultat String	[ASP.NET][Resolu] Erreur de syntaxe sur un INSERT INTO
[RESOLU] Controler les scroll bar d'un Active X [MFC]	[resolu] Conflit Virtuel Static ( Factory Design Pattern )
Pas important : isset en Java ? [Résolu]
Plus de sujets relatifs à : division de string[resolu]

Page générée en 0.044 secondes