Foro - Perl en Español

por **Alfumao** » 2011-01-11 14:36 @650

Hola a todos,

Estaba intentando hacer un programa para renombrar todos los archivos de un directorio que tuvieran una extensión determinada. He hecho este programilla, pero sólo me los renombra en el archivo de texto que saco a modo de registro de cambios, los archivos del directorio continúan con el nombre del principio.
¿Me podéis echar una mano?

Código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/c:/Perl -w
use strict;
 
print "Elige directorio:\n"; #Directorio donde renombrar
chomp(my $path = <STDIN>);
chdir $path;
opendir (TEMP , "$path");
my @nombres = readdir (TEMP);
 
 
print "Elige nuevo nombre generico:\n"; #Nuevo nombre
chomp(my $nuevo = <STDIN>);
 
print "Elige extension de archivos a renombrar\n"; #Tipo archivos a cambiar
chomp(my $kind = <STDIN>);
 
open SALIDA, ">registro_cambios.txt" || die ("No pudo abrirse el archivo"); #Registro de cambios
 
my $head = 1;
 
for(@nombres){
    if (/\.$kind$/){ 
    my $antiguo = $_;
    my $name = ("$nuevo"."$head"."."."$kind");
    $head++;
    rename ($antiguo, $name) ||die "Imposible renombrar" unless $antiguo eq $_;
    print SALIDA ("$name\t\n");
}
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Bien, entonces el porqué no se renombra es porque a), chdir() no consigue entrar en el directorio indicado, o b) el usuario no tiene permisos para realizar esa operación.

Me inclino por la primera, ya que en caso de que chdir() hubiese logrado entrar en el directorio, opendir() habría fallado, salvo que le hubieras pasado como directorio una ruta absoluta.

Una forma de solventarlo sería:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

chdir $path or die "ERROR: No puedo entrar en $path: $!\n";  # entramos en el directorio
opendir(TEMP, '.');                                          # leemos el directorio en donde estamos
my @nombres = readdir (TEMP);                                # todas las entradas del directorio
closedir TEMP;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

for my $antiguo (@nombres) {
    next if $antiguo !~ /\.$kind$/;                          # salta si no es una extensión que buscamos
    my $name = "$nuevo$head.$kind";
    rename ($antiguo, $name) or die "ERROR: Imposible renombrar $antiguo a $name: $!\n";
    print SALIDA "$name\n";
    $head++;
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Renombrar los archivos de un directorio

Renombrar los archivos de un directorio

Publicidad

Re: Renombrar los archivos de un directorio

Re: Renombrar los archivos de un directorio

Re: Renombrar los archivos de un directorio

Re: Renombrar los archivos de un directorio

Re: Renombrar los archivos de un directorio

¿Quién está conectado?