• Publicidad

Fecha actual 2025-02-23 14:53 @661

News News of Mundo Perl

Site map of Mundo Perl » Foro : Mundo Perl

Comprobando código fuente

Hola a todos, en este día estuve programando unas cosas y tenía un problema: necesitaba comparar el código fuente a ver si eran iguales y al parecer no comparaba bien el código fuente o hay algún error.

Este es mi código:
use LWP::UserAgent;
use HTTP::Request;

my $ua = new LWP::UserAgent;
$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");

my $com1 = new HTTP::Request GET =>"http://start.ubuntu.com/9.04/";
my $com2 = new HTTP::Request GET =>"http://www.google.es/"; ...
Read more : Comprobando código fuente | Vistas : 885 | Respuestas : 2 | Foro : Intermedio


Ayuda con un módulo

Hola a todos. Necesito ayuda con un módulo que hice y lo exporté, pero en otro programa en el que lo uso, me dice que una función no está declarada, pero si dentro de la función le pongo print(), sí me lo imprime, está medio raro. Gracias de antemano, aquí les va el código:

package Monsters;

use strict;
use Exporter;

our @ISA= qw(Exporter);
our @Export = qw(Get_Monster Rand_Monster Data_Monster Monster);
sub Get_Monster{

open my ...
Read more : Ayuda con un módulo | Vistas : 1716 | Respuestas : 5 | Foro : Módulos


Cómo manejar un error con XML::Simple

Saludos, con una consulta: tengo un programa que recibe un XML, mi pregunta es ¿cómo puedo manejar un error en XML::Simple? Para que valide solo una trama. Ejemplo.

El xml correcto es:
<recarga>
<plastico>4234567890123456</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
El xml incorrecto es que venga más de una solicitud. Ejemplo:
<recarga>
<plastico>4234588890123333</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>56.78</valor>
</recarga>
<recarga>
<plastico>4234567812345678</plastico>
<fechaven>200906</fechaven>
<documento>123456789</documento>
<moneda>320</moneda>
<valor>156.78</valor>
</recarga>

El código que actualmente tengo no sé dónde decirle ...
Read more : Cómo manejar un error con XML::Simple | Vistas : 611 | Respuestas : 3 | Foro : Básico


Net::Telnet::Cisco, solo password

Hola, amigos foreros.

Resulta que realicé este script, el cual me funciona de maravilla, pero necesito acceder a otro equipo que solo pide password (no tiene nombre de usuario). Vverifiqué la LIB, la sintaxis, pero no comprendo la parte que dice la librería:
#!
$cmd = $cgi->param("cmd" );
$cm = $cgi->param("cmts");
$mac = $cgi->param("mac" );

$ip = '10.52.1.1';
$com = 'scm';

my $session = Net::Telnet::Cisco->new(Host => $ip); # 192.168.88.3

print "Content-type: text/html; charset=iso-8859-1\n\n"; # ...
Read more : Net::Telnet::Cisco, solo password | Vistas : 7036 | Respuestas : 27 | Foro : Básico


Ejecución que se interrumpe (extraño para mi)

Hola a todos.

Hace un tiempo vengo desarrollando un programa para mostrar la ciudad en que vivo (Manizales, Colombia) al mundo usando Internet ,

El sitio es http://www.manizales.tk

Yo trabajo el sitio por categorías
1 : imagen del día
2 : chica de hoy
3 : Chico de hoy
.
.
7: Vídeo del día

y así todas las categorías.

El programa está en Perl usando un server gratuito ...
Read more : Ejecución que se interrumpe (extraño para mi) | Vistas : 358 | Respuestas : 2 | Foro : Básico


Cómo le agrego un icono a un programa compilado en exe

Hola.

Quiero agregarle un icono a uno de mis programas Perl ya compilados en exe con perl2exe pero no sé cómo se hace.

¿Hay alguna forma de hacerlo?
Read more : Cómo le agrego un icono a un programa compilado en exe | Vistas : 326 | Respuestas : 1 | Foro : Básico


Hash de hash

Hola, comunidad de Perl en Español. Soy nuevo en el foro y ando complicado con el tema de hash de hashs.

Crearlos es sencillo pero leerlos no termino de comprender... tal vez esté haciendo todo mal.

A ver...

Tengo esto:

print "Nombre de la carpeta: ";
$carpeta = <STDIN>;
chomp($carpeta);
opendir(DIR,$carpeta) || die "Error al abrir la carpeta.";
readdir(DIR);
readdir(DIR);
while( $file=readdir(DIR)) {
open(F,"$carpeta\\$file") || die "archivo no encontrado";
while ( $linea=<F> ) ...
Read more : Hash de hash | Vistas : 660 | Respuestas : 2 | Foro : Básico


Usuario de dominio e IP por CGI

Buenas tardes, gente...

Esta es una pregunta que me ronda la cabeza...

¿Se puede conocer por perl-cgi el user del dominio de un visitante de la página?

Aunque no tenga yo los privilegios de admin del dominio.

Quiero decir, ¿hay un pragma que me dé esta información? Estuve viendo los pragmas NET y no encontré lo que buscaba.

Cualquier ayuda es bienvenida.

Desde ya muchas gracias.
Read more : Usuario de dominio e IP por CGI | Vistas : 1385 | Respuestas : 1 | Foro : Web


Script de Perl no se ejecuta al correrlo con el navegador

¡Hola!

Tengo un Debian con Apache2, PHP y Perl.

En Apache tengo la siguiente configuración:

ScriptAlias /cgi-bin/ /var/www/ppr/cgi-bin/
<Directory "/var/www/ppr/cgi-bin/">
AllowOverride None
Options +ExecCGI -MultiViews +SymLinksIfOwnerMatch
Order allow,deny
Allow from all
</Directory>

Y dentro de esa carpeta tengo un script en Perl; si lo ejecuto desde la consola me corre perfectamente y los resultados son satisfactorios, de hecho si lo redirecciono a un archivo html y lo abro, éste me genera el resultado que ...
Read more : Script de Perl no se ejecuta al correrlo con el navegador | Vistas : 2681 | Respuestas : 4 | Foro : Web


Saber si un carácter es salto de línea

Hola,
Quiero saber si hay alguna forma para saber si dado un carácter, se puede saber si es un salto de línea o un carácter común.

Saludos.
Read more : Saber si un carácter es salto de línea | Vistas : 2207 | Respuestas : 8 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981