Foro - Perl en Español

Saludos todos, ¿serían tan amables de ayudarme con lo siguiente?

Estoy tratando de ejecutar una consulta hacia una base de datos en MS Access,

my $sth = $dbh->prepare("SELECT name FROM TRENDDATA WHERE TID_=169 and DATA_VALUE_= 800");

pero me sale un error:

Code: Seleccionar todo

DBD::ODBC::st execute failed: [Microsoft][Controlador ODBC Microsoft Access] No
coinciden los tipos de datos en la expresi¾n de criterios. (SQL-22018) at C:\Perl\bin\ACBDMY~2.PL line 49.

Pero si cambio el query por "select * from trenddata", ...

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

Les hago notar la existencia del módulo XML::Bare.

Se trata de un programa que puede interpretar código XML a una gran velocidad, usando una librería externa escrita en C++.

En la misma página de manual se indican sus prestaciones en cuanto a tiempos de lectura e interpretación comparadas con otros módulos XML:
-Module- load parse total
XML::Bare 1 1 1
XML::TreePP 2.3063 33.1776 6.1598
XML::Parser::EasyTree 4.9405 25.7278 7.4571
XML::Handler::Trees 7.2303 26.5688 9.6447 ...

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,

Tengo que hacer uso de un servicio web que solo recibe un dato; este dato está definido en el WSDL como string y tiene formato xml.

El problema es que a pesar de haber repasado el guión xml a pasar y los datos con la persona que lleva el server siempre me retorna el mismo error.

Este es más o menos el error que me sale con el Data::Dumper y CGI::Carp qw(carpout): ...

Hola, tengo un daemon HTTP hecho en Perl que funciona de 10... pero hay algo que funciona bien y no se por qué :? Se las hago fácil:

Creo un server con my $server = IO::Socket::INET->new(...)

Tengo un bucle para las conexiones while ($client = $server->accept()){...}continue{} que las trata con FORK...

Y luego del bucle coloco el código para cuando se termine (que pensaba controlar con una ...

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

Hola. Resulta que tengo este formulario
<form method="GET" action = "index.pl">
<p align="center"><select size="1" name="mes" class="boton1">
<option>Mes</option>
<option value="01">Enero</option>
<option value="02">Febrero</option>
<option value="03">Marzo</option>
<option value="03">Abril</option>
<option value="04">Mayo</option>
<option value="06">Junio</option>
<option value="07">Julio</option>
<option value="08">Agosto</option>
<option value="09">Septiembre</option>
<option value="10">Octubre</option>
<option value="11">Noviembre</option>
<option value="12">Diciembre</option>
</select><select size="1" name="D3" class="boton1">
<option>Año</option>
<option value="2006">2006</option>
<option value="2007">2007</option>
<option value="2008">2008</option>
<option value="2009">2009</option>
<option value="2010">2010</option>
</select><input type="submit" value="Ir" name="B5" class="boton1"></p>
</form>Y el código Perl es este#!/usr/bin/perl

use CGI qw(:all);
use lib('../modulos');
use CGI::Carp qw(fatalsToBrowser); ...

Estimados profesionales,

Les estaría muy agradecido si me pudieran proporcionar empresas (de calidad) que den cursos presenciales de Perl en Madrid.

Gracias por adelantado

Rakudo, nombre en clave del desarrollo del nuevo Perl6, ha sobrepasado la cifra de 1000 test de lo que es ahora el paquete oficial.