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úset /a "producto=producto * base"
set /a "producto*=base"
@echo off
:: pow(a, b) = a * a ... multiplicado el numero de veces b.
:code
set /p "base=Base : ";
if not defined base (goto:code)
:_code:
set /p "potencia=Potencia : ";
if not defined potencia (goto:_code)
set /a "producto=1"
for /l %%_ in (1, 1, %potencia%) do (
set /a "producto*=base"
)
echo pow(%base%, %potencia%) = %producto%
exit /b 0
C:\>code
Base : 2
Potencia : 3
pow(2, 3) = 8
C:\>code
Base : 4
Potencia : 4
pow(4, 4) = 256
C:\>code
Base : 7
Potencia : 8
pow(7, 8) = 5764801
C:\>
@echo off
:: Lista de archivos a buscar :
for %%' in (
code.c
code.bat
ayuda.txt
algo.xls
la_machaca_by_intokable263.mp3
Untitled.ses
noexiste.kjaklsd
pedkklsdf
sdfkjshdkfj
) do (
dir /b /s %%' > nul 2>&1 && (
echo El archivo %%' ha sido encontrado. >> "encontrados.txt"
) || (
echo El archivo %%' no ha sido encontrado. >> "encontrados.txt"
)
)
C:\>type encontrados.txt
El archivo code.c ha sido encontrado.
El archivo code.bat ha sido encontrado.
El archivo ayuda.txt ha sido encontrado.
El archivo algo.xls ha sido encontrado.
El archivo la_machaca_by_intokable263.mp3 ha sido encontrado.
El archivo Untitled.ses ha sido encontrado.
El archivo noexiste.kjaklsd no ha sido encontrado.
El archivo pedkklsdf no ha sido encontrado.
El archivo sdfkjshdkfj no ha sido encontrado.
C:\>
open(my $file, q[<], "file.txt") or die("El archivo no se pudo leer.\n$!");
while(<$file>)
{
chomp($_);
print $_;
}
close($file);
AA BB CC DD EE FF
AA BB CC DD EE FF
AA BB CC DD EE FF AA BB CC DD EE FF
@echo off
for /f "tokens=*" %%_ in (file.txt) do (<nul set /p "=%%_ ";)
echo.
echo Demas texto...
set /p "="
exit /b 0
C:\>code
AA BB CC DD EE FF AA BB CC DD EE FF
Demas texto...
C:\>
cat "file.txt" | tr '\n' ' '