Foro - Perl en Español

Saludos, me pueden ayudar, estoy ejecutando un query, al momento de correrlo en la consola sí me funciona pero en el programa me da el siguiente error:

Can't locate object method "fetchrow" via package "select sum(diferencia)as diferencia from( select distinct flectura, contador,lecturant,lectura, lectura-lecturant as diferencia , fechasis from lectura where flectura ='20080701'order by fechasis desc) as general" (perhaps you forgot to load "select sum(diferencia)as diferencia from( select distinct flectura, contador,lecturant,lectura, lectura-lecturant as diferencia , fechasis ...

Tengo este código:

sub localizar_foto{
my($dia,$mes,$anno,$category,$cliente) = @_;
my $db = "../".$cliente."/db/fotos.txt";


@fotos =kread($db,0,0);



$foto = "NO HAY FOTO3";

foreach $foto(@fotos) {
($id,$nombre,$tumb,$categoria,$dia_foto,$mes_foto,$anno_foto) = split(/\|\|/, $foto);

print $categoria, "->",$category."===".$dia."->".$dia_foto.">>".$nombre;
print "<br>";
#if ($categoria eq $category && $dia_foto == $dia && $anno == $anno_foto ){
if ($dia_foto == $dia && $category == $categoria){
print "Nombre: ".$nombre."<br>";
$foto = "gato";
print $foto;
}

}

return $foto;

}
1

Y me imprime esto:

2->1===8->24>>24juniop2.jpg
2->1===8->8>>8juniop2.jpg
2->1===8->5>>5juniop2.jpg
2->1===8->27>>27mayop2.jpg
2->1===8->22>>22mayop2.jpg ...

Amigos Perlianos:

Antes que nada, una felicitación por el nuevo diseño del portal, hace rato que no entraba, pero se ve de maravilla. Y felicitaciones por la gran labor que Kidd y sus colaboradores hacen para que este fabuloso sitio exista.

Quisiera ver si alguien de ustedes, expertos, me puede dar una orientación de cómo puedo construir una aplicación para implementar un LIVE CHAT. Es decir, que desde mi sitio web, alguien pueda hacer un ...

He realizado una actualización de Perl, Estoy corriendo bajo Windows. Pasé de Perl 5.8.820 a 5.10.0

He mantenido ciertos módulos que son propios de la versión anterior, y que no aparecen en la nueva. Al ejecutar una aplicación me SALE el siguiente ERROR: ".... No se encontró perl58.dll ...." En el directorio donde está instalado Perl ahora aparece perl510.dll que es la que le corresponde a la versión actual.

¿¿¿ Si encuentro esta .dll puedo ...

Hugo Salgado Hernández ha realizado la traducción de la guía de brian d foy para resolver cualquier problema Perl.

http://hugo.vulcano.cl/development/perl/guia

Necesitaría trabajar con el Módulo GD::Graphs, pero tengo mis aplicaciones corriendo bajo Windows. ¿Este módulo puede ejecutarse bajo esta plataforma con Active Perl?

¿Si fuese posible, cómo lo instalo?

¡¡¡ MUCHÍSIMAS GRACIAS !!!

Hola, estoy trabajando con un fichero FASTA que contiene una secuencia de ADN y he de localizar todos los codones de inicio (ATG) e indicar su posición. El problema es que no sé muy bien cómo hacerlo.
Gracias

Saludos a todos: Tengo 365 archivos .dat que quiero unirnos a todos en un nuevo archivo .dat. Hice el siguiente programa:

#!/usr/bin/perl

my $data= </home/lis/Desktop/DATOS/datos_met_paranal.dat/200*>;# es la ruta donde estan todos los archivos .dat

open (DATA, "<$data");
open (TODOS,">todos.dat");

while ($lineas=<DATA>) {
chop($lineas);
@datos=split(" ",$lineas);
print TODOS "@datos\n";
}

Lo único que me hace este programa es guardar el primer archivo .dat y no los 365. ...

Buenas, disculpenme por la molestia. Gracias digo y soy grato.

Resulta que estoy queriendo hacer una búsqueda en cualquier sitio, ya sea en Google, Yahoo, Live, etc., pero de una manera sencilla que use módulos HTTP::Request::Common qw(POST) y LWP::UserAgent sin usar WWW:Search (es porque tuve problemas con este último).

Mi idea es hacer por el método POST (enviando dato de búsqueda) y como producto el resultado devuelto que luego lo filtraré.

Buscando, tratando de montar ...

Hola, buen día.

¿Podrían ustedes decirme si yo puedo crear un nuevo archivo en Perl que tenga dos archivos fuentes?

¿Pudiendo seleccionar de cada uno los datos que se necesitan y escribirlos en el programa final en un formato dado?

Muchas Gracias

Hasta Luego