Foro - Perl en Español

Hola, ¿qué tal?

Me puse a revisar su foro y en primer lugar lo felicito por la forma didáctica que tiene de responder. Soy novato en el uso de los scripts en Perl. La verdad, me gustaría aprender, espero que me informe si pretende hacer algún curso; la verdad, estoy muy interesado.

Mi problema es el siguiente: muchas veces realizo alineamiento de secuencias provenientes del NCBI en formato multifasta; pero los headers son muy largos ...

Saludos.

¿Cómo podría instalar en mi disco duro un CPAN con todos los módulos que existen para poder programar sin tener que bajarme los módulos de Internet, para cuando no tenga conexión? Además es bueno de tener grabado en el disco duro todo ese código, por si algún día se borran, ya los tenemos ahí.


Gracias.

Espero que estén bien. Como siempre vengo a tratar de que me ayuden con un nuevo script.

En este caso estoy creando un script, el cual tiene como objetivo verificar si existen archivos en un sitio web, pero no me está funcionando la parte de que me tome la cookie de sesión.

#!/usr/bin/perl
require LWP::UserAgent;
require HTTP::Cookies;

my $useragent = "Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.9.0.1) Gecko/2008072820 Firefox/3.0.1";
my $ua = LWP::UserAgent->new() or ...

Hola a todos.

A ver si puedo explicarme bien: estoy cacharreando un plugin para el xchat, y necesito controlar los menús. Lo que me gustaría saber es cómo ver el estado de una ocpión en el menú, o sea, leerla con alguna función del xchat.

Veamos, tengo un menú creado de la siguiente forma:

/menu add test
/menu -t0 add test/opcion "cmd1" "cmd2"

Lo que quiero saber es, desde el plugin, cómo consultar el estado ...

Buenas,

Tengo otra pregunta chorra, ¿cómo le digo a la subrutina que coja @genbank1 y lo meta en @genbank? Es que tengo varios archivos de genbank...

Muchas Gracias.

ORGANISMO(@genbank1);

sub ORGANISMO {
my @genbank = ();
my $organismo = '';
for my $linea (@genbank) {
if ( $linea =~ /^ ORGANISM/ ) {
$linea =~ s/^\s*ORGANISM\s*//;
$organismo = $linea;
}
}
}

Tengo un problema con el siguiente código porque estoy abriendo un array para escribirlo en un archivo de texto. Lo que quiero hacer es que cuando esté escribiendo en el archivo poder reemplazar las \ por \\, las / las dejo como están, solo son las \.

my @files =

('C:/xampp/htdocs/aca.txt','C:/xampp/htdocs/aca.txt',niclog','/var/log/exim/paniclog','/var/lo/exim/rejectlog','/var/log/exim_rejectlog');

open(FILE,">>aca.txt");

for my $linea(@files) {
$linea=~s/\/\\//;
print FILE '"'.$linea.'",';
}
close FILE;

¿ Alguien puede ayudarme ?

Hola, estoy aquí porque necesito ayuda de Uds. Tengo una variable que necesito comparar en varias tablas de una BD... es decir, en la variable tengo una palabra que necesito que las busque en unas tablas (usuario, sede, etc), pero no sé cómo hacerlo. Intenté haciendo con Perl un if(), pero no me busca en las tablas.

También con un case pero no sé cómo hacer en el case que si no encuentra en un ...

Estimados:

Antes de programar alguna solución al problema, quería comentarlo con Uds. y ver qué es lo que se puede hacer, antes de hacerlo claro :P...

Desde un formulario web el usuario podrá buscar por sexo, edad, dirección, teléfono, email, comuna, región, etc... El formulario tiene unos 30 campos para realizar la búsqueda específica, donde se pueden seleccionar o no, los campos anteriores...

Una vez recibiendo los ...

Tengo el siguiente código

use File::Find;

find(\&finder,"dir");

sub finder {
my $file = $_;
print $file."\n";
if(-f $file) {
if ($file =~ /\.txt$/ or $file =~ /\.php$/){
print "$File::Find::dir"."$File::Find::name\n";
}}}

El problema es que al reconocer un archivo quiero tenerlo con la ruta completa pero cuando uso un directorio común como /dir, el problema es que queda algo así: "dir/N3fa5t1cA.txt". Pero yo quiero la ruta completa.

¿ Alguien puede ayudarme ?

Hola, estaba mejorando este herramienta para seguridad web que tengo desde hace tiempo y quiero que si se teclea control+C el código retorne al menú sin problemas. El problema es lo que he intentado con

$SIG{INT} = \&reload;

Pero solo me retorna un valor numérico.

El código es el siguiente:


#!usr/bin/perl
#k0bra 1.5
#Console version
#Automatic SQL Scanner for MYSQL
#(c)0ded By Doddy H
#
#
#C:\Users\DoddyH>perl k0bra.pl http://127.0.0.1/sql.php?id= --
#
# ...