Foro - Perl en Español

Buenas, tengo un problema entre pequeño, mediano y grande.

Me explico: necesito ordenar un array de fechas del siguiente formato: 2012/01/01, 2012/01/01, 1985/01/04, 1995/06/07, 2001/02/02. Bien, este sería el array de fechas @fechas. Asociado a este array relleno otros dos arrays: un array de títulos @titulos y un array de nombres de fichero @nombresDeFichero.

El tema es que las posiciones son correlativas en los tres. Es decir la posición $fechas se corresponde con $titulos y ...

¡Hola a todos!

Soy un poco nueva con Perl. El script que intento hacer debería contar cuántas veces está repetida una palabra, en una lista y al final imprimir la palabra y el número de veces que aparece.

Lo he intentado de mil formas y no he podido. Estaba revisando otros foros similares e intenté con las recomendaciones pero no me funciona. Por favor, ¡¡¡necesito ayuda!!! :? ...

Digamos que tengo lo siguiente:

#!/usr/bin/perl -w

use warnings;
use strict;


my @vehiculos;
my @puntos;

@vehiculos = ("coche", "camion", "bicicleta", "triciclo");
@puntos = ("1", "1", "0", "1");

my %hash;
my $keys;


@hash{@vehiculos} = @puntos;

foreach my $keys (sort {$hash{$a} cmp $hash{$b}} keys %hash){
print "$keys = $hash{$keys}\n";
}

Así, como está, me lo imprimiría en base a los valores, de menor a mayor.

Pero si yo quiero imprimirlo en el orden original, o sea, ...

Tengo el siguiente código:

use URI::Split qw(uri_split);

my ($scheme, $auth, $path, $query, $frag) = uri_split("http://localhost:8080/test.php");
my $save = $auth;

print $save."\n";

open(FILE,">>".$save.".txt");
print FILE $save;
close FILE;

El problema está que el script solo crea un archivo vacío llamado localhost y yo necesito que lo cree bien, con el título "localhost:8080", con el valor de $save. El problema parece ser el ":".

¿ Alguien me puede ayudar a solucionar este problema ?

Buenas a todos,

El problema que se me presenta hoy me está costando solucionarlo y quería saber si hay una forma sencilla de hacerlo usando Perl (parece que últimamente hay una epidemia de usuarios de Bash en el campo de la bioinformática...)

He de filtrar en un archivo FASTQ las secuencias que no pasan el corte de calidad, eliminándolas del archivo. Estas secuencias se diferencian por tener un carácter "#" delante de la última línea, ...

Hola, soy nuevo en este foro y como muchos aquí recién empiezo a entrar en este mundo de la programación. Lo siguiente es que he creado una calculadora en Perl o un sistema como una libreta telefónica que das el nombre de la persona y te da el número telefónico lo que quiero hacer es montar el programa en una página HTML o diferente que aparezca y funcione en Internet. He buscado por todas partes ...

¿Qué tal? Estoy tratando de migrar unas bases de datos que tengo en un sistema operativo Fedora 7 a Debian 6. El gestor de bases de datos que estoy utilizando es PostgreSQL. El problema que tengo es que al generar la base de datos con codificación "SQL_ASCII" (que es como tengo la base de datos en Fedora 7) en Debian, me manda el siguiente error:

Falló la creación de la base de datos:
ERROR: la ...

Buenas a todos.

Necesito hacer una aplicación web para que el jefe pueda ver de los servidores samba que administro, el estado de las cuotas de disco, espacio disponible de los discos, recursos mapeados de los samba, si alguna vez se le ha aumentado la cuota, etc...

Actualmente eso lo hago con bash. Tengo mi script en bash, rescato todos los datos que quiero, los vuelco a un fichero de texto y después con PHP+HTML ...

Tengo el siguiente código:

use Cwd;

my $ruta = getcwd();

system("start $ruta");


Y devuelve esto:

El sistema no puede encontrar el archivo D:/Mis.

Necesito saber por qué no carga el directorio por el tema de los espacios en blanco y cómo puedo arreglarlo para que ande.

¿ Alguien me puede ayudar ?

¡Saludos! Estoy usando un ejemplo que vi en el foro para realizar envío de correos desde CGI::Application, pero tengo un error


# MODO RECUPERAR CONTRASEÑA #
sub index_recuperar_contrasena{
# 1.- Cargo todas mis librerías en la variable self.
my $self = shift;

# 2.- Recibo el query que viene desde el navegador y lo guardo en la variable q
my $q = $self->query();

# 3.- Asigno variables a cada uno de los parámetros ...