Tengo el siguiente código:
#!C:/xampp/perl/bin/perl.exe
print "content-type: text/html \n\n";
print <<EOF;
<img src="moto.jpg" />
EOF
pero al ejecutarlo no carga la imagen, pero si lo pongo en una página HTML normal:
<img src="moto.jpg" />
carga perfectamente. También intenté cambiar la URL de la imagen, como por ejemplo:
"C:/xampp/cgi-bin/DarkDragon/moto.jpg"
"C:/moto.jpg"
"localhost/cgi-bin/DarkDragon/moto.jpg"
"DarkDragon/moto.jpg"
"../../../moto.jpg"
"/moto.jpg"
"cgi-bin/moto.jpg"
pero con ninguna carga la imagen :?
-
- Publicidad
Fecha actual 2025-02-22 22:29 @979
News of Mundo Perl
Site map of Mundo Perl » Foro : Mundo Perl
Problema al cargar imágenes con Perl
Read more : Problema al cargar imágenes con Perl | Vistas : 1900 | Respuestas : 3 | Foro : Web
Evaluar una variable en Perl
¡Hola! :)
Estoy aprendiendo Perl y quiero saber si puedo evaluar una variable como se hace en Cobol. Ejemplo:
EVALUATE X
WHEN 0
CONDICION 1
WHEN 1
CONDICION 2
WHEN 2
CONDICION 3
WHEN OTHER
CONDICION 4
END-EVALUATE;
Les agradezco si me pueden ayudar, este es el único medio por el cual estoy aprendiendo Perl.
Att: Chascarrilla
Estoy aprendiendo Perl y quiero saber si puedo evaluar una variable como se hace en Cobol. Ejemplo:
EVALUATE X
WHEN 0
CONDICION 1
WHEN 1
CONDICION 2
WHEN 2
CONDICION 3
WHEN OTHER
CONDICION 4
END-EVALUATE;
Les agradezco si me pueden ayudar, este es el único medio por el cual estoy aprendiendo Perl.
Att: Chascarrilla
Read more : Evaluar una variable en Perl | Vistas : 1274 | Respuestas : 4 | Foro : Básico
Problemas al leer un archivo xlsx
¿Qué tal? Solicitando nuevamente de su ayuda.
Tengo un archivo xlsx el cual lo quiero pasar a txt. Cuando leo el archivo xlsx obtengo el valor de las celdas que me interesan. El problema surge al leer celdas que contienen fórmulas o cantidades fijas. Obtengo un cero y lo que me interesa es extraer el valor de esa celda.
¿Cómo puedo hacer, para que en lugar de 0, me mande realmente el valor que contiene ...
Tengo un archivo xlsx el cual lo quiero pasar a txt. Cuando leo el archivo xlsx obtengo el valor de las celdas que me interesan. El problema surge al leer celdas que contienen fórmulas o cantidades fijas. Obtengo un cero y lo que me interesa es extraer el valor de esa celda.
¿Cómo puedo hacer, para que en lugar de 0, me mande realmente el valor que contiene ...
Read more : Problemas al leer un archivo xlsx | Vistas : 3849 | Respuestas : 13 | Foro : Intermedio
Cómo crear Cookies con Perl
¡Hola! Quiero crear una página con usuarios y quisiera saber si me pueden pasar una página para poder descargar un módulo para crearlas y mejor si me pueden explicar cómo se usa. ¡Gracias!
Es que ya vi el tutorial de cómo crear Cookies de esta página pero me sale el siguiente error:
malformed header from script. Bad header=domain = http://www.mevolucion.com; : start.pl
Este es el módulo de la cookie ...
Es que ya vi el tutorial de cómo crear Cookies de esta página pero me sale el siguiente error:
malformed header from script. Bad header=domain = http://www.mevolucion.com; : start.pl
Este es el módulo de la cookie ...
Read more : Cómo crear Cookies con Perl | Vistas : 2003 | Respuestas : 2 | Foro : Web
Funcionamiento de map
Resulta que no tengo el dato que espero...
Traigo los registros de una base de datos, y quiero en una sola línea crearle un campo a cada registro con los datos del creador del registro de otra tabla, eso por medio de un ORM:
$_->{'created_by'} = 1 # para todos los registros que traigo
$_->{'edited_by'} = 3 # para todos los registros
mi línea map es así:
map( %{$_}->{'creador'} = $usuario->retrieve( $_->{'created_by'} ) , @$contents); ...
Traigo los registros de una base de datos, y quiero en una sola línea crearle un campo a cada registro con los datos del creador del registro de otra tabla, eso por medio de un ORM:
$_->{'created_by'} = 1 # para todos los registros que traigo
$_->{'edited_by'} = 3 # para todos los registros
mi línea map es así:
map( %{$_}->{'creador'} = $usuario->retrieve( $_->{'created_by'} ) , @$contents); ...
Read more : Funcionamiento de map | Vistas : 6671 | Respuestas : 20 | Foro : Avanzado
Agregar CSS a Perl
Por ejemplo, tengo el siguiente código:
#!C:/xampp/perl/bin/perl.exe
print "Content-type: text/html \n\n";
print <<EOF;
<html>
<head>
<style type="text/css">
body{background-image:url("fondo.png");background-repeat: repeat}
</style>
</head>
<body>
<center><h1>Hola Mundo</h1></center>
</body>
</html>
EOF
Y cuando lo ejecuto lo único que me sale es el título, no aparece el fondo, ya probé el código en una página HTML y sale todo bien pero con Perl, nada.
#!C:/xampp/perl/bin/perl.exe
print "Content-type: text/html \n\n";
print <<EOF;
<html>
<head>
<style type="text/css">
body{background-image:url("fondo.png");background-repeat: repeat}
</style>
</head>
<body>
<center><h1>Hola Mundo</h1></center>
</body>
</html>
EOF
Y cuando lo ejecuto lo único que me sale es el título, no aparece el fondo, ya probé el código en una página HTML y sale todo bien pero con Perl, nada.
Read more : Agregar CSS a Perl | Vistas : 2394 | Respuestas : 18 | Foro : Básico
Filtrar caracteres
Soy nueva en esto del manejo de Perl. La verdad es que jamás lo había usado... He estado buscando mucho en Internet pero no he hallado nada que me ayude...
Mi problema es que leo un archivo de texto y después me crea otro archivo de texto con todas sus líneas (eso ya lo hace). Mi problema es que al enviarlo al otro archivo tengo que eliminar algunos caracteres de algunas líneas y en otras ...
Mi problema es que leo un archivo de texto y después me crea otro archivo de texto con todas sus líneas (eso ya lo hace). Mi problema es que al enviarlo al otro archivo tengo que eliminar algunos caracteres de algunas líneas y en otras ...
Read more : Filtrar caracteres | Vistas : 848 | Respuestas : 4 | Foro : Básico
Explicación de una instrucción
Pues resulta que me vengo leyendo algunos manuales y viendo códigos ya escritos pero en ningún lado doy con el siguiente tipo de instrucción:
$tipo{'cartera'}{'bolso'}="No";
No logro entender qué se está queriendo hacer... ¿Alguien sería tan amable de decirme cuál es la intención en este caso de usar esta variable? :?
$tipo{'cartera'}{'bolso'}="No";
No logro entender qué se está queriendo hacer... ¿Alguien sería tan amable de decirme cuál es la intención en este caso de usar esta variable? :?
Read more : Explicación de una instrucción | Vistas : 846 | Respuestas : 2 | Foro : Básico
Añadir icono en la TaskBar
¡Buenos días, perleros!
La pregunta es bien sencilla: ¿cómo puedo añadir un icono de mi programa hecho en Gtk2-Perl a la TaskBar de mi equipo? Es decir, poder minimizar mi programa en la barra sin que me moleste en la pantalla y pueda estar ejecutándose, hasta que decida clicar el icono de nuevo y que me vuelva a aparecer la ventana.
Muchas gracias.
RastaCat.
La pregunta es bien sencilla: ¿cómo puedo añadir un icono de mi programa hecho en Gtk2-Perl a la TaskBar de mi equipo? Es decir, poder minimizar mi programa en la barra sin que me moleste en la pantalla y pueda estar ejecutándose, hasta que decida clicar el icono de nuevo y que me vuelva a aparecer la ventana.
Muchas gracias.
RastaCat.
Read more : Añadir icono en la TaskBar | Vistas : 1311 | Respuestas : 1 | Foro : Intermedio
Expresión regular en Google
Tengo el siguiente código.
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
$code = toma("http://www.google.com.ar/search?q=test&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a");
while($code=~/<a href="(.*?)" class=l onmousedown/mig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
El problema es que la expresión regular no funciona. El patrón es así:
<a href="http://www.psicoactiva.com/tests.htm" class=l onmousedown
¿ Alguien me podría ayudar ?
use LWP::UserAgent;
my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);
$code = toma("http://www.google.com.ar/search?q=test&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:es-ES:official&client=firefox-a");
while($code=~/<a href="(.*?)" class=l onmousedown/mig) {
print $1."\n";
}
sub toma {
return $nave->get($_)->content;
}
El problema es que la expresión regular no funciona. El patrón es así:
<a href="http://www.psicoactiva.com/tests.htm" class=l onmousedown
¿ Alguien me podría ayudar ?
Read more : Expresión regular en Google | Vistas : 1056 | Respuestas : 6 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981