Foro - Perl en Español

Hola, me he pasado del foro de Perl Básico al de Bioinformática, y ando tan perdida como antes. Qué significa la qw(), y en general toda esa expresión? Aparece en un programa que lo que hace es buscar genes

my @genes = qw(
xgene1 agene2 mgene3 zgene4 cgene5
);

Hola, aquí paro de nuevo.

Tengo una parte de código que quiero convertir en subprograma, es ésta:

my $ADI = 0;
my @array = ('"wid="w1"', 'wid="w2"');
my $lerroADI= 'wid="w1"';
for my $ADIa (@array) {
if ($lerroADI eq $ADIa) {

$ADI=1;
last;
}
}
print "$ADI";


Lo primero es que no me devuelve nunca "1", siempre "0", aunque como se puede ver en el array sí que está wid="w1".

La otra y no ...

Mi duda: ¿Es posible ordenar de manera alfabética los datos contenidos en un archivo TXT mediante Perl?

Tengo un archivo TXT, contiene miles de enlaces de distintos sitios y quiero ordenarlos alfabéticamente mediante un script en Perl.

No quiero código. Solo quiero saber si es posible.

Gracias. :D

Buen día,

Aquí expongo mi duda, ya que tengo un archivo que tengo que correr por semana para acceder a una página web, pero cambiaron la forma de acceso. Yo no hice el script ya que apenas ando empezando en aprender Perl. Bueno, aquí anexo mi duda...

Este es el script que tengo para acceder la parte del login:

#!/usr/bin/perl
use strict;
use Spreadsheet::WriteExcel;
use Win32::IEAutomation;
use Win32::IEAutomation::WinClicker;
use Win32::IEAutomation::Table;
use DBI;
use Data::Dump qw(dump); ...

Hola a todos.

Me ha surgido un pequeño problema con una aplicación que estoy programando en Perl, utilizando Eclipse + Epic.
Estoy realizando unos cálculos y me interesa indicar, de forma muy sencilla, el progreso mientras el programa se está ejecutando. Simplemente con que vaya dibujando una línea del tipo "********" me conformo.

Así, he hecho, algo simple del tipo:

sub evaluaAli
{
...
for (my $i=0; $i<scalar(@species)-1; $i++)
{
for(my $j=$i+1;$j<scalar(@species);$j++)
{
... ...

Quiero que el programa me pida un número (por ejemplo, 3) y luego me pida ese número de valores para ese número de arrays (3 arrays de 3 elementos cada uno). He intentado hacerlo con un contador ($n) y llamando al array @($n) pero me da error.

Muchas gracias

He estado observando unos scripts en el foro del maestro explorer y funcionan a la perfección, pero mi problema es que al recibir el mensaje no se interpreta el HTML y quiero que se vea bonito cuando el cliente abra el correo. ¿Alguien me podría indicar por qué no se interpreta el HTML?

En los primeros intentos usé estos módulos y funcionan perfectamente pero no interpreta el HTML.
use Email::Sender::Simple qw(sendmail);
use Email::Sender::Transport::SMTP::TLS;
use ...

Hola, necesito ayuda, tengo los siguientes scripts:
#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

print "llama \n";
print "system (qq(perl 'whilep.pl')) \n";
system (qq(perl "whilep.pl"));
print "vuelve \n";

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
use Proc::Daemon; #Para correr script como demonio
Proc::Daemon::Init; #Para correr script como demonio

our $config = do 'while.cfg';
our $wor = $config->{'wor'};
our $PRUEB = "$wor/while.tmp";
open (PRUEB,">$PRUEB");
print PRUEB "algo \n";
close PRUEB;
Mi problema ...

Saludos. Me encuentro con que estoy creando un script en Perl que funcionará en Windows y realmente tiene que estar ejecutándose todo el tiempo y tiene que mandar avisos cada vez que ocurre cierto suceso. El problema que tengo es que de GUI en Perl poco sé y lo que necesito es saber cómo crear estos avisos, ¿alguien sabe? Se los agradecería... Sería muy útil uno que salga como los clásicos globos de notificaciones en ...

Buenas tardes:

Tengo un script en Perl que hace una conexión por ftp y éste después de hacer una serie de acciones, sube un fichero a un servidor ftp.

Si provoco que este script falle, es decir, pongo en la programación, un error en la dirección IP del servidor o, también puede ser que el servidor ftp en un momento dado, esté caído.

Al lanzarse el script, se genera un mensaje de error, pero este ...