Foro - Perl en Español

¡Hola, compañeros! ¡¡¡Disculpen si los molesto de nuevo!!!

¡Estoy trabajando con el modulo IPDevice::CiscoRouter para poder manipular access-list del router! ¡¡Pero no puedo correr el script porque me sale este error!!

Can't locate RouterBase.pm in @INC (@INC contains: /usr/lib/perl5/5.8.5/i386-linux-thread-multi /usr/lib/perl5/5.8.5 /usr/lib/perl5/site_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/site_perl/5.8.5 /usr/lib/perl5/site_perl/5.8.4 /usr/lib/perl5/site_perl/5.8.3 /usr/lib/perl5/site_perl/5.8.2 /usr/lib/perl5/site_perl/5.8.1 /usr/lib/perl5/site_perl/5.8.0 /usr/lib/perl5/site_perl /usr/lib/perl5/vendor_perl/5.8.5/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.4/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.3/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.2/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.1/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.0/i386-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.5 /usr/lib/perl5/vendor_perl/5.8.4 /usr/lib/perl5/vendor_perl/5.8.3 /usr/lib/perl5/vendor_perl/5.8.2 /usr/lib/perl5/vendor_perl/5.8.1 /usr/lib/perl5/vendor_perl/5.8.0 /usr/lib/perl5/vendor_perl .) at /usr/lib/perl5/site_perl/5.8.5/IPDevice/CiscoRouter.pm line 8.
BEGIN failed--compilation aborted at ...

Quería consultarles si alguien tiene algún script el cual tenga como función comprobar si una url existe.

Digamos tengo una web la cual es: localhost.net/Carpeta/situ.html

Bueno me gustaría mediante Perl poder comprobar si "Carpeta/situ.html" existe de ser así que me lo muestre con un print y sino está, también diciendo que no existe.

Estuve buscando info pero no encontré mucho.

Gracias.

¡¡¡Buenos días!!!

Una pregunta: ¿alguno de ustedes ha trabajado con el módulo IPDevice::CiscoRouter::Accesslist? ¡Lo que pasa es no sé cómo hacer para conectar ese módulo a mi router! Esta es la sintaxis que muestran en la página de CPAN:

use IPDevice::CiscoRouter::Accesslist;
my $acl = new IPDevice::CiscoRouter::Accesslist;
$acl->set_id(10);
$acl->add_entry('permit', '192.168.0.0/22', '20', '24');

¿Alguien tiene una idea de cómo conectarlo con la IP del router? ¿Porque yo uso Net::Telnet::Cisco para hacer la conexión al router!

¿Alguna idea? ...

Hola. Una pregunta: tengo un programa en Visual que manipula el puerto com4. ¿En Perl también se puede hacer? Gracias.

¡Hola, queridos compañeros! ¡Tengo una pregunta! ¿Cómo puedo llamar mi script Perl desde Dreamweaver que es donde estoy creando mi interfaz web? Mi script devuelve un mensaje que indica que sí se pudo conectar con mi router cisco...!

¿Alguna idea? ¡Agradecería mucho cada opinión que tengan!

¡Hola de nuevo!

Gracias a todos, porque esta web me está sirviendo de gran ayuda. Os lo estimo mucho.

La duda que tengo ahora es cómo utilizar "split" sin que "coma" nada; esto es, si tengo una cadena como ésta:

$cadena = "ladudaquetengoahoraesusarbienelsplit";

¿Cómo puedo hacer para crear un array con elementos que empiecen en "a", las 'a' incluidas? Esto es:

@array_cadena = qw( l adud aquetengo ahor aesus arbienelsplit";

Si pongo @array_cadena = split ...

¡¡Hola compañeros!! ¡Tengo un problema! Estoy tratando de probar un script hecho en Perl que se conecta con un router Cisco, ¡pero este es un CGI con extensión .pl! al momento de llamarlo en el cliente web me sale un error... y el error que me aparece en el log es el siguiente

[Tue Apr 08 11:30:58 2008] [error] Can't locate DateTime.pm in @INC (@INC contains: /opt/lampp/lib/perl5/5.10.0/i686-linux /opt/lampp/lib/perl5/5.10.0 /opt/lampp/lib/perl5/site_perl/5.10.0/i686-linux /opt/lampp/lib/perl5/site_perl/5.10.0 /opt/lampp/lib/perl5/site_perl . /opt/lampp) at /opt/lampp/cgi-bin/conexion.pl ...

Hola, tengo esta aplicación en Perl que debe de funcionar en cgi.
Ya lo guardé como programa.pl y programa.cgi. Lo pongo en la carpeta cgi-bin y no lo corre. ¿Por qué?

Lo pongo así
http://localhost/cgi-bin/programa.pl

También probé así
http://localhost/cgi-bin/programa.cgi

y me dice Internal Server Error ¿por qué? ¿qué tengo que hacer?
#! /usr/bin/perl -w
# usando módulo o librería CGI
use CGI;
use ...

Buenos días.

Por favor, ¿alguien podría proporcionarme un ejemplo de cómo utilizar el XML::DOM::DocumentFragment? Que he buscado en la red y no encuentro y el tutorial de CPAN no muestra mucha información al respecto. Gracias de antemano.

Saludos.

Terminado mi código me dí cuenta de que substr no sustituía en mi cadena lo que yo quería, ¿alguien podría ayudarme?

my $string = "N" x 2500;
my $start = 1000;
my $end = 1500;

my $desp = $end-$start;
substr ($string,$start,$desp) =~ s/N/B/ig;

while ($string =~ m/B+/ig) {

my $longitud = length $&;
my $slongitud = length $string;
my $posi = pos $string;
my $posf = $posi + $longitud;
print "$posi\t$posf\t$longitud\t$slongitud\n";

}

El printeo ...