Foro - Perl en Español

Hola, necesito un programa de Perl que saque por pantalla (sin repetición) los nombres de las especies representadas en un fichero.

El fichero es así:
>TPC2_XENTR Xenopus tropicalis
AAGTGACCGTAGACCAAAGCGAGTTTCGGCTCCAGGGAAGCGAGTTTCGGCTCCAGGGAAGCGAGTTTCGGCTCCAGGG
>TPC2_XENLA Xenopus laevis
ATGGAGTCGGAGCCGCTGCTCGGTTGGAGCGTCAATCTGCCTTGGAGAAAAGCGAGTTTCGGCTCCAGGG

Lo que me interesa es que imprima sin repetición solo el nombre (ej: Xenopus tropicalis)

Muchas, muchas, gracias.

No sé si es muy simple, pero lo necesito lo más rápido posible. Gracias.

¡¡Hola gente!!

Soy nuevo en este tema de Perl y requiero la librería perl5lib, que el ejecutable lo tengo en una máquina y no en un server. ¿Alguien me la podría proporcionar o decirme cómo puedo bajarla?

Se los agradecería mucho.

¡¡Saludos!!

Hola.

Quiero un programa de Perl que me saque por pantalla los nombres de la primera columna de una "archivo x" que no tienen nada en la segunda columna.

El archivo x tiene dos columnas. La primera pone un nombre con unos números, sin espacios, y en la segunda columna o no sale nada o sale una explicación.


Necesito un programita sencillito y si pudiera ser como antes mejor... ya sé que es pedir demasiado... ...

Les molesto nuevamente porque hice un script y la verdad que no me resulta muy competente. Por este motivo quería consultarles si pueden darme una mano.

#!/usr/bin/perl -w
use Term::ANSIColor qw(:constants);
print"----------------------------------------------------------------------------------------------------------------\n";
$comando2 = (split " ",( qx(grep ^PASS_MAX_DAY /etc/login.defs)) );
chomp $comando2;
if ("$comando2" != 90) {

print BOLD, RED, "Negativo:", RESET . " El valor del parametro PASS_MAX_DAYS es incorrecto\n";

}

else{

print BOLD, GREEN, "Positivo:", RESET . " El valor del ...

Intentaré explicarme lo mejor posible:
Tengo dos listas; una con el nombre numeros.txt y otra con el nombre letras.txt.
numeros.txt letras.txt
1 a
2 b
3 c
4
5
6
7
8
9
0

Lo que quiero es conseguir esto:
a 1
b 2
c 3
a 4
b 5
c 6
a 7
b 8
c 9
a 0

Mi primer programa fue este:
numeros.txt letras.txt
1 a
2 b
3 c
4 d ...

¿Qué tal? Quisiera ver si me pueden ayudar con este pequeño problema...
Tengo este archivo:

GPJFHIG01AN7BW Assembled contig00764 69 - contig00748 3 -
GPJFHIG01D3PF6 Assembled contig00645 650 + contig00009 710 -
GPJFHIG01ADJDG Assembled contig00764 490 + contig00674 586 -
GPJFHIG01CEBKL Singleton
GPJFHIG01ECQ6L Singleton
GPJFHIG01CS9M0 Assembled contig00645 186 + contig00645 273 -
GPJFHIG01CDL5X Assembled contig00764 580 - contig00690 75 +
GPJFHIG01AZUS9 Singleton
GPJFHIG01BHOJ5 Assembled contig00645 146 + contig00645 278 -
GPJFHIG01AHBGC TooShort
GPJFHIG01B6LGY PartiallyAssembled contig02291 359 ...

Bueno, la idea es que tengo un parámetro en mi plantilla:

<TMPL_UNLESS NAME=WIDGET_Etrueque_formlogin>

Y cuando leo los parámetros con mi script:
# Esto está dentro de un ciclo que lee todos los parámetros de plantilla

if ($parametro =~ /widget/i) {

my @parametros = split (/_/, $parametro);

$hash = { $parametro => &getContainWidget($self,@parametros)};
$return = $hash;


}

Lo que quiero con este script es buscar un archivo que está en plugins/Etrueque/formlogin.pl

Pero necesito que me ...

Hace una semana ya que no podía iniciar sesión, me decía que había superado el limite de intentos, y me ponía un catpcha para verificación...

Pero no sé por qué esto pasaba, espero que no me suceda de nuevo.

Hola

Ando teniendo un duda con una tabla. Lo que quiero hacer es crear una tabla que mantenga cierto tamaño a pesar de que los contenidos de las filas sean largas.

Ejemplo:

<table>
<td>sdsdsdsd</td><tr>
<td>sdfsdddsddddddddddddddddddddddddddddddffff</td><tr>
</table>

El problema es que la segunda fila deforma la tabla. Mi duda es si no habrá alguna forma para que las filas mantenga cierto tamaño quedando la segunda fila larga así (para no deformar el tamaño) ...

Les dejo el siguiente script por si alguien lo necesita.


#!/usr/bin/perl
use Digest::MD5;
@ARGV or die "Uso: $0 archivo\narchivo: /etc/passwd por ejemplo\n";
my $file = $ARGV;
my $file= shift;
open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
binmode(FILE);

print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";