Foro - Perl en Español

Hola. Estoy haciendo un programa que vea columnas para la seguridad de mi web y yo quiero que examine todas las columnas hasta el número 50.

Este es el código:

#!usr/bin/perl

use LWP::UserAgent;
use HTTP::Request;


my $url = $ARGV;

unless ($ARGV) {
print "Examinador <HOST>\n" ;
print "\n";
exit 0;
}

my $ua = LWP::UserAgent->new;
$ua->agent("Kidd 1.0 (http://perlenespanol.com/)");

my $req = HTTP::Request->new(GET => $url);
my $response = $ua->request($req);

my ...

¡Hola nuevamente!

Tengo la siguiente situación y quiero ver si pueden ayudarme.

Estoy haciendo un script que lee un archivo de configuración que trae un conjunto de datos de la forma:

Code: Seleccionar todo

#def tabla a:
[%a]
a1|a2|a3|a4|a5
#def tabla b:
[%b]
b1|b2|b3|b4|b5
#def tabla c:
[%c]
c1|c2|c3|c4|c5
#def tabla d:
[%d]
d1|d2|d3|d4|d5

Como ven, cada par de líneas hace la "definición" de una tabla. La cantidad y nombre de la tabla es variable. Mi intención es ...

Hola a todos.
Tengo un problemilla con un XML que tiene la siguiente estructura:

<perfil>
<miniPerfil tipo='a'>
<campo1> </campo1>
<campo2> </campo2>
</miniPerfil >
<miniPerfil tipo='b'>
<campo3> </campo3>
<campo4> </campo4>
<campo5> </campo5>
</miniPerfil>
</perfil>

Lo que quiero hacer es sacar cada "miniPerfil" (a,b.....) a un fichero. Es decir crear "a.xml" con los datos campo1 y campo2 "b.xml" con los datos campo3, campo4 y campo5.

Estoy usando XML::Simple pero al hacer XMLIn('ficheroXML_original') me da el siguiente error... ...

Saludos, con una consulta. ¿Existe algún comando para obtener el nombre del usuario con el que se está ejecutando un programa en Linux desde Perl?

Con el fin de promover el lenguaje Perl, y animar a más personas dentro de la comunidad Perl para promover el lenguaje al mundo exterior de nuestra habitación aislada, Enlightened Perl se complace en anunciar el Desafío del Hombre de Hierro Perl Bloggeador.

Las reglas son muy simples: tu bloguea, acerca de Perl. Cualquier aspecto de Perl que te guste. Largo, corto, divertido, serio, avanzada, de base: no importa. No tiene porqué ser en Inglés, ...

Me surge esta pregunta ya que equivocadamente o no, se dice que Perl está perdiendo posición frente a JAVA o PHP... :?:

Me gustaría saber qué plan o qué idea sería buena para contrarrestar este golpe. Que Perl ganara fuerza y fuera conocido en todos lados, por lo menos en el desarrollo web.

Para mi un pequeño problema es al hacer cosas sencillas, como todos empezamos por ...

Hola.

Tengo que controlar el estado de los discos de unos servidores Fujitsu Primergy y lo puedo hacer con SNMP (con snmpwalk). He hecho un programilla que en sí funciona pero me falta la guinda :-)

Aquí está el código:#!/usr/bin/perl
#===============================================================================
#
# FILE: check-fs-array.pl
#
# USAGE: ./check-fs-array.pl
#
# DESCRIPTION: check disk array controller health through SNMP
#
# OPTIONS: ---
# REQUIREMENTS: snmputils (snmpwalk, ...

Hola,

Sólo deseo saber el significado de
next if 1 .. /^No/;


Gracias.

¿Puedo con Perl crear una página como www.globalmarket. com o www.madeinchina. com?

Hola,
resulta que me he quedado un poco atascado en una opción. Necesito escribir en una zona determinada de un fichero, pero sólo sé modificar sobreescribiendo o añadiendo datos al final del fichero.

Me gustaría saber cómo colocarme en una determinada línea, y dentro de esa línea ubicarme tras el 4º campo del fichero passwd.

Saludos y muchas gracias.