En el caso de que sean exactamente 3 letras, puedes hacer
Using perl Syntax Highlighting
$palabra = 'modulo.pm';
$palabra =~ s/...$//;Coloreado en 0.002 segundos, usando
GeSHi 1.0.8.4
Ahora bien... otra cosa es quitar la extensión de un fichero, que puede ser de 0 a 3 caracteres. Solo estamos seguros de que tiene extensión si aparece un punto, así que lo podemos usar para quitar esos últimos caracteres:
Using perl Syntax Highlighting
$palabra = 'modulo.pm';
$palabra =~ s/\..{0,3}$//;Coloreado en 0.003 segundos, usando
GeSHi 1.0.8.4
Estamos diciendo que hacia el final (
$) hay un punto (
\.) seguido de 0 a 3 caracteres cualesquiera (
.).
De todas formas, es más portable usar
File::Basename.
