Foro - Perl en Español

[jjpadron]

Hola , mi necesidad es la siguiente:

Me gustaría tener un programa que se ejecute, te pida un nombre, lo busque en todos los ficheros que están almacenados en una carpeta especifica y los mueva a otra. Este es el código que estoy utilizando pero algo falla :S:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

print"Inserte nombre a buscar";
$nombre=<STDIN>;
chop($nombre);

print("\t\t- Buscando nombre: ");
print($nombre);
print("\n");
$origen="c:\\Nombres";
$destino="E:\\Nombres";
$cmd="grep $nombre $origen*.*";
$resultado=`$cmd`;
$rd=@resultado;

        foreach $linea (@resultado)
        {
                ($archivo,$raw)=split(/:/, $linea, 2);
                print("\t\t- Nombre encontrado\n");
                print("\n\t\t- Moviendo $archivo...\n");
                `move $origen$archivo $destino`;
        }

Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4

[explorer]

Bienvenido a los foros de Perl en Español.

Yo juraría que debería ser así:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

$origen="c:\\Nombres\\";

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

[jjpadron]

Pues no me funciona, se queda buscando nombre y no me los pasa ¿¿qué puede pasar??

[explorer]

Ya lo he visto, el error...

Es:

Sintáxis: [ Descargar ] [ Ocultar ]

Sintáxis: [ Descargar ] [ Mostrar ]

Using perl Syntax Highlighting

@resultado=`$cmd`;

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

es decir, queremos leer las líneas y meterlas en un array. Antes lo tenías para que lo metiera todo el resultado en un solo escalar.

[jjpadron]

Muchas gracias, me ha sido de mucha utilidad , saludoss