Primero de todo, gracias por toda la ayuda que ofrecéis y la de problemas que me habéis solucionado.
Soy un total novato en el mundo de Perl (algo he hecho pero aún me encuentro en fase de aprendizaje).
La cuestión, no sabía cómo plantear la pregunta, porque no le encuentro ningún sentido.
Tengo una web con formularios donde los envío a Perl mediante Ajax.
El código de JQuery es el siguiente:
Using javascript Syntax Highlighting
- $("#saveProd").click(function() {
- var prodGeneral = JSON.stringify($("#changeProdGenerals").serializeArray());
- $.ajax({
- type: 'POST',
- url: '/cgi-bin/saveNewProduct.pl',
- data: {
- prodGeneral: prodGeneral,
- },
- success: function(r) {
- //location.reload();
- }
- });
- });
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
La cuestión es que en Perl recibo la variable tal que así (así recibo los datos, eso seguro):
Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use strict;
- use warnings;
- use DBI;
- use CGI;
- use DBI::Profile;
- use IO::Handle;
- use File::Basename;
- use HTML::Entities;
- use JSON;
- use Data::Dumper;
- require 'config.pl';
- require 'lib/cookieManager.pl';
- require 'lib/sessions.pl';
- my $q = new CGI;
- print "content-type:text/plain\n\n";
- my $text = decode_json( $q->param("prodGeneral") );
- my $idp = $text->[0]->{value}; #TODO verificar atributos
- $idp .= $text->[0]->{name}; #TODO verificar atributos
- print $idp;
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Si imprimo la variable 'value', que en este caso es un entero, no me imprime nada.
Pero si imprimo las dos variables concatenadas me imprime el valor numérico.
No entiendo nada.
Si alguien me pudiera dar una pista...
Muchas gracias
