Foro - Perl en Español

Hola Perlianos:

Tengo un script que envía un mensaje SOAP a un servidor y recibo respuesta a través del Web Service; mi pregunta es:

¿Cómo puedo convertir "La Respuesta", que viene en XML a una estructura de datos en Perl? Este es mi script:

#!/usr/bin/perl
use strict;
use LWP::UserAgent;
use HTTP::Request::Common;
print "Content-Type: text/xml; charset=utf-8";

my $barco = 'ARGOSY';
my $manif = '465';
my $usuario = 'API940504EPA';
my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<soap:Envelope ...

Hola!
Estoy trabajando con PHP, Perl y MySQL y con dos máquinas diferentes.
Tengo un script .pl en una máquina, y desde ese script necesito hacer una consulta a la base de datos que se encuentra en la otra máquina, pero no se como hacerlo.
Espero que podais ayudarme.

Un saludo y gracias

Hola a todos...

Estoy debugeando un script de perl (perl -d <script.pl>) y no recuerdo cómo puedo ver el contenido de un arreglo de forma tal que me salgan sus elementos por separado...

Por ejemplo: la variable @a contiene los valores 10, 20 y 30

p @a me muestra 102030

Quisiera verlos de forma separada sin tener que poner

p $a, p $a o p $a

que pusiera.... <el comando para mostrar a @a> y ...

Hola a todos...

Tengo este código que me imprime lo siguiente...

Code: Seleccionar todo

@Month_name = ( "January", "February", "March", "April", "May", "June",
  "July", "August", "September", "October", "November", "December" );
( $sec, $min, $hour, $day, $month, $year ) = ( localtime ) [ 0, 1, 2, 3, 4, 5 ];

printf "%04d-%02d-%02d %02d:%02d:%02d\n", $year+1900, $month+1, $day, $hour, $min, $sec;

Imprime..... 2006-07-08 18:15:47

Aquí va la pregunta.... ¿Como podria almacenar el resultado en una variable ?? He intentado varias ...

Hola a todos...

Resulta que ahora me está dando problemas algo que ayer me funcionaba... Estoy insertando texto en un fichero de la siguiente forma y me da error. Acá va el código...

Code: Seleccionar todo

  use DBI;
 
  my $salida="/home/admin/fichero.txt";
  open (SALIDA,">$salida") || die "ERROR: No puedo abrir el fichero $salida\n";

  PRINT SALIDA "SKLHFEW EWTREJTOEWRTIETERHTOEOR";
  close (SALIDA);

El error es el siguiente...

Can't locate object method "PRINT" via package "IO::Handle" at /home/admin/write.pl line 6.

(la linea donde hago ...

Hola todos:

La primera sesión del tutorial Perl Básico fue un éxito, así que ya estamos listos para la siguiente sesión.


========

Perl Básico - Sesión 2

Expositor: Uriel Lizama

Lugar: irc.freenode.net Channel:#perlenespanol

Fecha y Hora: Lunes 10 de Julio del 2006

A continuación les pongo la hora en que se va a impartir el tutorial de acuerdo a cada ciudad:


GMT: 21:00
Buenos Aires 18:00
Asuncion 17:00
Bahia 18:00
Bogota 16:00
Caracas 17:00 ...

Hola a todos...
Me estoy iniciando en Perl asi que me disculpen preguntas un poco evidentes....

Estoy creando un fichero texto pero no se como insertar texto con comillas... dentro del fichero quisiera insertar lo siguiente

cualquier cosa "otra cosa" el final.

Esto es lo que hago....

Code: Seleccionar todo

my $salida="1.txt";
open (SALIDA,">$salida") || die "ERROR: No puedo abrir el fichero $salida\n";
print SALIDA "cualquier cosa "otra cosa" el final.";

Por supuesto que no me funciona...

¿¿ ...

Hola a todos...

¿Cómo podría restar dos fechas ??? que el resultado sea en días

¿Cómo podria convertir un timestamp a fecha ??? no necesito las horas, minutos y segundos, solo los días, meses y años...

Gracias por adelantado...

saludos...

lierly

Hola a Todos..

Tengo un sitio web en ASP en un servidor determinado, pero quisiera automatizar algunos procesos usando Perl. Resulta que en una determinada situación quisiera añadirle unas líneas a un fichero que se encuentra en el servidor donde está publicado el sitio web. pero no sé cómo poder acceder desde Perl (que está montado en otro servidor en Linux), sin embargo lo que necesito hacer está implementado vía web.

Si desde el script ...

Saludos.

Estoy usando Class::DBI y quiero utilizar un metodo add_constraint de la siguiente manera:

Code: Seleccionar todo

Telefono::Model::CDBI::Solicitantes->add_constraint('validaestado', estado=>\&check_estado);

sub check_estado{
    my ($valor) = @_;
    return uc($valor) eq 'ACT';
}

El problema que tengo es que, al momento de agregrar o actualizar, al pasarle al campo estado un valor distinto de act (o ACT) retorna falso (o sea check_constraint está funcionando bien) y se genera un error que no he podido capturar y la aplicación finaliza. Lo que ...