Ando buscando un módulo para hacer efectos marquesina como el siguiente código pero en
batch.
Using bash Syntax Highlighting
- @echo off
- title Efecto de Marquesina
- SETLOCAL ENABLEDELAYEDEXPANSION
- :ini
- set /p texto="Texto a Mostrar: > "
- if not defined texto goto ini
- set v=%texto%
- call :string %v%
- REM Obtenemos el Tama?o de Pantalla
- for /f "tokens=2" %%a in ('mode con^|find /i "col"') do (set /a l=%%a-%length%)
- REM Creamos una Variable con L espacios vacios
- for /l %%b in (1,1,%l%) do (call :new %%b)
- REM Mostramos la Cadena andando hacia la derecha
- for /l %%c in (1,1,%l%) do (call :show %%c)
- REM Mostramos la Cadena andando hacia la izquierda
- for /l %%d in (%l%,-1,1) do (call :show %%d)
- pause
- exit
- :new
- set r= %r%
- goto :eof
- :show
- cls
- set lim=%1
- echo !r:~0,%lim%!%texto%
- ping -n 1 >nul
- goto :eof
- :string
- set /a length=%length%+1
- set v=%v:~1%
- if "%v%"=="" goto :eof
- goto string
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
Mi objetivo es hacer uno igual pero en Perl.
Mi pregunta: ¿se puede hacer? ¿Cómo?
