Foro - Perl en Español

Hola, soy principiante, hace un mes que estoy en Perl.

Tengo estas tres secuencias de ADN y las tengo metidas por líneas en un array.

Quiero quitar el número de delante, pero no lo consigo. Si alguien me puede echar una mano...

1 agatggcggc gctgaggggt cttgggggct ctaggccggc cacctactgg tttgcagcgg
61 agacgacgca tggggcctgc gcaataggag tacgctgcct gggaggcgtg actagaagcg
121 gaagtagttg tgggcgcctt tgcaaccgcc tgggacgccg ccgagtggtc tgtgcaggtt

¡Muchas Gracias!

Amigos del foro, estoy adaptando un script que funciona en Linux a Windows (para que trabaje en ambos). Tengo todo ok, pero me he topado con el siguiente problema:

Dentro del script hago una llamada al sistema operativo para que ejecute convert: system("convert $imageDir/$name-$imgNo.ppm $imageDir/$name-$imgNo.png"); donde $name-$imgNo.ppm ya está creado. En Linux, ningún problema: el archivo $name-$imgNo.ppm es creado por pdftoppm que está disponible en Linux y Windows, pero con una pequeña gran diferencia: ...

Bueno, quería mostrar el código que con la ayuda de explorer logré terminar.

Este simple programa lista las últimas vulnerabilidades publicadas en securityfocus.com y podremos verlas desde consola viendo la información, exploit, solución...

El código es el siguiente:

#!/usr/bin/perl
#SecurityFocus Manager 0.3
#(C) Doddy Hackman 2011
##ppm install http://www.bribes.org/perl/ppm/HTML-Strip.ppd

use LWP::UserAgent;
use HTML::Parser;
use HTML::Strip;

my $nave = LWP::UserAgent->new;
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
$nave->timeout(5);

head();
refrescar();

sub refrescar { ...

en la web http://perl-tutorial.org.

(En inglés, pero hay también enlaces a algunos tutoriales en español.)

Cual es el código hex de las ventanas de Perl, me refiero a ese gris...

Hola.

¿Me podrían ayudar? Necesito guardar una cadena en un arreglo, pero no me está funcionando la forma que estoy utilizando ya que solo me guarda un valor de n cantidad de valores que quiero guardar.

Lo que quiero hacer es guardar algunas IP que estoy leyendo de un archivo a las cuales les hago un if() para que cumplan una condición y si la cumplen guardarlo en un arreglo para después imprimirlas.

Utilizo algo ...

Hola, estoy haciendo un algoritmo que me liste los archivos que tenga en un directorio y, adicional a esto, me muestre la fecha de la última modificación; para esto tengo el siguiente código:

#!C:\perl\bin\perl.exe -w

my @vec = (0,'');

opendir(my $handle, $dir) || die;

while ($archivo = readdir($handle)) {

$fecha = (stat($archivo));

if ($fecha > $vec) {

@vec = ($fecha ,$archivo);

}

print "$archivo $vec\n";

}
closedir $handle;

<STDIN>;

El problema es que cuando ...

Hola de nuevo, tengo el siguiente código:

my $dbh = DBI->connect("DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432"."directorio","directorio","directorio");
my $sth = $dbh->prepare("SELECT institucion.name, sede.name, ciudad.name, estado.name, pais.name, poder.name, customer_user.first_name,customer_user.last_name,customer_user.id, cargo.name, area.name FROM sede INNER JOIN institucion ON institucion.id=sede.id_institucion JOIN ciudad ON sede.id_ciudad=ciudad.id JOIN estado ON ciudad.id_estado=estado.id JOIN pais ON ciudad.id_pais=pais.id JOIN poder On institucion.poder_id=poder.id JOIN customer_user ON sede.id=customer_user.sede_id JOIN cargo ON cargo.id=customer_user.cargo_id JOIN area ON area.id=customer_user.area_id ORDER BY institucion.id");
$sth->execute;
while ( @selec = $sth->fetchrow_array()) {
push ( @ni,$selec);
my @ns=$selec; ...

Hola a todos...

Últimamente estoy muy activo por aquí y no me gusta nada T.T . Estoy un poco desesperado.
Tengo una web que consulta un cgi en perl. Para atacar al servidor lo hago mediante una petición post.

El cgi funciona perfectamente. Ataca a una BD para obtener los datos. Estos son muchos, así que el script tarda un poco, debido al fetching de datos.

Lo que sucede, no es que tarde, es que ...

Gran éxito de la revista creada por Gabor, con el resumen semanal de la actividad Perl.

Artículo (en inglés)