Foro - Perl en Español

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 ...

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.

Estoy haciendo un script en Perl y tengo un problema en una de las funciones.

Este es el enunciado de la función:

mostrar_directorio
Recorre recursivamente el árbol de directorio partiendo desde el directorio pasado como argumento.
(ayuda/salir)? mostrar_directorio ...
etc (Directorio)
group
passwd
script (Directorio)
config.txt
historico.txt
minishell.pl
minishell..pl~
....
Hasta ahí todo sin problemas pero ahora debo añadir...

Lo único que se debe de modificar es la salida. Esta estará claramente sangrada y ...

Hola, no sé si esto va acá xD... Lo que pasa es que tengo unos ejercicios con matrices. Pero me quedé estancado en la letra C). Las instrucciones son:

hacer una matriz y entregar matriz Traspuesta, los mayores de cada fila y ordenar la matriz usando como key el primer elemento de cada fila

Tengo este código para la A y B hasta ahora:
http://pastebin.com/r10teh0x
#!/usr/bin/perl
print "Filas:\n";
my $filas = <stdin>;
print "Columnas:\n"; ...