he intentado utilizar la funcion rename con el siguiente codigo pero no cambia el nombre de mis archivos.
my $dir_consulta = "E:\\capeta_fotos\\";
my $fichero = '';
if(opendir(DIRECTORIO,$dir_consulta))
{
#Leemos el listado de fichero que lo componen
foreach (readdir DIRECTORIO)
{
$fichero = $_;
#Seleccionamos los fichero que tengan un nombre con el formato *.*,
#donde * representa cualquier cadena alfanumérica
if ($fichero =~ /\w\.\w/)
{
my $aux = substr($fichero,0,(length($fichero)-4));
my $nuevo_nombre = $aux."_p.jpg";
rename($fichero,$nuevo_nombre)
}
}
print "FIN";
}
¿me podeis ayudar a ver donde estoy fallando?