• Publicidad

Fecha actual 2025-02-23 18:49 @825

News News of Mundo Perl

Site map of Mundo Perl » Foro : Mundo Perl

Perl/TK (ToolKit GUI) Instalación y Ejemplos #1

Sección GUI
Uso del módulo PERL/TK Básico (Instalación y Ejemplo).

Perl/Tk es un módulo de Perl para la creación de elementos gráficos.

Con pocos esfuerzo los programas GUI pueden trabajar a través de Windows y en plataformas Unix.

Los elementos se basan en componentes(Ventanas,Frames) y widgets(TexBox,ListBox,Label,etc).

Esto nace ya que la mayoría del código Perl que utilizamos se basa en la escritura en interfaces a través de código, con esto el usuario final podrá interactuar ...
Read more : Perl/TK (ToolKit GUI) Instalación y Ejemplos #1 | Vistas : 3090 | Respuestas : 4 | Foro : Formación


Parámetros entre objetos

Hola gente, hace bastante que no pregunto por estos foros, ¡qué nostalgia...! ;-)

Tengo un script en el que cargo mi propio módulo, creo el objeto, le cargo una estructura de datos... hago algunas cosillas y luego (en el mismo script) tengo que llamar a otro objeto pero necesito algunos datos de esa estructura de datos...

1) Paso los valores que necesito al 2º objeto y los ...
Read more : Parámetros entre objetos | Vistas : 1817 | Respuestas : 2 | Foro : Avanzado


Duplicar aplicación mod_perl para varios sistemas

¿Qué tal, amigos?, de nuevo por estos rumbos.

El día de hoy resulta ser que estoy trabajando con una serie de módulos para mi aplicación escrita en mod_perl, y necesito hacer varias copias de estos módulos para varias sistemas distintos pero que van a estar en el mismo servidor y el mismo dominio, lo que quiero hacer es ponerlos en diferentes carpetas.

La pregunta es la siguiente:

¿Consumiría muchos recursos el tener varias copias y ...
Read more : Duplicar aplicación mod_perl para varios sistemas | Vistas : 1110 | Respuestas : 1 | Foro : Web


Efecto marquesina en Perl

Hola.

Ando buscando un módulo para hacer efectos marquesina como el siguiente código pero en
batch.

@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 ...
Read more : Efecto marquesina en Perl | Vistas : 345 | Respuestas : 1 | Foro : Básico


"Leer" salida por pantalla de un daemon

Hola a todos, soy nuevo por aquí, ando un poco perdido y busco iluminación divina :-)

Trato de hacer un script que lea la salida de un daemon y tome decisiones "en tiempo real" según ciertos eventos. El daemon es el wpa_supplicant aunque creo que esto no es relevante, éste se puede ejecutar como es lógico en background y foreground (salida por pantalla), la única forma en ...
Read more : "Leer" salida por pantalla de un daemon | Vistas : 466 | Respuestas : 2 | Foro : Básico


Reemplazar caracteres acentuados en archivo

Hola:

Tengo el siguiente problema:
Quiero sustituir las vocales acentuadas de un archivo por otros valores, pero hasta ahora no me ha funcionado.

#!/usr/bin/perl
use utf8;

%accents = ( á => "á",
é => "é",
ó => "ó",
ú => "ú",
);

$^I = '.bak';
while(<>){
s/()/$accents{$1}/eg;
print;
}

Saludos,
Read more : Reemplazar caracteres acentuados en archivo | Vistas : 871 | Respuestas : 3 | Foro : Básico


Eliminar código JavaScript con expresión regular

Necesito un poco de ayuda camaradas, necesito encontrar una expresión regular para eliminar el código JavaScript que puedan insertar en un textarea; he intentado buscar en el foro y en Google pero no encuentro algo que me ayude.

Necesito solo eliminar código JavaScript dentro de mi textarea, esto incluye tags <script>, atributos onclick, src, onkeypress, etc.

Espero su respuesta amigos y mil gracias de antemano.

Nos vemos, salu2.
Read more : Eliminar código JavaScript con expresión regular | Vistas : 3060 | Respuestas : 8 | Foro : Avanzado


RegExp. Sustituir expresión

Hola,

tengo que leer un fichero y sustituir tantas veces como aparezca una cadena por otra. Ejemplo1, si aparece CTSVxxxB sustituir por CTSVxxx1
Ejemplo2, si aparece CTSVxxxQ sustituir por CTSVxxx1

donde xxx puede ser cualquier letra o número.

He usado la siguiente expresión:
$rc = $string =~ s/CTSV({3})/CTSV\1/g;

y me deja CTSVxxx.

Sin embargo, si uso
$rc = $string =~ s/CTSV({3})/CTSV\11/g;

me deja CTSV, ya que interpreta \11 como el patrón 11.

¿Cómo ...
Read more : RegExp. Sustituir expresión | Vistas : 1051 | Respuestas : 2 | Foro : Intermedio


Cómo eliminar los fines de línea de una cadena

Hola a todos.

Gracias a toda la comunidad de perlenespanol pues aquí he aprendido y seguiré aprendiendo mucho.

Resulta que le he dado a mis usuarios un formulario para que ingresen datos y los datos enviados por mis usuarios los agrego a un archivo de tipo texto de la siguiente manera:


$FILE="datosoct.txt";
open(archivconf,">>".$FILE);
$linea=$id."::".$campo1."::".$campo2."::\n";
print archivconf ($linea);
close(archivconf);


pero los contenidos de la variable $campo1 vienen de un textarea por lo cual el ...
Read more : Cómo eliminar los fines de línea de una cadena | Vistas : 751 | Respuestas : 4 | Foro : Básico


Sacar los puntos de una cifra

Hola a todos.

Tengo el siguiente problemilla y no sé cuál sería la manera más sencilla de solucionarla.

En un sitio web tengo un formulario que recibe varios datos, entre otros un precio.
El visitante debe escribir el valor, sin comillas, sin comas, y sin punto, dado que es una cifra.

Ejemplo: "35000000"

pero cuando miro la base de datos, veo que muchos de los registros tienen el siguiente formato:

35.000.000
35'000.000

¿A alguien se ...
Read more : Sacar los puntos de una cifra | Vistas : 388 | Respuestas : 2 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981

cron