Foro - Perl en Español

por **marioalbertocer** » 2012-02-20 19:37 @859

Buenas noches,

He estado tratando de hacer un código en Perl que me permita tomar de una carpeta un número de archivos de texto y ponerlos en otra carpeta que se encuentra vacía. Para ésto tengo una lista de la carpeta 1 con todos los nombres de los archivos y tengo otra lista con solo los archivos que quiero pasar a la otra carpeta. El nombre de cada uno de los archivos está compuesto de cuatro partes y el problema es que las cuatro partes no concuerdan exactamente entre las dos listas, pero a mí solo me interesa que concuerden las dos primeras partes del nombre de cada uno de los archivos.

Este es el código que he estado haciendo, pero al final me crea en la carpeta vacía todos los archivos de la carpeta 1 pero sin ningún contenido (documentos en blanco).

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl;
 
open( LIST, "lista.txt" );
@lista              = (<LIST>);
@nombres_corregidos = nombrearchivo(@nombres);
print "@nombres_corregidos\n";
print @nombres_corregidos[1], "\n";
foreach $nom (@lista) {
    foreach $nombre_corregido (@nombres_corregidos) {
        if ( $nom =~ /$nombre_corregido/ ) {
            open( INFO, "archivos/$nom" );
            open( M,    ">archivos2/$nom" );
            @info = (<INFO>);
            print @info;
            print M @info;
        }
        else {
            print "no existe $nom\n";
        }
    }
}
exit;
 
sub nombrearchivo {
    my @nombres = '';
    open( LIST2, "lista2.txt" );
    @lista2 = <LIST2>;
    foreach $nombre_completo (@lista2) {
        ( $uno, $dos, $tres, $cuatro ) = split( '/', $nombre_completo );
        my $nombre = $uno . $dos;
        push( @nombres, $nombre );
    }
    return @nombres;
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Por favor, si alguien me pudiera ayudar le estaría profundamente agradecido.

Línea 5. Usas la variable @nombres, pero en ninguna parte la has declarado ni inicializado
La línea 7 es mejor escribirla cambiando el '@' por el '$', ya que solo quiere sacar un valor del array @nombres_corregidos
Sería recomendable poner close() a los ficheros abiertos en las líneas 11 y 12
La subrutina de la línea 24 recibe un array como argumento, como vemos en la línea 5, pero no lo recoges en ninguna parte
El open() de la línea 26 necesitaría un close(), por si acaso
Si existiese más de un $nombre_corregido que coincidiese con $nom, el fichero anterior archivos2/$nom será sobreescrito
No compruebas si los open() han funcionado, por lo que no estás seguro de si realmente puedes leer y escribir en los ficheros

Es recomendable el uso de 'use strict;', 'use warnings;' y 'use autodie;' para que Perl pueda ayudarte a encontrar estos errores.

Foro - Perl en Español

Abrir y copiar archivos a partir de listas

Abrir y copiar archivos a partir de listas

Publicidad

Re: Abrir y copiar archivos a partir de listas

¿Quién está conectado?