Foro - Perl en Español

Foro:

Estoy incursionando en el mundo Perl.

Concretamente: logré cargar a un arreglo (array) una linea de un archivo de texto. Dicha línea tiene el formato XXXX XXXX XXXX XXXX (nótese el espacio entre cada dato, hubiese sido más fácil un ;, pero bueno, todo no se puede).

¿Cómo logro descomponer cada línea, para guardar luego cada dato en variables, teniendo como patrón el espacio entre cada dato?

¿Tendré que usar la función split()? (aún ...

El sábado 14 apareció la nueva versión de Debian, la v5.0 "Lenny", y en ella ya viene con la más moderna versión de Perl, la v5.10.

¿Qué hay de nuevo en Lenny?

Hola, tengo un par de preguntas sobre el uso de paréntesis en las expresiones regulares.

Estoy buscando una serie de palabras para hacer sustituciones, pero solo quiero hacer la sustitución cuando la palabra encontrada satisfaga determinadas condiciones contextuales. En este caso lo que rodea a la palabra que quiero sustituir es solo un contexto, no forma parte de la sustitución.

Mis preguntas son las siguientes.

En el siguiente programa
foreach $palabra (@listapalabras) {

while (<>) ...

A ver si pueden ayudarme, por ejemplo tengo el siguiente JavaScript:

function generar(){

var $nombre = document.getElementById("nombre").value;
if ($nombre == '') { alert("los campos con asterisco son requeridos, debe rellenarlos");
document.getElementById("nombre").focus()
return (false); }

var $apellidos = document.getElementById("apellidos").value;
if ($apellidos == '') { alert("los campos con asterisco son requeridos, debe rellenarlos");
document.getElementById("apellidos").focus()
return (false); }

var $pais = document.getElementById("pais").value;
if ($pais == '') { alert("los campos con asterisco son requeridos, debe rellenarlos");
document.getElementById("pais").focus()
return (false); ...

Hola, he esto viendo en el foro el mensaje "Bareword "xxx" not allowed while "strict subs" in use..."

En mi caso donde pongo "xxx" es TRUE, me ha quedado claro que Perl no lo entiende, pues se supone que ha de estar definido antes.

Mi problema y mi pregunta es que yo tengo dos entornos Perl en dos máquinas distintas (A y B), cuando he pasado los fuentes de una aplicación de A (donde no ...

Hola, buenas.

Tengo un problema para cuya solución no tengo suficientes conocimientos en Perl y, por tanto, no sé si se puede resolver o no.

Bien, tengo un conjunto de textos, donde algunas palabras están etiquetadas con sus categorías. Por ejemplo, la palabra fruta, está etiquetada como <Nombre>fruta<\Nombre>. El problema es que, como todos sabemos, hay palabras que tienen más de una categoría gramatical. Como por ejemplo, la palabra "como". La cual, en concreto, tiene ...

Hola chicos, cargo de nuevo con un nuevo problemilla:

Éste es el siguiente, dispongo de una base de datos en Mysql, bastante "pesadita" (un par de gigas)... aun no he logrado insertarla en un Mysql puesto que no me permite hacerlo las limitaciones de tiempo de ejecución de PHP y tampoco las impuestas por el max_file_size_upload en el propio httpd.conf de Apache... por lo que cualquier intento con phpmyadmin se trunca...

He probado con bigdump.php ...

Hola, llevo una semana con esto y no logro sacarlo adelante, libros y libros, y ejemplos y ejemplos pero nada...

El código es una implementación a un proceso cliente servidor que no está corriendo como debiera; el soporte del producto parece que hace oídos sordos, por lo que estoy decidido a crear un script en Perl que permitiese controlar las anomalías de su comportamiento (cuelgues inesperados y por tanto reinicio de las plataformas)... para ello ...

Hola estoy intentando controlar a través de una select que me llega a una tabla la forma de leer el último fetch de mi select y colocarla en un fichero de texto.

Esto es lo que estoy haciendo:

En la query:
select id,text, node, ttime from eventos where lower(text) like '%mialarma%' order by ttime desc limit 1;

Me devuelve: ID, mialarma texto, ttime

1. Debería añadir el fetch a un fichero de texto...
@file


2.Debo ...

Estas son las propiedades de la select de la tabla a la que intento hacer el insert:

SELECT * from eventos where lower(text) like '%testigo%' order by ttime desc limit 1;
+-------+----------------------------
| ID | TEXT | CATEGORY | DOMAIN | NETWORK | NODE | ENTITY | SEVERITY | TTIME | SOURCE | HELPURL | WEBNMS | GROUPNAME | OWNERNAME |
+-------+---------------------------
| 20927 | Alert: testigo : arrived | public | | | 10.168.100.20 ...