Foro - Perl en Español

por **Rivert Villanueva** » 2009-09-28 17:04 @752

Hola a todos, espero que este foro alguien me pueda ayudar, soy muy nuevo en este lenguaje ya que yo soy full PHP. Bueno era ahora que recién entiendo a Perl me gusta más.

Mi problema es que copié este código que mi proveedor me envió para poder enviar SMS y no tengo problema en el funcionamiento pero ahora tengo una dificultad: necesito leer un archivo de texto que tiene la siguiente estructura de datos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

1999323232,prueba de envia1

1989892922,Segunda prueba en smsColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es leer el archivo de texto (ya lo hice) y luego que en el arreglo @params me agregue los datos de celular y mensaje según lo indicado el script siguiente.

Por favor se lo voy agradecer mucho.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! /usr/bin/perl -w
#Modulo de Cliente XML-RPC
use Frontier::Client;
my $client = Frontier::Client->new (url => "http://USUARIO:PASSWORD@HOST/mms/as ",debug => 1);
# Vector de parametros:
# Contiene dos mensajes, los dos primeros sin fecha agendada
my @params = ({
                        "celular" => Frontier::RPC2::String->new("1996615073"),
                        "texto" => Frontier::RPC2::String->new("Hola Mundo 1"),
                        "fecha" => Frontier::RPC2::String->new("")
                        },{
                        "celular" => Frontier::RPC2::String->new("1996615073"),
                        "texto" => Frontier::RPC2::String->new("Hola Mundo 1"),
                        "fecha" => Frontier::RPC2::String->new("")
                        });
# Ejecución del Cliente – Se especifica el método
# y se entrega el vector de parámetros
my $res = $client->call("Tqwea.SendMsg",[@params]);
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Frontier::Client;
 
my $client = Frontier::Client->new (
    url     => 'http://USUARIO:PASSWORD@HOST/mms/as',
    debug   => 1,
);
 
my @params;
 
open my $fichero_sms_fh, q[<], 'kk.txt' or die "ERROR: No pude abrir el fichero: $!\n";
 
while (<$fichero_sms_fh>) {
    chomp;
    my ($celular, $texto) = split q[,];
 
    push @params, {
                    celular => Frontier::RPC2::String->new($celular),
                    texto   => Frontier::RPC2::String->new($texto),
                    fecha   => Frontier::RPC2::String->new(''),
    };
}
 
close   $fichero_sms_fh;
 
my $res = $client->call("Tqwea.SendMsg",[@params]);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Rivert Villanueva** » 2009-09-28 18:35 @815

Lo máximoooooooooo, funciona perfectamente muchas gracias...

Tengo una duda, si tienes algo de tiempo me respondes...

Frontier::Client;

¿Exactamente qué es o para qué se utiliza?

Gracias por todo...
Saludos,

por **nemest** » 2009-09-28 21:52 @953

Es un módulo (objeto, clase).
Mira: Frontier::Client

por **explorer** » 2009-09-29 05:09 @256

Es el módulo que realiza el diálogo con el servidor, enviándole las órdenes de envío de mensajes. El protocolo es el XML-RPC.

por **Rivert Villanueva** » 2009-09-29 18:08 @797

Ok, ya entiendo... muchas gracias por todo explorer.

Ahora ya tengo todo funcionando correctamente pero no contaba que para ejecutar el Perl en Windows levanta una ventana de DOS y como el cron está configurado para que verifique si hay archivos cada 2 minutos no me deja trabajar tranquilo en la PC...

¿Habrá alguna forma para que el Perl trabaje sin necesidad de levantar la ventana de DOS?

Como siempre recontra agradecido por todos tus Tips.

Saludos,

por **explorer** » 2009-09-29 19:10 @840

Si estás usando el Active Perl, mira a ver si en la carpeta bin/ del Perl hay un ejecutable llamado wperl.exe. Ese es el binario que debes ejecutar en lugar del perl.exe.

Hay un problema, sin embargo: los STDIN, STDOUT y STDERR estarán cerrados, así que si tu programa hace alguna salida hacía algún fichero de log mediante print() o warn(), deberás abrirlos antes.

Lo que también puedes hacer, en Windows, es asociar una extensión de fichero, digamos .wpl, a ese binario. Así, cuando hagas una doble pulsación en un programa Perl con esa extensión, lo ejecutará con el wperl.exe (juraría que esto último ya lo hace el ActivePerl en sus últimas versiones, pero ya no estoy seguro... hace mucho que no uso Windows

) Si lo tienes puesto en el gestor de tareas, pues con indicar el camino absoluto a wperl, te vale.

por **Rivert Villanueva** » 2009-09-30 09:14 @426

Hola, Explorer:
El wperl funciona a la perfección.

Te comento que yo utilizo el cron para Windows. Lamentablemente no puedo decidir el sistema operativo ya que son políticas de la empresa donde trabajo. Lo único que se me ocurrió para no alejarme de Linux fue instalarme un pack con muchos comandos básicos de Linux para Windows; con eso estoy trabajando mucho en línea de comandos.

Bueno, hasta una próxima oportunidad, Muchas gracias por todo...

Saludos Cordiales,
Rivert

por **explorer** » 2009-09-30 11:23 @516

También en mi empresa, lo "oficial" es Windows, pero, desde el primer día, hice lo siguiente: particioné el disco duro en dos partes iguales. Luego, instalé Linux en la segunda parte.

Así, todos los días arranco con Linux. Y si viene el jefe a quejarse, entonces arranco el ordenador de nuevo y le demuestro que no he destruido ni borrado nada. El caso es que al jefe le da lo mismo lo que use, siempre y cuando las tareas estén bien hechas.

Yo he tenido suerte con mi empresa

por **Rivert Villanueva** » 2010-07-07 22:08 @964

Hola Explorer:

Después de tiempo que el código está funcionando perfectamente ahora estoy intentando escribir un log de seguimiento por lo que necesito recepcionar las respuestas de la variable $res:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$res=$client->call("Tqwea.SendMsg",[@params]);
open(FILE,">> c:\\file.txt");
print FILE $res."\n";
close FILE;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero lo que escribe es: ARRAY(AD343F). Por favor, dame un mano con este tema.
La idea es escribir el estado de cada uno de los envíos de los mensajes de texto.

Muchas gracias de antemano.

Foro - Perl en Español

Envíos SMS

Envíos SMS

Publicidad

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

Re: Envíos SMS

¿Quién está conectado?