Cita:
he intentado utilizar la funcion rename con el siguiente codigo pero no cambia el nombre de mis archivos.
Iniciado por monoswim
Como trabajar con un archivo?
Como bloquear un archivo?
Como puedo eliminar los saltos de linea?
Que modos hay para abrir un archivo ?
Como renombrar o eliminar un archivo ?
Como puedo abrir y leer la info que tiene un directorio?
Como saber si el archivo o directorio existe y/o es modificable?
Como eliminar todo un directorio ?
Como bloquear un archivo?
Como puedo eliminar los saltos de linea?
Que modos hay para abrir un archivo ?
Como renombrar o eliminar un archivo ?
Como puedo abrir y leer la info que tiene un directorio?
Como saber si el archivo o directorio existe y/o es modificable?
Como eliminar todo un directorio ?
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?
