Tengo el siguiente texto:
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>
<controltotal>test
<controltotal>verdos
<controltotal>
Lo que quiero es sacar siempre el último <controltotal> para tener el último dato en una variable; en este caso sería "verdos". Eso: necesito conseguir el último con un dato, por eso quiero "verdos".
¿ Alguien me podría decir si es posible ?
-
- Publicidad
Fecha actual 2025-03-08 20:07 @879
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Duda con expresión regular
Read more : Duda con expresión regular | Vistas : 504 | Respuestas : 3 | Foro : Básico
Llamada a subrutina Perl desde HTML
Hola, soy estudiante y estoy aprendiendo...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Quisiera saber si se puede llamar a una subrutina Perl desde HTML.
El código es:
open (OUT,">$html");
print OUT <<ENDHTML_LAST
<body bgcolor="#F5F5F5">
<head>
<BR>
<title>$id</title>
</head>
<CENTER>
<TABLE bgcolor="#FFFFFF" border = "0" WIDTH="60%">
<tr>
<td><img src= "encabezado.jpg"><hr></td>
</tr>
<TR>
<td align="center">
<iframe width="35%" height="350" frameborder="0" scrolling="no" marginheight="0" marginwidth="0" src="http://maps.google.com/maps?f=q&source=s_q&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6&iwloc=&output=embed"></iframe>
<small>
</td>
</TR>
<tr>
<td align="center"><font size="2"><font face="Arial, Helvetica, sans-serif"><a href="http://maps.google.com/maps?f=q&source=embed&hl=es&geocode=&q=loc:$latitud+$longitud&aq=&sll=37.0625,-95.677068&sspn=37.735377,86.572266&ie=UTF8&ll=$latitud,$longitud&spn=11.053202,21.643066&t=m&z=6" style="color:#0000FF;text-align:left">Ver mapa más grande</a></small> </font></font></td>
</tr>
<tr>
<td> </td> ...
Read more : Llamada a subrutina Perl desde HTML | Vistas : 675 | Respuestas : 2 | Foro : Básico
Uso de \b
Hola,
Tengo un programa en el que delimito el principio y final de palabra con \b. El problema radica que en Linux las letras con tilde las detecta como final de palabra, y claro, me rompe la teoría. (En la máquina Windows me funciona correctamente).
Supongo que es porque tengo mal definido el "encode" utilizado, ¿¿no??
Mil gracias.
Tengo un programa en el que delimito el principio y final de palabra con \b. El problema radica que en Linux las letras con tilde las detecta como final de palabra, y claro, me rompe la teoría. (En la máquina Windows me funciona correctamente).
Supongo que es porque tengo mal definido el "encode" utilizado, ¿¿no??
Mil gracias.
Script para hacer ping a una lista de IP
Hola.
Estoy haciendo un script para que lea las IP de un fichero y muestre en un fichero las IP que responden a un ping. Lo que ocurre es que aunque el PC al que hago ping esté encendido, el script me dice que no responde al ping. ¿Sabéis cómo solucionarlo?
#!/usr/bin/perl
use Net::Ping;
open(INFILE, "<", "servers") or die("cannot open infile: $!");
my @ip_array = <INFILE>;
close(INFILE);
open(OUTFILE, ">", "ping_output") or die("unable to write ...
Estoy haciendo un script para que lea las IP de un fichero y muestre en un fichero las IP que responden a un ping. Lo que ocurre es que aunque el PC al que hago ping esté encendido, el script me dice que no responde al ping. ¿Sabéis cómo solucionarlo?
#!/usr/bin/perl
use Net::Ping;
open(INFILE, "<", "servers") or die("cannot open infile: $!");
my @ip_array = <INFILE>;
close(INFILE);
open(OUTFILE, ">", "ping_output") or die("unable to write ...
Read more : Script para hacer ping a una lista de IP | Vistas : 1994 | Respuestas : 1 | Foro : Básico
Ventanas Emergentes en Catalyst framework web
Hola, amigos, estoy diseñando un pequeño programita con la ayuda del framework Catalyst acompañado de la BD PostgreSQL.
Tengo la necesidad de hacer mis ventanas interactivas, como por ejemplo: necesito hacer un formulario en ventana emergente y esos datos capturados enviarlos a la ventana padre sin volver a cargar nada nuevamente. Tengo entendido que se puede utilizar Javascript y jQuery en Catalyst pero la verdad, no he encontrado ejemplos claros.
Si alguien puede darme un ...
Tengo la necesidad de hacer mis ventanas interactivas, como por ejemplo: necesito hacer un formulario en ventana emergente y esos datos capturados enviarlos a la ventana padre sin volver a cargar nada nuevamente. Tengo entendido que se puede utilizar Javascript y jQuery en Catalyst pero la verdad, no he encontrado ejemplos claros.
Si alguien puede darme un ...
Read more : Ventanas Emergentes en Catalyst framework web | Vistas : 772 | Respuestas : 2 | Foro : Básico
Copy no funciona en Windows 7
Buenos días.
Estoy intentando copiar un archivo a una carpeta llamada Downloads/ utilizando:
system("copy XXXXX.tar.gz Downloads/");
En un ordenador con Windows 2000 sí que me funciona esta copia, pero lo estoy intentando con un ordenador con Windows 7 y me dice:
"El sistema no puede hallar el archivo especificado".
¿Hay algo que estoy haciendo mal? ¿Cambia la función copy de un Windows a otro? ¿Quizás necesitaría meter alguna librería en el ordenador con Windows ...
Estoy intentando copiar un archivo a una carpeta llamada Downloads/ utilizando:
system("copy XXXXX.tar.gz Downloads/");
En un ordenador con Windows 2000 sí que me funciona esta copia, pero lo estoy intentando con un ordenador con Windows 7 y me dice:
"El sistema no puede hallar el archivo especificado".
¿Hay algo que estoy haciendo mal? ¿Cambia la función copy de un Windows a otro? ¿Quizás necesitaría meter alguna librería en el ordenador con Windows ...
Read more : Copy no funciona en Windows 7 | Vistas : 548 | Respuestas : 2 | Foro : Básico
Hacer un POST a un login
Hola, bueno todos, soy nuevo en este foro.
Me gustaría que me guiaran para poder hacer un programa en Perl que haga una POST a un login de una página web y luego de hacerlo verificar hacia donde redirecciona dicha página, ya que cuando uno hace un intento de registro malo, lo redirecciona a http://www.ll.com y cuando se registra correctamente me redirecciona a otra web, ejemplo: ...
Me gustaría que me guiaran para poder hacer un programa en Perl que haga una POST a un login de una página web y luego de hacerlo verificar hacia donde redirecciona dicha página, ya que cuando uno hace un intento de registro malo, lo redirecciona a http://www.ll.com y cuando se registra correctamente me redirecciona a otra web, ejemplo: ...
Read more : Hacer un POST a un login | Vistas : 1346 | Respuestas : 7 | Foro : Básico
Comando ping
Recién hace dos días que arranco con esto, así que perdonen si pregunto alguna boludez o algo muy sencillo :oops:
Mi consulta es la siguiente:
#!/usr/bin/perl
use Shell;
print "Content-type: text/html\n\n";
$foo = ping("-c5", "www.google.com\n\n");
print $foo;
$foo1 = ping("-c5", "www.ole.com.ar\n\n");
print $foo1;
Yo tengo armado esta función para tirar ping a esas dos páginas, pero al ejecutar esto vía web,
http://miservidor.com.ar/cgi-bin/perl.pl ...
Mi consulta es la siguiente:
#!/usr/bin/perl
use Shell;
print "Content-type: text/html\n\n";
$foo = ping("-c5", "www.google.com\n\n");
print $foo;
$foo1 = ping("-c5", "www.ole.com.ar\n\n");
print $foo1;
Yo tengo armado esta función para tirar ping a esas dos páginas, pero al ejecutar esto vía web,
http://miservidor.com.ar/cgi-bin/perl.pl ...
Read more : Comando ping | Vistas : 990 | Respuestas : 4 | Foro : Básico
Internal Server Error, nuevo para mi
Hay Perl... hay servidor Linux... A veces me siento la frustración y lo complejo de algo tan simple...
Tengo una aplicación que en local, en mi Optiperl funciona bien, en un hosting también me corrió bien...
Pero la subí a otro hosting y obtengo Error 500 Internal Server Error. El log solo me dice algo como:
File does not exist: /home/expola/public_html/404.shtml, referer: http://expolatinedutour.com/index.pl ...
Tengo una aplicación que en local, en mi Optiperl funciona bien, en un hosting también me corrió bien...
Pero la subí a otro hosting y obtengo Error 500 Internal Server Error. El log solo me dice algo como:
File does not exist: /home/expola/public_html/404.shtml, referer: http://expolatinedutour.com/index.pl ...
Read more : Internal Server Error, nuevo para mi | Vistas : 3737 | Respuestas : 10 | Foro : Web
Obtener el nombre del último archivo creado en un directorio
En un directorio al que accedo por ftp, tengo cientos de archivos, pero sólo me interesan los archivos que empiezan por GetFtp, y en concreto, el último archivo creado.
Ejemplo.
GetFtp.20120608050100.tar.gz
GetFtp.20120610050100.tar.gz
GetFtp.20120612050100.tar.gz
Sólo me interesaría el último que ha sido creado en el mismo día.
¿Cómo podría obtener el nombre del fichero para luego poder hacer un get() y descargarlo?
año /2012 mes/ 06 día/12 hora /050100
Disculpad si no me he expresado ...
Ejemplo.
GetFtp.20120608050100.tar.gz
GetFtp.20120610050100.tar.gz
GetFtp.20120612050100.tar.gz
Sólo me interesaría el último que ha sido creado en el mismo día.
¿Cómo podría obtener el nombre del fichero para luego poder hacer un get() y descargarlo?
año /2012 mes/ 06 día/12 hora /050100
Disculpad si no me he expresado ...
Read more : Obtener el nombre del último archivo creado en un directorio | Vistas : 1225 | Respuestas : 2 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981