Estimados amigos:
Me devano los sesos y no doy con el error. Este script convierte números a letras, me parece muy útil. El problema es que cuando el número decimal es igual o mayor que 0.50 devuelve el entero aumentado en uno.
Por ejemplo: 23.40 devuelve veintitrés y 40 (bien)
pero en 23.50 devuelve veinticuatro y 50 (error)
Les envió el script a ver si solucionan el error, les agradezco cualquier ayuda.
<!DOCTYPE html PUBLIC ...
-
- Publicidad
Fecha actual 2026-03-18 22:53 @995
News of Foro - Perl en Español
Site map of Foro - Perl en Español » Foro : Foro - Perl en Español
La comunidad de programadores en Perl de habla-hispana.Convertir números a letras
Read more : Convertir números a letras | Vistas : 50958 | Respuestas : 7 | Foro : JavaScript
Expresiones regulares reemplazar ' (apóstrofo) por '' (dos)
Hola, primero que nada mucho gusto.
Tengo un query que me devuelve en la variable $nombre registros de una base MySQL de esta forma: Benjamin A. Gomez Ca. 'Nuevo usuario' (nótese los apóstrofos)
Lo que quiero hacer es meter este texto exactamente a otra tabla, pero me da error el MySQL porque cuando encuentra el primer apóstrofo, piensa que termino la línea, entonces quiero ponerle doble apóstrofo, o triple (no estoy seguro si son dos ...
Tengo un query que me devuelve en la variable $nombre registros de una base MySQL de esta forma: Benjamin A. Gomez Ca. 'Nuevo usuario' (nótese los apóstrofos)
Lo que quiero hacer es meter este texto exactamente a otra tabla, pero me da error el MySQL porque cuando encuentra el primer apóstrofo, piensa que termino la línea, entonces quiero ponerle doble apóstrofo, o triple (no estoy seguro si son dos ...
Read more : Expresiones regulares reemplazar ' (apóstrofo) por '' (dos) | Vistas : 2476 | Respuestas : 2 | Foro : Avanzado
Problema al intentar leer datos de una base de datos MySQL
Hola, ¿qué tal?
Quería consultar porque me sale el siguiente error:
al intentar correr el siguiente código:
#!/usr/bin/perl -w
#ppm>install dbi-mysql
use warnings;
use strict;
use DBI;
use DBD::mysql;
$|=1;
# Setup some variables
my %AGI;
my $fecha;
my $caller;
my $called;
my $tipodellamada;
my $path;
my $dbhost="20.1.10.8";
my $dbname="database";
my $dbuser="user";
my $dbpass="user";
my $genres;
my $dbh;
my $dsn;
my $escuchado;
my ...
Quería consultar porque me sale el siguiente error:
- Code: Seleccionar todo
Can't locate object method "fetchrow_array" via package "DBI::db" at /var/lib/asterisk/agi-bin/leodebd.pl line 58.
al intentar correr el siguiente código:
#!/usr/bin/perl -w
#ppm>install dbi-mysql
use warnings;
use strict;
use DBI;
use DBD::mysql;
$|=1;
# Setup some variables
my %AGI;
my $fecha;
my $caller;
my $called;
my $tipodellamada;
my $path;
my $dbhost="20.1.10.8";
my $dbname="database";
my $dbuser="user";
my $dbpass="user";
my $genres;
my $dbh;
my $dsn;
my $escuchado;
my ...
Read more : Problema al intentar leer datos de una base de datos MySQL | Vistas : 2173 | Respuestas : 2 | Foro : Bases de datos
Reemplazar un número
Hola amigos del foro, tengo un script con el que quiero reemplazar dos valores que se repiten por ceros, pero hay un valor que no me lo reemplaza, y en eso quiero que me ayuden, acá esta un archivo:
1000 -9.989999710577421e+33 -9999 -9999 -9999 -9999
950 -9.989999710577421e+33 -9999 -9999 -9999 -9999
925 -9.989999710577421e+33 -9999 -9999 -9999 -9999
900 -9.989999710577421e+33 -9999 -9999 -9999 -9999
850 -9.989999710577421e+33 -9999 -9999 -9999 -9999
800 -9.989999710577421e+33 -9999 -9999 -9999 -9999 ...
1000 -9.989999710577421e+33 -9999 -9999 -9999 -9999
950 -9.989999710577421e+33 -9999 -9999 -9999 -9999
925 -9.989999710577421e+33 -9999 -9999 -9999 -9999
900 -9.989999710577421e+33 -9999 -9999 -9999 -9999
850 -9.989999710577421e+33 -9999 -9999 -9999 -9999
800 -9.989999710577421e+33 -9999 -9999 -9999 -9999 ...
Read more : Reemplazar un número | Vistas : 787 | Respuestas : 1 | Foro : Básico
Función para select multiple
Bueno, estuve buscando y la verdad que no pude solucionar esto :(
Tengo:
<form method="post" action="" name="Form1">
<select size="10" name="afinidad" id="idafinidad" multiple >
print("<option value=" . $id . " >" . $a . "</option>")
El print() se repite varias veces con un if().
Al apretar un botón recarga la web y lo que me gustaría es que los ítem que están seleccionados continúen seleccionados, ¿cómo lo puedo ...
Tengo:
<form method="post" action="" name="Form1">
<select size="10" name="afinidad" id="idafinidad" multiple >
print("<option value=" . $id . " >" . $a . "</option>")
El print() se repite varias veces con un if().
Al apretar un botón recarga la web y lo que me gustaría es que los ítem que están seleccionados continúen seleccionados, ¿cómo lo puedo ...
Read more : Función para select multiple | Vistas : 2448 | Respuestas : 0 | Foro : JavaScript
Mapear carreteras... con Perl
Las capas de los territorios
Pensamos en las ciudades y los territorios como una integración de paisaje y arquitectura. Pero existen otros elementos menos presentes en nuestra percepción del espacio en el que vivimos que juegan un papel esencial. Se trata de las capas de infraestructuras que se disponen sobre la superficie y penetran en el subsuelo y que son esenciales para mantener nuestros "flujos vitales", individuales y sobre todo colectivos, y por tanto configuran ...
Pensamos en las ciudades y los territorios como una integración de paisaje y arquitectura. Pero existen otros elementos menos presentes en nuestra percepción del espacio en el que vivimos que juegan un papel esencial. Se trata de las capas de infraestructuras que se disponen sobre la superficie y penetran en el subsuelo y que son esenciales para mantener nuestros "flujos vitales", individuales y sobre todo colectivos, y por tanto configuran ...
Read more : Mapear carreteras... con Perl | Vistas : 1179 | Respuestas : 0 | Foro : Noticias de Perl
Comando FTP
Hola,
Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.
Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.
Por favor si alguien puede ayudarme, el script es el siguiente:
#!/usr/bin/perl
use Net::FTP; ...
Tengo un problema con Perl... he realizado un script para transferir archivos vía ftp de un servidor a otro. El hecho es que me da error cuando se ejecuta la instrucción donde especifico la ruta origen.
Es un script muy sencillo, pero el problema es que recién estoy conociendo Perl y no tengo ni idea de cómo solucionar este problema.
Por favor si alguien puede ayudarme, el script es el siguiente:
#!/usr/bin/perl
use Net::FTP; ...
Read more : Comando FTP | Vistas : 2339 | Respuestas : 4 | Foro : Intermedio
Crear cola de mensajes
No sé mucho de este tema con Perl, pero necesito crear una cola de mensajes pero cuando uso la función ftok() para generar la clave me da error, no sé si en Perl se hará de otra forma o si existe algún modulo para esto.
Cualquier sugerencia me vendría muy bien, gracias.
Saludos.
Cualquier sugerencia me vendría muy bien, gracias.
Saludos.
Read more : Crear cola de mensajes | Vistas : 801 | Respuestas : 1 | Foro : Básico
Ayuda con acentos
si pongo la salida en un archivo .txt ya respeta los acentos pero si uso el query para subirlo a una base de datos ya no funciona
use DBI;
use encoding "iso-8859-1";
$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);
$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);
use DBI;
use encoding "iso-8859-1";
$sqlcambiop="UPDATE avisos SET categoria=? WHERE referencia=?";
$sthcambiop= $dbh->prepare($sqlcambiop);
$ref=1;
$frase= "Un niño aniñado día";
print "$frase";
$sthcambio->execute($frase,$ref);
Read more : Ayuda con acentos | Vistas : 799 | Respuestas : 1 | Foro : Básico
Mechanizando un router
Bueno les cuento lo que quiero hacer.
- Lo primero que quiero es conectarme a mi router (con un equipo dentro de la LAN) ingresando los campos de USUARIO y PASSWORD. /* El router utiliza una interfaz WEB para administrarlo. */
Esto lo logre usando SAMIE, pero me gustaría hacerlo con Mechanize para que no quede solo para ser usado con Internet Explorer. - Lo segundo, realizar un click sobre algún link que proporciona la ...
Read more : Mechanizando un router | Vistas : 1446 | Respuestas : 1 | Foro : Módulos
Last 10 active topics
Estadísticas
Mensajes totales 36895 • Temas totales 7436 • Usuarios totales 1983