Foro - Perl en Español

Buenos días, les agradeceré me apoyen describiendo la siguiente instrucción:

my $labels = ;

Si los arreglos son declarados con '@', entonces ¿cuál es su uso en la declaración anterior?

Buenos días, tengo el siguiente archivo que es donde valido la sesión de usuario de una aplicación web:

#!/usr/bin/perl
binmode STDOUT, ":encoding(UTF-8)";
use lib '../Modulos/';
#use strict;
#use warnings;
#use diagnostics;

use login;
use CGI::Session;
use CGI ':standard';
use CGI::Carp qw'fatalsToBrowser warningsToBrowser';
print error;


my $cgi = CGI->new();
$cgi->charset('UTF-8');


my $session = CGI::Session->new("driver:File", $cgi, {'Directory'=>'/tmp/'})
or die CGI::Session->errstr;

$session->expire('+10s'); ##Tiempo que vence la sesión
## Enviamos la cookie de sesión al usuario
print $session->header; ...

Buenos días,

Resulta que tengo que instalar en un servidor Debian Lenny unos paquetes pero existe una web con archivos Perl.

No sé cuánto tiempo lleva sin actualizarse el sistema, por lo que me he bajado los paquetes manualmente. Al intentar instalar estos paquetes obtengo como dependencia el paquete perl-base, diciendo que necesito la versión 5.10.1-17 pero que la que se encuentra en el sistema es la 5.10.0-19, por lo que tendría que actualizar dicho ...

Queria consultarles cómo hacer para realizar lo siguiente:
Tengo este texto:

prueba
marcos
perl
texto

Mi idea es mostrar las palabras que tengo hasta que encuentre una diferente a estas:
prueba
marcos

Estaba probando:


if ($texto !=~ m/prueba|marcos/) {


Pero por lo que veo no me funciona.

Después de un merecido(?) descanso vacacional, me reincorporo a esta comunidad nuevamente y con un embrollo entre manos. Bueno, no sé si para exagerarlo tanto. ¡je,je!

Hasta el momento sólo había interpretado archivos CSV y en esta oportunidad necesito interpretar un texto que se me presenta en un formato particular. Digo se me presenta porque se trata de un reporte de una compañía de tarjetas indicando aquellas cuentas que fueron bien imputadas y aquellas que ...

Hola a todos.

Volvemos a la carga con C. Quién me mandaría a mí :wink:


Tengo otro problema. Ahora debo leer la siguiente secuencia:

n m id opcion

3 2 1 a b 2 a c 3 a b

Luego sería comparar las opciones con la correcta y sumar los aciertos, obtenidos a través de una función desconocida, y los fallos. Teniendo en cuenta que los fallos ...

Hola

Tengo para un mismo proyecto varios programas en Perl que quiero modular (pm). Aparte tengo la intención de que sean accesibles vía un menú muy simple.

Os pego un prototipo muy simple:

#!/usr/bin/perl
use v5.14;
use autodie;
use lib('/home/cpb/Dropbox/WEB/workspace/PreSPA/montaje');
#modifica este path para tu uso personal
#use buskeitor; # lo remarco
my $opcion;

say qq(#####################################
# Introduce 1 para Procesar imágenes
# Introduce 2 para mostrar enlaces
# Introduce 3 para copiar contenido ...

Hola.

Estoy trabajándome un gestor de archivos y me he estancado en una condición donde se debe de valorar si un fichero es X días más antiguo de la fecha actual.

¿Alguna pista?

¿Y si el directorio es vacío?

SALUD...

Hola, estimados. :D

Soy nuevo en el foro y recién comienzo a programar en Perl.

Les cuento tengo que hacer un programa que respalde archivos .pl dentro de un directorio en particular ingresado por el usuario al igual que el directorio donde quedarán los respaldos.

El problema mayor que tengo es que no me funciona la copia, para lo cual estoy utilizando el comando system("cp $_ ...

Hola, Perleros,

tengo un archivo multiFASTA con miles de entradas y quiero filtrarlo, en función del nombre de la secuencia, que incluye información relevante para el filtrado. La verdad es que estoy un poco perdido porque no sé cómo organizarlo ya que es un archivo fasta con miles de secuencias, y no sé si es buena idea guardar todo en variables.

El archivo es de la siguiente manera. En este ejemplo voy a incluir únicamente ...