Decouper une chaine en PERL

Fermé
frans - 28 avril 2004 à 10:53
jisisv Messages postés 3645 Date d'inscription dimanche 18 mars 2001 Statut Modérateur Dernière intervention 15 janvier 2017 - 28 avril 2004 à 11:47
Salut a tous,

juste une question rapide a mon avis pour les forts en PERL

soit ma variable : $RAPPINTER

soit le contenu de ma variable : BELLAHSENE ANTHONY/CM VIALLE

je voudrais ne recuperer que la partie precedent la chaine /CM

je vois tres bien comment le faire dans d'autre langage mais la meme apres avoir fait un tour sur la patie cours du site je n'ai pas plus de reponse a ma question :o/
si qqn connait la syntaxe magique pour faire se decoupage je lui en serais tres reconnaissant !!!

merci,
Frans
A voir également:

2 réponses

jisisv Messages postés 3645 Date d'inscription dimanche 18 mars 2001 Statut Modérateur Dernière intervention 15 janvier 2017 934
28 avril 2004 à 11:45
La fonction split doit suffire dans ce cas
(adapter si plusieurs champs)

[johand@zoot] ~/tmp $cat bidon.pl
#!/usr/bin/perl -w
$mystring="BELLAHSENE ANTHONY/CM VIALLE";
@res=split(/\// , $mystring);
print $res[0];
[johand@zoot] ~/tmp $./bidon.pl
BELLAHSENE ANTHONY[johand@zoot] ~/tmp $

Johan
The software said "Requires Windows98, Win2000, or better,
So I installed Unix.
2
jisisv Messages postés 3645 Date d'inscription dimanche 18 mars 2001 Statut Modérateur Dernière intervention 15 janvier 2017 934
28 avril 2004 à 11:47
@res=split(/\/CM/ , $mystring);

fonctionne aussi...

The software said "Requires Windows98, Win2000, or better,
So I installed Unix.
2