Foro - Perl en Español

Hola, tengo un archivo con:
EventContext ABS Sales Order Screen Homepage View
SQL Statement Prepare Time for SQL Cursor with ID D118080: 0.001 seconds
SQL Statement Execute Time for SQL Cursor with ID D118080: 0.004 seconds
SQL Statement Initial Fetch Time for SQL Cursor with ID D118080: 0.001 seconds
EventContext ABS Sales Order List View
SQL Statement Prepare Time for SQL Cursor with ID 101AD370: 0.001 seconds
SQL Statement Execute Time for SQL Cursor with ...

Tengo el siguiente script:

open (URLS, 'urls3.txt');
my @urls = <URLS>;
chomp @urls;
close(URLS);
open (PROXY, 'proxy.txt');
my @proxy = <PROXY>;
chomp @proxy;
close(PROXY);

my $l = @urls;

my $forker = Parallel::ForkManager->new(20);

for (my $i = 0; $i < @proxy; $i++) {

$forker->start and next;


print $urls,"
"," PROXY: ",$proxy,"

";

$ua = new LWP::UserAgent();
$ua->agent("Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)");
$resp = $ua->request(GET "$urls");




open(ARCHIVO,">>libros.txt");
binmode ARCHIVO;
print ...

Me han surgido un par de dudas relacionadas con el operador =~ s//g;

Supongamos que tengo una lista de términos de longitud variable, cada uno de los cuales consta de un prefijo y un sufijo separados por un carácter determinado, que es lo único común a todos los elementos de la lista.

Imaginemos que tuviera éste aspecto:
my @arreglo = ('lanza_rote','for_mentera','i_biza');
donde todo lo que está antes de "_" es el prefijo, y lo que ...

Hola, escribo porque tengo un servidor en el que tenía instalada una aplicación web que creaba imágenes png. Hace unos días actualicé el servidor a Ubuntu 10.10 y ahora obtengo el siguiente error:
Can't locate object method png via package GD::Image at usr/local/share/perl/5.10.0/Bio/Graphics/Panel.pm line 1055
justamente cuando intento crear la imagen png:
my $panel = Bio::Graphics::Panel->new( -length => $maxLengthExtra,
-width => 800,
-pad_left => 5,
-pad_right => 50
);
print PING $panel->png;


Llevo ya ...

Hola, buen día...

Tengo una duda acerca de cómo utilizar el comando grep en un código de Perl... Tengo aquí un pequeño ejemplo de cómo lo utilicé... pero me marca un error:

open (my $fh, $ARGV) or die "No se puede abrir el archivo\n";

my $result=`grep "^>" $fh`;
print $result;

Lo que estoy intentando aquí es que me imprima la línea en donde encuentra el mayor que (">").

La versión que tengo de Perl ...

Hola, buenas, tanto tiempo...

Quería consultaros si está la posibilidad de exportar a Excel desde alguna aplicación cgi, ya que tengo unos informes generados con PHP y SQL pero no encuentro una forma óptima para exportar a los distintos formatos Excel. Para comenzar, desde el lado PHP no me termina de convencer.

Desde ya muchas gracias por cualquier ayuda que me encamine o en el peor de los casos perdonen por la pregunta...

Saludos.

Tengo una lista de datos que se repiten, pero quiero contarlos como si aparecieran una sola vez.

Mi primera idea fue hacer una arreglo e ir agregando datos pero que no se repitieran (usando la función grep()), pero también sé que se puede utilizar un hash.

Mi pregunta es ¿qué es más rápido? Porque son listas grandes...

Hola. Este tiempo he estado trabajando con el envío de correos masivos con un script de Perl basándome en el envío mediante Outlook. Uso el módulo Win32::OLE y genero los correos con el plugin de Word para la confección de éstos. Al momento de poner destinatarios me salta un mensaje en Outlook acerca de la seguridad.

¿Cómo saltárselo? He buscado en Internet pero no me queda claro cómo funciona el Redemption.SafeMail.

Hola,

He intentado instalarme en Linux un módulo con el siguiente comando:
$ perl -MCPAN -e "install Bio:Tools:BPlite"
porque es necesario para un programa, pero no lo encuentra.
Warning: Cannot install Bio::Tools::BPlite, don't know what it is.
Try the command

Al final lo he encontrado en la página del desarrollador y me lo he bajado como un archivo "BPlite.pm". Pero no encuentro por ningún lado cómo instalar este módulo. ¿Alguien me puede ayudar?

Gracias ...

Hola.

Tengo un archivo con el siguiente formato
>GW156IX01BW18G length=114 xy=0669_2046 region=1 run=R_2011_02_01_18_40_56_
40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 33 30 28 28 28 28
>GW156IX01AUUGH length=76 xy=0234_0799 region=1 run=R_2011_02_01_18_40_56_
40 40 40 40 40 40 40 40 40 39 40 27 26 16 16 16 26 29 14 26 21 21 21 21
>GW156IX01AOII3 length=113 xy=0162_0317 region=1 run=R_2011_02_01_18_40_56_
4 9 40 40 ...