Foro - Perl en Español

Hola a todos.

Tengo una duda acerca del uso de las listas asociativas.

Quiero recorrer X archivos (pongamos por ejemplo, 10) de un directorio, y crear una lista asociativa para cada archivo, donde iré guardando información de cada archivo. Pero a la hora de definir cada lista, no sé cómo denominarlas para que no me dé error.

Con un ejemplo se entiende mejor.

El código base que tengo sería algo así:

$dir="path al ...

Hoy es el cumpleaños de nuestro lenguaje favorito, pero el Perl de nuestros días es distinto (a veces, muy distinto) de aquella primera versión del 18 de diciembre de 1987.

A soplar las velas, ¡vamos!

> perl -CO -E 'say "\N{CANDLE}" x 30'

Hola, ¿qué tal?

Tengo este código que tiene dos listas asignadas como array y al comparar una con la otra extrae lo que dé un match.

Lo quiero en subrutina porque estoy haciendo otro script con diferentes variantes (múltiples opciones) pero al final siempre tengo dos listas (dos arrays) que se comparan.

Estoy tratando de hacer la subrutina desde que inicia el "for (@list){ hasta el final }" y usarla algo así como " extract ...

Hola de nuevo, Perl en español. Quisiera saber qué diferencia tiene direccionar algo hacia una variable escalar entre paréntesis y direccionar ese mismo algo hacia un arreglo.


#!/usr/bin/perl

my $nombre;
my @nombres;

my $fichero = "fichero.rar datos.rar cosas.rar";

($nombre) = $fichero =~ /^(.+)\.rar$/i;
@nombres = $fichero =~ /^(.+)\.rar$/i;


¿Diferencias entre ($nombre) y @nombres?

¿¿Por qué usar uno en vez del otro??

Gracias por adelantado.

Necesito un código mejor que el mio para crear URL semánticas, ya que el que tengo tiene problemas con los acentos y la letra ñ, y además me quedan en mayúsculas, por ejemplo:

titulo: El niño más hermoso en acción
me queda: EL-NI-O-MAS-HERMOSO-EN-ACCI-N

Este es mi código:

sub urlConverter {
my $selft = shift;
my $titulo = uc(shift);


$titulo = textoEncoded($titulo);

$titulo =~ tr/áéíóúñÁÉÍÓÚÑÂÊÎÔÛâêîôûÄËÏÖÜäëïöü/AEIOUNAEIOUNAEIOUAEIOUAEIOUAEIOU/;
$titulo =~ s/\W/-/g;
$titulo =~ s/-{2,}/-/g;
$titulo =~ s/^(-)(.*)(-)$/$2/; ...

Hola, estoy comprando los blast de 450 genes de 7 organismos diferentes y quiero agrupar todos los resultados en un único archivo. Tengo dos ficheros para cada organismo, uno con todos los identificadores de los genes que quiero estudiar y otro con los resultados del blast, pero el problema es que si el blast no me da resultado no me pone una línea en blanco y luego agrupar todos los resultados es un poco tedioso ...

Hola.

Bueno, resulta que tengo varios archivos xml con datos los cuales necesito actualizar cada vez que tengo nuevos datos.

Lo que deseo saber es si es posible insertar los nuevos datos antes de cerrar el xml:

<label>
.datos viejos
.datos viejos
</label>

O sea, insertar los nuevos datos antes de </label>:

<label>
.datos viejos
.datos viejos
.datos nuevos
.datos nuevos
</label>

Esto deseo hacerlo hacer sin tener que utilizar los métodos de copiar para ...

Otro calendario más: el de Mojolicious:

https://mojolicious.io/blog/

Y también apareció el calendario de Adviento de Perl 5:

http://www.perladvent.org/2017/

Ya tenemos el calendario de Adviento de este año:

https://perl6advent.wordpress.com/2017/ ... christmas/