Foro - Perl en Español

por **nereha** » 2009-07-16 15:41 @695

Hola chicos, a ver si me echáis un cable...

Tengo esta línea de código, que me devuelve el valor ascii de cada uno de los caracteres que contiene la variable $buf.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

printord($_)," "foreachsplit//,$buf;Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

(es decir, esto me devuelve un valor del formato 110 213 12 31)

Mi problema lo tengo en que necesito guardar ese resultado (110 213 12 31) en una tabla de MySQL, y por más vueltas que le doy no consigo confeccionar la sentencia SQL; he probado de todo y nada...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$sql=qq{ insert into localiza (localiza)values('. print ord($_)," " foreach split //, $buf;     .')};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

He pensado también en asignar primero el valor a una variable y después poner la variable en la sentencia sql, algo como esto: (pero tampoco)

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$variable=ord($_)," "foreachsplit//,$buf;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Os agradezco cualquier ayuda... Muchas gracias.

Además, hemos cambiado el for() por un map(). El funcionamiento es el siguiente: el split() divide los caracteres de $buf y los va pasando uno a uno al map(), que ejecuta ord() en cada uno, devolviendo la lista de todos los valores, que son almacenados en el arreglo.

El segundo problema es la forma de guardar los valores en la base de datos.

No me queda claro cómo quieres guardar esos valores: ¿quieres guardar la lista de valores en un solo campo de la base de datos? ¿o quieres guardar cada valor en distintos registros de la base de datos?

Por la sentencia SQL que pones, parece que se trata de la primera opción.

Si, suponemos, que queremos guardar la lista de valores como una cadena de caracteres, en que los valores están separados por un espacio en blanco, podemos confeccionarlo antes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$valor=join' ',@valores;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y ahora ya podemos construir la sentencia SQL:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$sql=qq{ insert into localiza (localiza)values('$valor')};Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **nereha** » 2009-07-16 17:32 @772

¡Muchísimas gracias! ¡¡¡¡¡¡por fin!!!!!! Llevaba con esto desde las 9 de la mañana, de verdad muchísimas gracias

Foro - Perl en Español

Paso de lista de valores a sentencia SQL

Paso de lista de valores a sentencia SQL

Publicidad

Re: Paso de lista de valores a sentencia SQL

Re: Paso de lista de valores a sentencia SQL

Re: Paso de lista de valores a sentencia SQL

¿Quién está conectado?