Archivo mensual: octubre 2013

BATCH – Ejemplo de función en DOS BATCH con retorno de valores.

Publicada el 08/10/2013 por Gonzalo Reiser A.

@echo off
Setlocal enabledelayedexpansion
Set/p "num=Digito a multiplicar por 2: "
Call:multiplica  resultado !num!
echo.!resultado!
pause>nul&exit

:multiplica
 set/a "%1=%2*2"
goto:EO

@echo off

Setlocal enabledelayedexpansion

Set/p "num=Digito a multiplicar por 2: "

Call:multiplica resultado !num!

echo.!resultado!

pause>nul&exit

:multiplica

set/a "%1=%2*2"

goto:EO

Publicado en BATCH - DOS | Deja un comentario

BATCH – Verificador de numeros primos.

Publicada el 08/10/2013 por Gonzalo Reiser A.

ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO EJEMPLO:
ECHO Entrada:1 2 3 4 5 6 7 8 9 10 11 12 13
ECHO Salida: 1 1 1 0 1 0 0 1 0 0 0 0 1
SET PROC=PROCESANDO
SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
:NEXTNUM
IF "%FIN%"=="1" GOTO SHOWNUMS
SET RN=
:NEXTCHAR
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU " " (GOTO EMPIEZA)
IF "%CHAR%" EQU "" SET FIN=1
IF "%CHAR%" EQU "" (GOTO EMPIEZA)
SET RN=%RN%%CHAR%
GOTO NEXTCHAR
:EMPIEZA
SET X=%RN%
SET Y=%X%
SET CT=0
SET /A Y=(5*%X%*%X%)+4
SET RETURN=POSITIVO
GOTO CHECKROOT
:POSITIVO
IF "%EXACTO%"=="1" GOTO ISFIB
SET RETURN=NEGATIVO
SET /A Y=!Y!-8
GOTO CHECKROOT
:NEGATIVO
IF "%EXACTO%"=="1" GOTO ISFIB
SET OUTP=%OUTP% 0
GOTO NEXTNUM
:ISFIB
SET OUTP=%OUTP% 1
GOTO NEXTNUM
:SHOWNUMS
CLS
ECHO %OUTP%
PAUSE
EXIT
:CHECKROOT
CLS
SET PROC=%PROC%.
ECHO %PROC%
SET /A DEND=!Y!
SET EXACTO=0
FOR /L %%I IN (%DEND%, -1, 1) DO (
   SET /A SQR=%%I*%%I
   IF !SQR!==%DEND% (SET EXACTO=1)
)
GOTO %RETURN%

ECHO OFF

SETLOCAL ENABLEDELAYEDEXPANSION

ECHO EJEMPLO:

ECHO Entrada:1 2 3 4 5 6 7 8 9 10 11 12 13

ECHO Salida: 1 1 1 0 1 0 0 1 0 0 0 0 1

SET PROC=PROCESANDO

SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:

:NEXTNUM

IF "%FIN%"=="1" GOTO SHOWNUMS

SET RN=

:NEXTCHAR

call set CHAR=%%N:~%NUM%,1%%%

set /a NUM+=1

IF "%CHAR%" EQU " " (GOTO EMPIEZA)

IF "%CHAR%" EQU "" SET FIN=1

IF "%CHAR%" EQU "" (GOTO EMPIEZA)

SET RN=%RN%%CHAR%

GOTO NEXTCHAR

:EMPIEZA

SET X=%RN%

SET Y=%X%

SET CT=0

SET /A Y=(5*%X%*%X%)+4

SET RETURN=POSITIVO

GOTO CHECKROOT

:POSITIVO

IF "%EXACTO%"=="1" GOTO ISFIB

SET RETURN=NEGATIVO

SET /A Y=!Y!-8

GOTO CHECKROOT

:NEGATIVO

IF "%EXACTO%"=="1" GOTO ISFIB

SET OUTP=%OUTP% 0

GOTO NEXTNUM

:ISFIB

SET OUTP=%OUTP% 1

GOTO NEXTNUM

:SHOWNUMS

CLS

ECHO %OUTP%

PAUSE

EXIT

:CHECKROOT

CLS

SET PROC=%PROC%.

ECHO %PROC%

SET /A DEND=!Y!

SET EXACTO=0

FOR /L %%I IN (%DEND%, -1, 1) DO (

SET /A SQR=%%I*%%I

IF !SQR!==%DEND% (SET EXACTO=1)

)

GOTO %RETURN%

Publicado en BATCH - DOS | Deja un comentario

BATCH – Incrementar una variable en DOS BATCH.

Publicada el 08/10/2013 por Gonzalo Reiser A.

@ECHO OFF
setlocal enabledelayedexpansion 
 
SET /a v=0
FOR %%a IN (*.*) do ( 
        CALL:INCREMENT
		ECHO !v!
)
GOTO DONE
 
:INCREMENT
SET /a v+=1
GOTO EOF
 
:DONE
PAUSE
 
:EOF

@ECHO OFF

setlocal enabledelayedexpansion

SET /a v=0

FOR %%a IN (*.*) do (

CALL:INCREMENT

ECHO !v!

)

GOTO DONE

:INCREMENT

SET /a v+=1

GOTO EOF

:DONE

PAUSE

:EOF

Publicado en BATCH - DOS | Deja un comentario

BATCH – monitoreo archivo de log.

Publicada el 07/10/2013 por Gonzalo Reiser A.

@echo off
mode con cols=85
mode con lines=5
set archivo=archivos.txt
set depurado=depurado.txt

set num=%1
set ruta1=/usr01/home/prod/EX_2009/sql/*.lst
set ruta2=/APP01/home/prod/EX_2013/sql/*.lst
set ruta3=/APP01/home/prod/EX_2013/sql/*.lst
set ruta4=/APP01/home/prod/EX_2013/sql/*.lst
set ruta5=/APP01/home/prod/EX_2013/sql/*.lst
if %num%==1 set ruta=%ruta1% && set ano=2009
if %num%==2 set ruta=%ruta2% && set ano=2010
if %num%==3 set ruta=%ruta3% && set ano=2011
if %num%==4 set ruta=%ruta4% && set ano=2012
if %num%==5 set ruta=%ruta5% && set ano=2013
if %num%==6 exit

:log
tasklist /FI "WINDOWTITLE eq Vector" | findstr "cmd" || exit
plink.exe -ssh  -pw passwd usuario@servidor ls -ltr %ruta% > %archivo%
type %archivo% | findstr ".lst" | findstr /v "app               0" | findstr /v "app              64" | findstr /v "cambia*" > %depurado%
type %depurado% | findstr ".lst" && goto archivos
sleep 60
goto log

:archivos
SET dia=%DATE:~,2%
SET mes=%DATE:~3,2%
SET ano=%DATE:~6,4%
SET fecha=%dia%-%mes%-%ano%
SET hor=%TIME:~,2%
SET min=%TIME:~3,2%
SET seg=%TIME:~6,2%
SET hora=%hor%:%min%
sendemail.exe -f desde@cor.cl -t para@cor.cl -u "Log %ano% con archivos encontrados %fecha% a las %hora% Hrs." -m "En el archivo adjunto puede ver los archivos detectados, debe reportarlo." -a %depurado% -s smtp.cor.cl
sleep 40
goto log

@echo off

mode con cols=85

mode con lines=5

set archivo=archivos.txt

set depurado=depurado.txt

set num=%1

set ruta1=/usr01/home/prod/EX_2009/sql/*.lst

set ruta2=/APP01/home/prod/EX_2013/sql/*.lst

set ruta3=/APP01/home/prod/EX_2013/sql/*.lst

set ruta4=/APP01/home/prod/EX_2013/sql/*.lst

set ruta5=/APP01/home/prod/EX_2013/sql/*.lst

if %num%==1 set ruta=%ruta1% && set ano=2009

if %num%==2 set ruta=%ruta2% && set ano=2010

if %num%==3 set ruta=%ruta3% && set ano=2011

if %num%==4 set ruta=%ruta4% && set ano=2012

if %num%==5 set ruta=%ruta5% && set ano=2013

if %num%==6 exit

:log

tasklist /FI "WINDOWTITLE eq Vector" | findstr "cmd" || exit

plink.exe -ssh -pw passwd usuario@servidor ls -ltr %ruta% > %archivo%

type %archivo% | findstr ".lst" | findstr /v "app 0" | findstr /v "app 64" | findstr /v "cambia*" > %depurado%

type %depurado% | findstr ".lst" && goto archivos

sleep 60

goto log

:archivos

SET dia=%DATE:~,2%

SET mes=%DATE:~3,2%

SET ano=%DATE:~6,4%

SET fecha=%dia%-%mes%-%ano%

SET hor=%TIME:~,2%

SET min=%TIME:~3,2%

SET seg=%TIME:~6,2%

SET hora=%hor%:%min%

sendemail.exe -f desde@cor.cl -t para@cor.cl -u "Log %ano% con archivos encontrados %fecha% a las %hora% Hrs." -m "En el archivo adjunto puede ver los archivos detectados, debe reportarlo." -a %depurado% -s smtp.cor.cl

sleep 40

goto log

Publicado en BATCH - DOS | 2 comentarios

BASH – Quitar espacios al principio y final de una variable.

Publicada el 04/10/2013 por Gonzalo Reiser A.

#!/bin/bash#Quitar espacios delante y atras de una variableCADENA=» Esto es una cadena «echo » Variable completa => [$CADENA]» #Quita los espacios a la izquierda de la variableCADENA1=»${CADENA#»${CADENA%%[![:space:]]*}»}»echo » Quita Espacios izquierda => [$CADENA1]» #Quita los espacios a la derecha de … Sigue leyendo →

Publicado en Unix - Linux | Deja un comentario

Archivo mensual: octubre 2013

BATCH – Ejemplo de función en DOS BATCH con retorno de valores.

BATCH – Verificador de numeros primos.

BATCH – Incrementar una variable en DOS BATCH.

BATCH – monitoreo archivo de log.

BASH – Quitar espacios al principio y final de una variable.

Si te gusta este contenido, se agradece tu apoyo en su mantenimiento. Cualquier cantidad por pequeña que sea será bien recibida.

Comentarios recientes

Archivos