Mientras una consulta a la DB me devuelve registros, voy cargando estos en un hash con el fin de poder, luego, desplegar ese listado con alguna que otra restricción:
$altas{$fec}->{$valor}->{identificador}=$id;
$altas{$fec}->{$valor}->{login}=$login;
$altas{$fec}->{$valor}->{dire}=$dire;
$altas{$fec}->{$valor}->{tel}=$tel;
$altas{$fec}->{$valor}->{fdp}=$fdp_rid;
$altas{$fec}->{$valor}->{solicitud}=;
$altas{$fec}->{$valor}->{comision}=;
__OUTPUT__
%hash => {
'06-05-2013' => {
'1' => {
'identificador' => 20623,
'comision' => ,
'login' => 'algio_c',
'dire' => 'XXXXXXXXXXXXXXXXXX',
'tel' => '55555555555555',
'fdp' => 1,
'solicitud' => [
'Disponibilidad OK', ...
-
- Publicidad
Fecha actual 2024-11-07 05:35 @274
News of Básico
Site map of Básico » Foro : Básico
¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.No puedo mostrar contenido de HoH
Read more : No puedo mostrar contenido de HoH | Vistas : 646 | Respuestas : 2
Contador CGI
¡Hola amigos! Estoy de vuelta, perdón por la demora.
Resulta que ando trabajando en un contador sencillo para un website que llevo, pero el "querido" contador, me tira siempre en Error 500.
Por acá el código.
#!/usr/bin/perl #Gracias por el arreglo explorer ^^
#Contador de visitas
&escribe_visita;
sub escribe_visita
{
my $user_agente = $ENV{HTTP_USER_AGENT};
my $remote_address = $ENV{REMOTE_ADDR};
my $file = open(VS,"visitas/visitas.txt");
if (!$file);
{
print "Content-type:text/html\n\n";
print "<html>";
print "<head>";
print "<body>";
print ...
Resulta que ando trabajando en un contador sencillo para un website que llevo, pero el "querido" contador, me tira siempre en Error 500.
Por acá el código.
#!/usr/bin/perl #Gracias por el arreglo explorer ^^
#Contador de visitas
&escribe_visita;
sub escribe_visita
{
my $user_agente = $ENV{HTTP_USER_AGENT};
my $remote_address = $ENV{REMOTE_ADDR};
my $file = open(VS,"visitas/visitas.txt");
if (!$file);
{
print "Content-type:text/html\n\n";
print "<html>";
print "<head>";
print "<body>";
print ...
Read more : Contador CGI | Vistas : 1274 | Respuestas : 6
print y chomp juntos
Hola, soy nuevo en el tema de programación en general... obviamente también en Perl y tengo la siguiente pregunta:
¿Por qué cuando escribo algo como:
while ($linea = <STDIN>){
chomp $linea;}
print $linea;
la función print no imprime nada en la salida estándar?
Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:
actg
ggct
aaaa
gtac
Todas esas 4 líneas adjudicárselas a la variable $linea.
De antemano, ...
¿Por qué cuando escribo algo como:
while ($linea = <STDIN>){
chomp $linea;}
print $linea;
la función print no imprime nada en la salida estándar?
Lo que intento hacer es asignar varias líneas (desde entrada estándar) a una sola variable.
Por ejemplo:
actg
ggct
aaaa
gtac
Todas esas 4 líneas adjudicárselas a la variable $linea.
De antemano, ...
Read more : print y chomp juntos | Vistas : 604 | Respuestas : 1
Transporte SMS
Estimados, nuevamente escribo para consultar sobre un script de Perl que, aunque un poco viejito, me pareció muy útil.
El script recibe la dirección del remitente en $ARGV, el número de teléfono como $ARGV y el cuerpo del mensaje en STDIN.
Sólo debemos recibir un mensaje por usuario, luego envía el cuerpo del mensaje al dæmon gnokii-smsd para su envío por sms.
El inconveniente que tengo es que al recibir el correo formateado en HTML, ...
El script recibe la dirección del remitente en $ARGV, el número de teléfono como $ARGV y el cuerpo del mensaje en STDIN.
Sólo debemos recibir un mensaje por usuario, luego envía el cuerpo del mensaje al dæmon gnokii-smsd para su envío por sms.
El inconveniente que tengo es que al recibir el correo formateado en HTML, ...
Read more : Transporte SMS | Vistas : 1221 | Respuestas : 5
Conectanto Perl con MySQL
Hola:
Estoy intentando conectar mi script MySQL pero no hay manera.
Tengo instalado MySQL en una máquina remota y mi código es el siguiente:
my $database = "Datagrabs";
my $dsn = "DBI:mysql:database=datagrabs;host=x.x.x.x:3306";
my $user = ";prueba";
my $pwd = ";password";
my $dbh = DBI->connect($dsn,$user,$pwd, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;
Pero no hay manera.
Es muy simple pero me da el siguiente error.
Couldn't connect to database: ...
Estoy intentando conectar mi script MySQL pero no hay manera.
Tengo instalado MySQL en una máquina remota y mi código es el siguiente:
my $database = "Datagrabs";
my $dsn = "DBI:mysql:database=datagrabs;host=x.x.x.x:3306";
my $user = ";prueba";
my $pwd = ";password";
my $dbh = DBI->connect($dsn,$user,$pwd, {PrintError => 0})
or die "Couldn't connect to database: " . DBI->errstr;
Pero no hay manera.
Es muy simple pero me da el siguiente error.
Couldn't connect to database: ...
Read more : Conectanto Perl con MySQL | Vistas : 909 | Respuestas : 5
Cargar varias páginas en Perl
Estoy haciendo una función para cargar varias páginas al mismo tiempo.
use threads;
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);
print toma("http://www.google.com");
sub toma {
my $hilo = threads->new(\&tomarapido($_);
$hilo->join();
sub tomarapido {
return $nave->get($_)->content;
}
}
La primera pregunta de muchas es cómo arreglo la línea esta:
my $hilo = threads->new(\&tomarapido($_);
¿ Alguien me podría explicar cómo lo hago ?
P.D. : a simple ...
use threads;
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);
print toma("http://www.google.com");
sub toma {
my $hilo = threads->new(\&tomarapido($_);
$hilo->join();
sub tomarapido {
return $nave->get($_)->content;
}
}
La primera pregunta de muchas es cómo arreglo la línea esta:
my $hilo = threads->new(\&tomarapido($_);
¿ Alguien me podría explicar cómo lo hago ?
P.D. : a simple ...
Read more : Cargar varias páginas en Perl | Vistas : 1376 | Respuestas : 9
Binario y texto normal
Estaba viendo este página que ofrece un servicio que necesito hacerlo en Perl: http://www.roubaixinteractive.com/PlayG ... o_Text.asp
La pregunta es: ¿cómo convierto texto normal a binario y de binario a texto normal?
¿ Alguien me podría dar un ejemplo ?
La pregunta es: ¿cómo convierto texto normal a binario y de binario a texto normal?
¿ Alguien me podría dar un ejemplo ?
Read more : Binario y texto normal | Vistas : 1088 | Respuestas : 3
Autologin en página con HTTPS
Buenas tardes, maestros. Les comento: estoy realizando algo para poder realizar un autologin (algo así como lo que expone explorer al final de este artículo). He entendido la mayoría del código que ha expuesto, sin embargo he tratado de implementar el código pero en una conexión HTTPS que tiene errores con el certificado (ya logré omitir el error), sin embargo no he logrado llegar a registrarme y que me redireccione, solo me quedo en la ...
Read more : Autologin en página con HTTPS | Vistas : 1557 | Respuestas : 4
Leer y reemplazar cadena de texto
Hola,
Soy nuevo en Perl y también en este foro (aunque me está gustando y creo que vengo para quedarme :wink: )
Tengo un fichero.csv con dos columnas de longitud variable:
Nombre_Sede;Red_Sede
La idea es leer ambos valores, abrir un fichero .txt, buscar en él el valor Red_Sede y reemplazarlo por Nombre_Sede.
¿Alguna sugerencia? Lo he hecho con VBscript, pero obviamente con un rendimiento nefasto ...
Soy nuevo en Perl y también en este foro (aunque me está gustando y creo que vengo para quedarme :wink: )
Tengo un fichero.csv con dos columnas de longitud variable:
Nombre_Sede;Red_Sede
La idea es leer ambos valores, abrir un fichero .txt, buscar en él el valor Red_Sede y reemplazarlo por Nombre_Sede.
¿Alguna sugerencia? Lo he hecho con VBscript, pero obviamente con un rendimiento nefasto ...
Read more : Leer y reemplazar cadena de texto | Vistas : 5750 | Respuestas : 38
Comparar fecha con variable
Esto es lo que tengo que realizar hasta aquí. Todo bien, lo único es que quisiera que leyera varias pasadas y fuera acumulando el total de las ventas perdidas por errores... El error es como si no regresara al primer goto.
Que la transacción sea aprobada
Que la transacción sea suspendida por las siguientes causas:
* Fecha de emisión caducada
* Rebaso el límite de crédito
* No es posible obtener autorización de tarjeta utilizada ...
Que la transacción sea aprobada
Que la transacción sea suspendida por las siguientes causas:
* Fecha de emisión caducada
* Rebaso el límite de crédito
* No es posible obtener autorización de tarjeta utilizada ...
Read more : Comparar fecha con variable | Vistas : 593 | Respuestas : 1
Last 10 active topics
Estadísticas
Mensajes totales 36880 • Temas totales 7428 • Usuarios totales 1980