Llamada WebService
Publicado por Fernando (1 intervención) el 25/04/2017 19:18:10
Buenas, soy nuevo en esto del Perl y tengo hecho un programita en PowerShell para llamar a un WebService y mandarle unos datos, pero al intentar hacer lo mismo en Perl no soy capaz. Lo que tengo hecho es:
Las variables las defino mas arriba, la llamada la hace bien, pero no arranca el Servicio.
Gracias.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
my $client1 = REST::Client->new({
host => 'servidor',
timeout => 10,
});
my $json = encode_json({
cabecera => {
terminal => "TDQY",
usuario => "F15",
idioma => "es",
pais => "ES",
moneda => "EUR"
},
datosEntrada => {
NOMBRE_FICHERO => $FileName,
MEDIO_E_S => "FTP",
ENTIDAD => $Cliente,
APLICACION => $Aplicacion,
DSN_FICHERO => $FileName.$fecha.$rand,
},
});
$client1->POST ('/ConectorREST/services/SN5297',$json,{ ContentType => "application/json" });
Las variables las defino mas arriba, la llamada la hace bien, pero no arranca el Servicio.
Gracias.
Valora esta pregunta
0