No probado:
Código [Seleccionar]
copy /y "%~nx0" "%homedrive%\windows"
Código [Seleccionar]
copy /y "%~dpnx0" "%windir%\"
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menúcopy /y "%~nx0" "%homedrive%\windows"
copy /y "%~dpnx0" "%windir%\"
for /f "tokens=*" %%_ in ('comando') do (set "variable=%%_")
echo %variable%
Cita de: dark_fidodido en 8 Septiembre 2009, 09:18 AM
si terminan los bucles!!! pero me tarda muSHo xDDD
voy a ver con el awks
ahora os cuento
gracias
Pues no me funciona bien ya que me coge mal las separaciones....
modifico:
no podria con el cut copiar las columnas y pegarlas en un archivo nuevo? tambien por columnas?? es lo que intentaba hacer con los bucles...
otra cosa.. como puedo hacer que un archivo lo que lea como " lo borre
leo@lein:~/Escritorio$ cat "file.txt"
Primera Segunda Tercera Cuarta Quinta
Primera Segunda Tercera Cuarta Quinta
Primera Segunda Tercera Cuarta Quinta
Primera Segunda Tercera Cuarta Quinta
Primera Segunda Tercera Cuarta Quinta
Primera Segunda Tercera Cuarta Quinta
leo@lein:~/Escritorio$ cat file.txt | awk '{print $1}'
Primera
Primera
Primera
Primera
Primera
Primera
leo@lein:~/Escritorio$ cat file.txt | awk '{print $2}'
Segunda
Segunda
Segunda
Segunda
Segunda
Segunda
leo@lein:~/Escritorio$ cat file.txt | awk '{print $3}'
Tercera
Tercera
Tercera
Tercera
Tercera
Tercera
leo@lein:~/Escritorio$ cat file.txt | awk '{print $4}'
Cuarta
Cuarta
Cuarta
Cuarta
Cuarta
Cuarta
leo@lein:~/Escritorio$
leo@lein:~/Escritorio$ cat file.txt | cut -d ' ' -f 1
Primera
Primera
Primera
Primera
Primera
Primera
leo@lein:~/Escritorio$ cat file.txt | cut -d ' ' -f 2
Segunda
Segunda
Segunda
Segunda
Segunda
Segunda
leo@lein:~/Escritorio$
correo1@hotmail.com
cxbo2@gmail.com
asda3@yahoo.cl
#!/usr/bin/perl
use strict;
use warnings;
open(FILE, q[<], "correos.txt") or die("No se pudo abrir el archivo");
open(SALIDA, q[>], "salida.txt") or die("No se pudo trabajar con el archivo");
while(<FILE>)
{
if($_ =~ /yahoo.*/i)
{
print;
print SALIDA $_;
}
}
close(FILE);
close(SALIDA);
exit(0);
leo@lein:~/Escritorio$ cat "correos.txt"
correo1@hotmail.com
cxbo2@gmail.com
asda3@yahoo.cl
leo@lein:~/Escritorio$ perl pl.pl
asda3@yahoo.cl
leo@lein:~/Escritorio$ cat "salida.txt"
asda3@yahoo.cl
leo@lein:~/Escritorio$
:bucle
set /p "variable=Introduzca cadena : "
if not defined variable (goto:bucle)
if "%variable%"=="Algo" (
echo Si
) else (
echo No
)