, 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:
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`;
}
$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.007 segundos, usando GeSHi 1.0.8.4
