Slt all,
 
Y'a-t-il un code perl similaire à ce qui suit:
 
cut -d/ -f-2 fichier
 
Ex: toto/tata/titi/tete
Resultat => toto/tata/titi
 
En gros je veux pas le dernière chaine.
 
merci d'avance

je ne connais pas la commande cut
 
par exemple si tu a a/b/c/d/ tu veux k'il te retourne a/b/c ou a/b/c/d ?
Et tu peu avoir autre chose que / comme separateur?

si je ne m'abuse, ta commande devrait plutot te renvoyer "tata" qui est le 2e champ de l'expression delimitée par des "/".
L'equivalent de cut peut se faire par un split (cette cmd transforme une chaine en tableau, tu prends ensuite le champ qui t'interesse)

sinon avec un regex c'est assez vite fait:

Muchacho: Nono via la cmd cut j'obtiens bien le résultat que j'avance.
 
Anapajari: C a l'air pas mal ton bout de code. Je vais essayer de suite.  

Tu peux m'expliquer ce que fait la partie en bleu ?
 
s/(.*?)\/([^\/]*)$/$1/

([^\/]*)$ on décompose:

Donc en fait avec ce motif je prends "tous les caractères qui ne sont pas des / et qui terminent $texte.  
Du coup /(.*?)\/([^\/]*)$/ nous donne:
tout et n'importe quoi suivi d'un / suivi de plusieurs caracteres qui ne sont pas des / et qui terminent la chaine.
 
Huumum pas sur d'avoir été très clair moi!

[^\/] -> tous les caractères qui ne sont pas des /  
 
En fait c'est cette partie que je pigeais po.
 
je pensais que "^" indiquer en debut de ligne et non une négation comme "!".
Ce sont les crochets qui influe sur ^ ?

absolument!!!

un grand merci pour ce code. Cela m'évitera de rajouter du shell dans mon code.