Hola a todos:
Estoy en pleno desarrollo de una aplicación en la cual estoy usando Perl con MySQL para manejar documentos dentro de MySQL y en un punto tengo que leer dichos documentos para buscar cierta información, me encontré por allí un ejemplo en donde utilizan:
my $imagen = $m->selectrow_hashref("SELECT documento,tipo FROM DocsDetail WHERE llave = '$id' and documentname = '$nombre' ");
print ((${$imagen}{'tipo'}) ? "Content-type: ${$imagen}{'tipo'}\n\n" : "Content-type: text/html\n\nImagen inexistente o Tipo de dato ...
-
- Publicidad
Fecha actual 2024-12-23 10:17 @470
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.DBI: Uso de selectrow_hashref
Read more : DBI: Uso de selectrow_hashref | Vistas : 1545 | Respuestas : 3 | Foro : Intermedio
Vende tus aplicaciones de Perl
Hola todos,
El sitio de Perl en Español cada vez sube más en popularidad, desde su creación hace un par de años el sitio cada mes obtiene más visitas únicas. El mes de Enero que acaba de pasar llegamos a un récord de 33,525 visitas únicas y un total de 657,983 hits.
Todas las visitas que llegan no son solamente de programadores en Perl, pues debido a la variedad de tutoriales y artículos que hay ...
El sitio de Perl en Español cada vez sube más en popularidad, desde su creación hace un par de años el sitio cada mes obtiene más visitas únicas. El mes de Enero que acaba de pasar llegamos a un récord de 33,525 visitas únicas y un total de 657,983 hits.
Todas las visitas que llegan no son solamente de programadores en Perl, pues debido a la variedad de tutoriales y artículos que hay ...
Read more : Vende tus aplicaciones de Perl | Vistas : 3453 | Respuestas : 0 | Foro : Novedades en Perl en Español
Problema con Net::SFTP
Hola a todos,
Estoy tratando de instalar un script Perl ya verificado en una máquina UNIX (Test) en otra máquina UNIX (calificación), pero al ejecutarlo me aparece un mensaje de error correspondiente a la siguiente instrucción:
my $sftp = Net::SFTP->new(....);
El mensaje de error es el siguiente:
Invalid key file type 'PEM': Base class package "Class::ErrorHandler" is empty.
(Perhaps you need to 'use' the module which defines that package first.)
at /usr/lib/perl5/site_perl/5.8.3/Convert/PEM.pm line 5
BEGIN ...
Estoy tratando de instalar un script Perl ya verificado en una máquina UNIX (Test) en otra máquina UNIX (calificación), pero al ejecutarlo me aparece un mensaje de error correspondiente a la siguiente instrucción:
my $sftp = Net::SFTP->new(....);
El mensaje de error es el siguiente:
Invalid key file type 'PEM': Base class package "Class::ErrorHandler" is empty.
(Perhaps you need to 'use' the module which defines that package first.)
at /usr/lib/perl5/site_perl/5.8.3/Convert/PEM.pm line 5
BEGIN ...
Read more : Problema con Net::SFTP | Vistas : 1439 | Respuestas : 3 | Foro : Básico
Contar la repetición de una palabra
Hola amigos del Perl.
Hace un tiempo largo que no toco el lenguaje y tengo un problema que resolver.
Tengo que leer varios archivos y contar la cantidad de veces que se repite una palabra sobre una lista de palabras seleccionadas.
Creo tener resuelto el tema si hago lo siguiente:
- Leo el archivo y lo asigno por completo a una variable.
- Tomo la primera palabra. Cuento cuanta veces se repite.
- Grabo en ...
Hace un tiempo largo que no toco el lenguaje y tengo un problema que resolver.
Tengo que leer varios archivos y contar la cantidad de veces que se repite una palabra sobre una lista de palabras seleccionadas.
Creo tener resuelto el tema si hago lo siguiente:
- Leo el archivo y lo asigno por completo a una variable.
- Tomo la primera palabra. Cuento cuanta veces se repite.
- Grabo en ...
Read more : Contar la repetición de una palabra | Vistas : 5716 | Respuestas : 7 | Foro : Básico
Separar un archivo log
Hola necesito ayuda tengo un archivo log el cual quiero separar línea a línea y separarlo por campos.
Ejemplo. Esta es la línea:
y la quiero separada para insertarla a una base datos de la siguiente manera:
dia(dd) hora(hh) min(mm) segundo(ss) año(aaaa) protocolo interface tamaño ip1 ptoip1 ip2 ptoip2
13 19 07 35 2007 TCP eth0 1500 69.28.145.24 80 10.1.42.251 ...
Ejemplo. Esta es la línea:
- Code: Seleccionar todo
Tue Feb 13 19:07:35 2007; TCP; eth0; 1500 bytes; from 69.28.145.24:80 to 10.1.42.251:1341; first packet
y la quiero separada para insertarla a una base datos de la siguiente manera:
dia(dd) hora(hh) min(mm) segundo(ss) año(aaaa) protocolo interface tamaño ip1 ptoip1 ip2 ptoip2
13 19 07 35 2007 TCP eth0 1500 69.28.145.24 80 10.1.42.251 ...
Read more : Separar un archivo log | Vistas : 2434 | Respuestas : 16 | Foro : Básico
Ayuda principiante
Soy principiante en este lenguaje y pues estuve mirando tutoriales, en ellos encontré que tenía que instalar el Apache y así lo hice y lo configuré, luego instalé el Perl 32 y el editor Dzsoft , después hice el código del famosísimo hola mundo!! y le cambie la primera línea donde aparecía "#!/usr/bin/perl" por "#!c:/perl/bin/perl.exe" y luego lo corrí en el browser del editor y supuestamente corre bien...
#!c:/perl/bin/perl.exe
print "Content-type: text/html\n\n";
print "<html><head><title>Hello!</title></head>\n";
print ...
#!c:/perl/bin/perl.exe
print "Content-type: text/html\n\n";
print "<html><head><title>Hello!</title></head>\n";
print ...
Read more : Ayuda principiante | Vistas : 1564 | Respuestas : 7 | Foro : Básico
ARGV parámetros
Hola, me pudieran ayudar a crear un programa en el que se pasen parámetros y tomándolos con ARGV, porfis
Read more : ARGV parámetros | Vistas : 1054 | Respuestas : 1 | Foro : Intermedio
Cómo instalar Perl en Win32
Hola, soy un super principiante en Perl; lo he instalado en mi máquina pero no sé qué hacer, no sé si tengo que configurar el servidor apache para poder ejecutar scripts o alguna otra cosa.
Si alguien me puede ayudar gracias de antemano.
Quiza parezca super boba la pregunta pero así he empezado también con otros lenguajes que inician con P.
Si alguien me puede ayudar gracias de antemano.
Quiza parezca super boba la pregunta pero así he empezado también con otros lenguajes que inician con P.
Read more : Cómo instalar Perl en Win32 | Vistas : 1140 | Respuestas : 1 | Foro : Básico
Global symbol "$segundos" requires explicit packag
No se cual es el error, me pasa con todas las variables; publico el código por las dudas.....
:D Lo que intenta hacer el programa es extraer 2 campos con datos de la consulta y enviarlos por mail
my $ayer = UnixDate("yesterday",'%Y-%m-%d');
my $hoy = UnixDate("today",'%Y-%m-%d'); #
my($dbh,$sth,$sth1,$sth2,$mensaje1,$mensaje2,$mensaje3,$mail);
my(@linea1,@linea2,@linea3);
my $sthtest;
###################################################################
# CONEXION A LA BASE DE DATOS #
###################################################################
#$dbh = ConectarBBDD->connect();
$dbh = ...
:D Lo que intenta hacer el programa es extraer 2 campos con datos de la consulta y enviarlos por mail
my $ayer = UnixDate("yesterday",'%Y-%m-%d');
my $hoy = UnixDate("today",'%Y-%m-%d'); #
my($dbh,$sth,$sth1,$sth2,$mensaje1,$mensaje2,$mensaje3,$mail);
my(@linea1,@linea2,@linea3);
my $sthtest;
###################################################################
# CONEXION A LA BASE DE DATOS #
###################################################################
#$dbh = ConectarBBDD->connect();
$dbh = ...
Read more : Global symbol "$segundos" requires explicit packag | Vistas : 910 | Respuestas : 1 | Foro : Intermedio
Pregunta sobre "require"
Saludos a Todos !!
Estoy Intentando Hacer mi propia libreria de funciones siguiendo los comenterios de explorer en otro post, pero me queda algunas dudas ya que lo hice y simplimente no me sale error nada de nada.
pregunta donde tiene que estar el archivo, en mi caso se llamar libreria.pl donde tengo las funciones que nesecito , (una de estas funciones se llama error())
esto es lo que intento hacer
use CGI::Carp qw(fatalsToBrowser ...
Estoy Intentando Hacer mi propia libreria de funciones siguiendo los comenterios de explorer en otro post, pero me queda algunas dudas ya que lo hice y simplimente no me sale error nada de nada.
pregunta donde tiene que estar el archivo, en mi caso se llamar libreria.pl donde tengo las funciones que nesecito , (una de estas funciones se llama error())
esto es lo que intento hacer
use CGI::Carp qw(fatalsToBrowser ...
Read more : Pregunta sobre "require" | Vistas : 1675 | Respuestas : 10 | Foro : Básico
Last 10 active topics
Estadísticas
Mensajes totales 36890 • Temas totales 7432 • Usuarios totales 1981