Foro - Perl en Español

Hola, no sé si corresponde, por favor.

Tengo un problema que me gustaría solucionar también. Es referente a array y listas.

my @cola = qx( exim -bpr | grep \"<\" | awk {\'print \$4'} | cut -d \"<\" -f 2 | cut -d \">\" -f 1 | sort -n | uniq -c | sort -n);

Tengo un listado:
1 ............
11 ............
16 ............
36 [email protected]
47 ...

Estimados, un gusto saludarles nuevamente.

Les comento que tengo un pequeño problema con un archivo XML. El mismo no es un archivo XML normal y/o habitual y no encuentro la forma de separar los segmentos "padre" de los "hijos" y "sub hijos" por lo que acudo a ustedes para que puedan indicarme si alguien conoce una vía más efectiva de hacer la lectura y procesamiento de datos.


El ejemplo de XML es el siguiente:

[xml ...

Tengo este programa para hacer:

«Escribe un programa que pregunte por una lista de números hasta que la entrada sea "999". Y después imprime la suma de todos los números, menos el "999". Por ejemplo, si el usuario entra 1, 2, 5, y 999, la respuesta es 8 (1+2+5)».

Pero no sé cómo capturar los números ingresados y sumarlos.

Por favor, ¿alguien podría ayudarme?

Hola, explicaré lo que hice y mi problema, pero no adjuntaré código, porque en realidad es una pregunta muy básica, pero que no sé cómo formularla de la forma adecuada como para buscarla en Google. Ojalá se entienda sin código.

Creé más de un script que dibuja gráficos, con la ayuda del módulo GD.

Todo se ejecuta bien, no hay error en el código, sino más bien tuve un problema en el tiempo de ejecución. ...

Buenas.

Estoy haciendo un script para conectarme a un enrutador, por telnet, hacer un show running y descargarme la configuración en local.

Con todos los equipos funciona bien, pero tengo unos enrutadores un poco especiales que al traerme la configuración, parece que el equipo mete en la cabecera de la misma caracteres no UTF8 y queda raro. Esto es lo que veo:

cabecera.jpg

Esta es la parte del script donde he ...

Hola, quisiera saber cómo se puede capturar una tecla del teclado, pero que no me lo solicite explícitamente, es decir, que no se detenga el bucle que se está ejecutando.

Dejaré mi código para que se entienda mejor lo que deseo. Debo mencionar que es sólo con fines educativos que hago este tipo de script, sólo soy un programador aficionado.

use strict;
use strict;
use warnings;
use IO::Socket::INET;

my $sock = new IO::Socket::INET(
PeerAddr ...

Hola, ¿qué tal?

Tengo este código que tiene dos listas asignadas como array y al comparar una con la otra extrae lo que dé un match.

Lo quiero en subrutina porque estoy haciendo otro script con diferentes variantes (múltiples opciones) pero al final siempre tengo dos listas (dos arrays) que se comparan.

Estoy tratando de hacer la subrutina desde que inicia el "for (@list){ hasta el final }" y usarla algo así como " extract ...

Hola de nuevo, Perl en español. Quisiera saber qué diferencia tiene direccionar algo hacia una variable escalar entre paréntesis y direccionar ese mismo algo hacia un arreglo.


#!/usr/bin/perl

my $nombre;
my @nombres;

my $fichero = "fichero.rar datos.rar cosas.rar";

($nombre) = $fichero =~ /^(.+)\.rar$/i;
@nombres = $fichero =~ /^(.+)\.rar$/i;


¿Diferencias entre ($nombre) y @nombres?

¿¿Por qué usar uno en vez del otro??

Gracias por adelantado.

Hola.

Bueno, resulta que tengo varios archivos xml con datos los cuales necesito actualizar cada vez que tengo nuevos datos.

Lo que deseo saber es si es posible insertar los nuevos datos antes de cerrar el xml:

<label>
.datos viejos
.datos viejos
</label>

O sea, insertar los nuevos datos antes de </label>:

<label>
.datos viejos
.datos viejos
.datos nuevos
.datos nuevos
</label>

Esto deseo hacerlo hacer sin tener que utilizar los métodos de copiar para ...

Buen día. Busqué por el foro algo relacionado con lo que necesito y no encontré nada, por eso abro este tema.

No tengo experiencia en Perl, así que me apoyo en uds. Necesito lo siguiente:

Tengo en una ruta dentro de un AIX; un archivo de texto que contiene solamente una palabra ("running" o "stopped" o "warning", etc.). Ocupo un script que me abra ese archivo y me lea la palabra y me haga la ...