«En este artículo vamos a probar las bases de datos gratuitas de conversión IP-a-país e IP-a-ciudad disponibles que se pueden descargar de http://www.maxmind.com.»
Artículo
-
- Publicidad
Fecha actual 2025-01-12 09:01 @417
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.Blog OpenAlfa: Cómo geolocalizar direcciones IP en Perl
Read more : Blog OpenAlfa: Cómo geolocalizar direcciones IP en Perl | Vistas : 864 | Respuestas : 0 | Foro : Pasando el rato
Blog OpenAlfa: Cómo procesar ficheros de log de accesos
«Existen muy buenas aplicaciones open source, como por ejemplo AWStats, que permiten realizar un análisis en profundidad de la información contenida en los logs de acceso de un servidor web.
En otro artículo comentaremos la funcionalidad de dicha herramienta, y la manera de instalarla y configurarla.
Sin embargo, en ocasiones nos puede interesar realizar un proceso ad-hoc de los ficheros de logs de nuestro servidor, para obtener información específica de la estructura de nuestro sitio ...
En otro artículo comentaremos la funcionalidad de dicha herramienta, y la manera de instalarla y configurarla.
Sin embargo, en ocasiones nos puede interesar realizar un proceso ad-hoc de los ficheros de logs de nuestro servidor, para obtener información específica de la estructura de nuestro sitio ...
Read more : Blog OpenAlfa: Cómo procesar ficheros de log de accesos | Vistas : 577 | Respuestas : 0 | Foro : Pasando el rato
Blog OpenAlfa: Cómo ordenar una variable hash por un valor
«En un artículo anterior hemos visto cómo trabajar con variables de tipo hash en Perl.
En dicho artículo veíamos la manera de recorrer las entradas del hash mediante un bucle ‘foreach’, ordenando el hash por sus claves con el operador ‘sort’.
En ocasiones, sin embargo, lo que necesitamos es ordenar el hash por los valores de sus entradas, no por las claves. Por ejemplo, supongamos que tenemos un hash que contiene pares (clave,valor) en donde ...
En dicho artículo veíamos la manera de recorrer las entradas del hash mediante un bucle ‘foreach’, ordenando el hash por sus claves con el operador ‘sort’.
En ocasiones, sin embargo, lo que necesitamos es ordenar el hash por los valores de sus entradas, no por las claves. Por ejemplo, supongamos que tenemos un hash que contiene pares (clave,valor) en donde ...
Read more : Blog OpenAlfa: Cómo ordenar una variable hash por un valor | Vistas : 798 | Respuestas : 0 | Foro : Pasando el rato
Problemas con Net::FTP
Estimados, espero alguien me pueda ayudar. Estoy teniendo problemas con este trozo de código:
$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;
La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, ...
$file = "archivo.zip";
my $ftp = Net::FTP->new("ftp.ftpAlQueMeConecto.cl",Port => 21, Debug => 1)
or die "ERROR AL CONECTAR";
$ftp->login("Login",'Password')
or die "error en el login ", $ftp->message;
$ftp->pasv();
$ftp->binary();
$ftp->get($file, "/tmp/archivo.zip") ||
die "get($file) failed: " . $ftp->code() . ": " . $ftp->message();#error
$ftp->quit;
La llamada a la librería está hecha. Lo he probado en varios servers y ha funcionado muy bien, ...
Read more : Problemas con Net::FTP | Vistas : 1520 | Respuestas : 3 | Foro : Intermedio
Problema al leer directorio con readdir
Resulta que tengo este código
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
#@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
#Se lee el directorio
while(readdir $dh) {
#Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);
}
closedir $dh;
return Dumper @dirs;
cuando lo ejecuto en Windows me muestra los directorios, ...
opendir(my $dh, $some_dir) || die "can't opendir $some_dir: $!";
#@dirs = grep { /^\./ && -f "$some_dir/$_" } readdir($dh);
#Se lee el directorio
while(readdir $dh) {
#Pongo en directorio si, el archivo no es un fichero y el directorio no tiene . o ..
push (@dirs,$_) if (! -f "$some_dir/$_" && ! /^\./);
}
closedir $dh;
return Dumper @dirs;
cuando lo ejecuto en Windows me muestra los directorios, ...
Read more : Problema al leer directorio con readdir | Vistas : 1425 | Respuestas : 2 | Foro : Intermedio
Tecla enter con scrollbar en Tk
Tengo una duda con el siguiente código:
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
my $body = $mejor->Scrolled("Text",-width=>98,-height=>30,-background=>$color_fondo,-foreground=>$color_texto,-scrollbars=>"e")->place(-x=>19,-y=>100);
$mejor->bind($body,"<Key-Return>"=> sub {
print "al fin\n";
});
El problema es que cuando lo uso con Text solo anda bien reconociendo la tecla enter pero cuando uso scrolled no reconoce nada.
¿ Alguien me podría explicar cómo soluciono esto ?
Read more : Tecla enter con scrollbar en Tk | Vistas : 759 | Respuestas : 0 | Foro : Básico
Como ver las conferencias YAPC::NA::2012 sin Silverlight
Para los que estamos siguiendo las conferencias de la última YAPC::NA, vimos que hay que instalar la pesadez del Silverlight o Moonlight.
Bueno, pues hay una alternativa mejor: usar VLC.
Bueno, pues hay una alternativa mejor: usar VLC.
Read more : Como ver las conferencias YAPC::NA::2012 sin Silverlight | Vistas : 820 | Respuestas : 0 | Foro : Pasando el rato
El último libro "Beginning Perl", disponible gratis
Por un tiempo limitado, se puede leer la última edición del libro "Beginning Perl", de Curtis “Ovid” Poe.
(en inglés).
(en inglés).
Read more : El último libro "Beginning Perl", disponible gratis | Vistas : 1498 | Respuestas : 0 | Foro : Noticias de Perl
Duda con expresión regular
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 ?
<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 ?
Read more : Duda con expresión regular | Vistas : 467 | 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 : 637 | Respuestas : 2 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981