Bonjour,
 
Pouvez-vous m'aider à supprimer l'extension d'un fichier ?
 
Exemple : J'ai un fichier "toto.txt". J'aimerais récupérer juste "toto".
 
Merci d'avance pour vos réponses.

 
ou un truc du genre. Ou alors avec un split() mais attention si le nom de fichier contient d'autres points (toto.tata.txt).
 

En ce qui me concerne, je ferais ceci:

my $fichier = 'toto.txt';
$fichier =~ s/(.+)\.[^.]+/$1/;

 
A+,

+1 pour gilou, c'est bien plus universel.

edit: ou les deux melangés: $fichier=~s/\.[^.]+$//;

Sauf que la tu va supprimer le nom d'un fichier comme .emacs  
 
A+,

Bien vu gilou!
 
Voyons, peut-être ainsi?
 

Pourquoi pas, mais ceci:
$fichier=~s/(?<=!\.)\.[^.]+$//;
serait peut être mieux, ou son équivalent avec ma ligne:  
$filename =~ s/(.*[^.])\.[^.]+/$1/;
 
A+,

Bonjour à tous les deux.
 
Merci beaucoup pour vos réponses, ça fonctionne à merveille.

Merci gilou, j'apprends pleins de trucs perl en regardant tes réponses!  

Corrections:
pour la ligne avec s/(.*[^.])\.[^.]+/$1/;
J'avais oublié le $ final, nécessaire puisque je n'ai plus .* en fin de regexp
ce devrait donc être
$filename =~ s/(.*[^.])\.[^.]+$/$1/;
 
 
 
Pour la ligne avec s/(?<=!\.)\.[^.]+$//;
il y avait clairement une faute de frappe (le copier coller hâtif à encore frappé): c'était (?<!\.) avec un look-behind négatif que je voulais.
Mais ça marche pas, car un tel contexte est matché par le vide, et l'ensemble matcherait un nom comme ".toto"
Il vaut mieux donc un  look-behind positif:
$fichier=~s/(?<=[^.])\.[^.]+$//;
Note: (?<=!\.) ne déclenchait pas d'erreur sur mes essais, mais je n'ai aucune idée de la manière dont c'était interprété par Perl, et, c'était hautement risqué d'employer ça
 
A+,