Foro - Perl en Español

Hola, siento este hilo de un "no programador" de Perl. Solo escribo para buscar un poco de ayuda para instalar un programa que no sé cómo meterle mano para instalarlo. Se llama xiasma, http://sourceforge.net/projects/xiasma/ , no tiene documentación y me da este error al intentar ejecutarlo:

Can't locate PDF/Poppler.pm in @INC (@INC contains:
/usr/local/gnome/perl/lib/perl/5.8.7/
-I/usr/local/gnome/perl/lib /etc/perl
/usr/local/lib/perl/5.8.8 /usr/local/share/perl/5.8.8
/usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8
/usr/share/perl/5.8 /usr/local/lib/site_perl .
/usr/local/gnome/perl/lib/perl/5.8.7/
/usr/local/gnome/perl/lib) at ./xiasma ...

Buenos días,

Tengo un script que lee de un fichero de configuración a través del módulo Config::Simple.

El fichero de configuración tiene la siguiente estructura:

Code: Seleccionar todo

[HTTP]
DIR_BBDD=../bbdd/http/bbdd_http_
COMANDO_CONEXION=/usr/local/bin/ssh
HOST=ws2,ws1,ws5

Tengo alrededor de 20 keys y necesito que las ejecute en el orden en el que están en el fichero de configuración.

¿Existe alguna función en perl que sea capaz de realizarlo?

Saludos y gracias por adelantado
Juan Martinez del Campo

Soy nuevo en esta comunidad y espero poder aportar algunas cosas a medida que me adentre más en este lenguaje.

Les cuento mi caso... Tengo unas librerías de C; éstas no existen en Perl... (estas librerías son de un HSM, que es un equipo para encriptaciones). Entonces estoy buscando la forma de que Perl me reconozca estas librerías y así poder usarlas en el proyecto.

Desde ya muchas gracias.

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 ...

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. ...

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

Buen día, perleros, ando algo atorado con un programa. Sé que es algo muy básico, pero ando algo bloqueado y me gustaría saber su opinión y si me pueden dar algún tip. Se los agradecería. :)

Mi primer duda es: tengo esta parte en mi programa:foreach $x (@resultado)
{
print "$x\n";
open (dir, ">>$h.txt");
print dir "$h=$x\n";
close(dir);
}

En donde $h = "fecha" y donde @resultado ...

Hola soy nuevo usando Perl y el asunto es que tengo que hacer un programita que me convierta un archivo XML en un archivo TXT. Estuve viéndolo hacer con Java, pero al parecer con Perl es mucho más sencillo; sin embargo, estoy atascado en varios puntos.

Primero que todo el archivo XML es muy sencillo, a continuación muestro como es:
<?xml version="1.0" encoding="UTF-8"?>
<datos xsi:noNamespaceSchemaLocation="D:\Work\prueba.xsd" opr="0">
<letra>V</letra>
<cedula>123</cedula>
<PNombre>nombre</PNombre>
<SNombre>Segundo Nombre</SNombre>
<PApellido>apellido</PApellido>
<FechaNac>1980-07-25</FechaNac>
<FechaCedOrg>2005-03-31</FechaCedOrg>
<CodObjecion>00</CodObjecion> ...

Hola a todos :D
Desearía hacerles una pregunta:
1-) Tengo un archivo del cual debo escoger solo ciertas líneas, cada línea queda dividida en cinco partes y yo trabajo solo con tres: $ip1, $ip3, $ip6, así que escribí

open (IN, "BRA065.txt");
open(BRA, ">bra.txt");

foreach $bra (($ip1,$ip2,$ip3,$ip4,$ip5,$ip6) = split(" ", $_, 6)){
@bras= grep(/w/,/area/,/spc/,$cmos);
write BRA

Uso la función grep para seleccionar las líneas que tienen ...