Foro - Perl en Español

Buen día a todos. Es mi segundo mensaje y necesito de su ayuda, he revisado varios post acerca de enviar parámetros a Perl desde PHP y cómo ejecutarlo y hasta allí todo normal, sin ningún problema. El detalle viene a ser ¿cómo recibo los parámetros enviados desde PHP? Creo que hasta ahora nadie ha hablado de eso o soy tan ciego que no lo vi. Les agradezco inmensamente su respuesta. Mis códigos son:

En PHP ...

Hola:

Tengo un fichero así

b,5,6,7
a,2,5,6
a,1,4,5
b,4,6,7
a,1,5,5
b,3,6,7

Tengo que agrupar de los que empiecen por la misma letra.
Mi intención es cargarlo en un array de dos dimensiones.
Cargo todos los que empiezan por a:
a,2,5,6
a,1,5,5
a,1,4,5
y ahora quiero ordenarlo
a,1,4,5
a,1,5,5
a,2,5,6
y ahora hago la agrupación.

Quiero:
pintar "a", el primer valor de la primera segunda columna, la suma de la tercera columna, y el último valor ...

Hola,

tengo una duda que si alguien pudiera aclararme, sería de gran ayuda.

Hay una tabla hash cuyas claves apuntan a vectores. Es decir, vectores dentro de una tabla hash. Quiero extraer esos vectores a una variable vector, pero me da error y no sé cómo hacerlo. De momento, tengo puesto ésto:

@ADIak = values($Moten_Hash_Taula{"ADI_SIN"})

Pretendo meter en el vector ADIak los valores que hay en el vector correspondiente a la clave "ADI_SIN". De ...

Muestra el total de usuarios por contenidos diferentes del campo 7.

Es decir, un agrupamiento por cada contenido y el número de veces que se repite cada contenido. Por ejemplo con el fichero passwd:
bin/false: 6
bin/sh: 5
bin/bash: 4

Tengo hecho esto, creo que con un hash se podría hacer pero no sé cómo hacerlo.

open(F1, "@ARGV") or die "No existe el fichero";
while ($linea=<F1>) {
chomp $linea;
@x = split(/:/,$linea);

close ...

Estimados,

Estoy presentando problema al comparar valores numéricos que estoy sacando de una BD.

Cuando hago la consulta sql y me trae un valor, como 1,222200, la aplicación funciona bien; realiza la comparación y entra en el if ($var > 0).

Pero hay ocasiones en que la base de datos me trae los siguientes valores: ,22220.

En estos casos la aplicación hace mal la comparación ya que entra en el if == 0 y arroja ...

Muy buenas,

Resulta que tengo unas utilidades web que funcionan en Windows a las mil maravillas, pero resulta que el hosting que me dan es en Linux y he tenido que adaptar los cgi.

Después de romperme la cabeza con los permisos y demás requerimientos de Linux (con tanta parafernalia para hacer tan pocas cosas que en Windows se hacen con un clic, es desesperante trabajar con Linux, al menos hasta ahora) ahora resulta que ...

Saludos, Perl en Español, acudo a Uds. para resolver un problema.

Anteriormente estaba usando Spreadsheet::ParseExcel para analizar archivos .xls pero recientemente me vi en la necesidad de ajustar la aplicación para analizar también archivos .xlsx, por lo cual opté por usar Spreadsheet::Read; todo funciona bien pero...

Yo tengo fechas de esta forma:

en archivos .xls y .xlsx.

El proceso de los archivos .xls está muy bien ya que pudo obtener el texto formateado o ...

Buen día.

Antes que nada soy super nuevo en el mundo de Perl así que no sé mucho del tema... :roll:

Tengo unos GPS que me envían información a un modem GSM por mensaje de texto SMS, ya tengo listo el script que se conecta vía telnet y lee los mensajes almacenados. Pero el mensaje me viene en el siguiente formato:

Lat: N10.21614
Long: W67.34032
Speed:85.34KM/H ...

Según lo leído de FormFu http://search.cpan.org/~perler/HTML-FormFu-0.09007/lib/HTML/FormFu.pm
La forma de hacerlo es así:

$form->attributes->{id} = 'form';

$form objeto de FormFu y donde el .yml es:


---
attributes:
id: form
class: fancy_form

Ahora quiero editar el style de mi .yml


---
indicator: submit

elements:
- type: Submit
name: submit
value: Submit
container_attributes:
style: ""

y no encuentro forma de editarlo...
He intentado con:


$form->elements->Submit->container_attributes->{style} = "display:none;";
# o con
$form->elements->Submit->{style} ...

Hola.

Estoy estancado tratando de reproducir un sonido MP3 desde Perl.

Trabajo bajo un S.O. Ubuntu, mi objetivo es reproducir un sonido en MP3 dado la dirección.

Intenté trabajar con módulos de http://search.cpan.org/search?query=sound&mode=all pero no pude solucionar.


Saludos.