Foro - Perl en Español

¡¡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 ...

Hola. Alguien tendrá una aplicación sencilla de CGI que tenga MySQL con Perl que dé una alta o algo así para ver más o menos cómo funciona y poder hacer yo una. Gracias.

Hola buenas ... Tengo un problema.

Por ejemplo me encuentro en el directorio: /home/later/Desktop , donde también se encuentra el script en perl. Donde hace esta función:

system ("cd /");

Ejecuto el script ... y todavía me sigo encontrando en /home/later/Desktop , y yo lo que quiero es que me mueva al directorio raiz "/".

Saludos!.

Hola a todos:

Tengo un problemilla con el cual me gustaría que me ayudarais. Tengo un array de cadenas de caracteres (de unos 200 elementos), y quisiera eliminar los elementos que están repetidos; la cadena consta, más o menos de 75 elementos diferentes, y quisiera crear otro array con esos 75 elementos, partiendo del de 200.
¿Alguien conoce una forma óptima de hacer eso? Estoy intentando con 'for' anidados, pero tarda relativamente mucho en procesar... ...

Hola, por favor, si alguien me puede ayudar con esto lo agradecería mucho.

Lo que quiero hacer es incrementar una variable o imprimir algo solo si la expresión regular me reconoce un patrón. Ejemplo:

my $cant=1;
$_="hola mundo hola";

/(.*?)\smundo\s\1(?{print "casa";$cant++;})/;

Probé con eso pero no me anda, o sea, que solo si me reconoce "hola mundo hola" me imprima "casa" y me incremente $cant, pero no me funciona,
¿cómo lo puedo hacer?

Gracias.

Hola, me gustaría que me ayudarais con un problemilla, que seguramente será muy fácil, pero me estoy rompiendo la cabeza...

Tengo un texto donde pueden aparecer minúsculas después de un punto (entre ellos siempre hay un espacio), y me gustaría poder cambiar esa minúscula de principio de frase a mayúscula. He intentado con "=~ s/ / /", pero no sé hacerlo. He intentado también con "tr", pero tampoco sé hacerlo. También he mirado el ucfirst, ...

Quisiera saber si hay una posibilidad de bajar el peso de una imagen al subirlo, estilo Outlook que las baja el peso de las misma de forma automática :?