Foro - Perl en Español

Quiero hacer que mi script de copia de seguridad sea capaz de respaldar la copia también enviándola vía mail, enviando por ejemplo, 10 mails de 20mb a Gmail si el archivo es de 200mb.

¿Es posible? ¿Qué necesito?

Por ultimo, digamos que quisiera recuperar esos 10 mails. Podria crear una funcion que se conectara y buscara mails con ciertos codigos en los titulos, los descargara y volviera a unir?

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, 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 ...

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.

Tengo una lista con el siguiente contenido:

lista.txt
Iker Casillas Fernández (Real Madrid CF)
David De Gea Quintana (Club Atlético de Madrid, SAD)
Diego López Rodríguez (Villareal CF SAD)
José Manuel Reina Páez (Liverpool)
Víctor Valdés Arribas (FC Barcelona)
Raúl Albiol Tortajada (Real Madrid CF)
Alvaro Arbeloa Coca (Real Madrid CF)
César Azpilicueta Tanco (Club Atlético Osasuna)
Joan Capdevila Méndez (Villarreal CF, SAD)
Carlos Marchena López (Valencia CF, SAD)
Gerard Pique Bernabéu (FC Barcelona)
Carles ...

Saludos

Tengo la siguiente duda: he hecho varios ejecutables con PAR agregándoles iconos. Todos estos ejecutables tienen una interfaz gráfica hecha con Win32::GUI. Lo que me molesta es el icono de las ventanas. La idea es extraer el icono del ejecutable generado y agregárselas, pero no sé cómo.

¿Alguna ayuda?

Hola a todos, ¿¿¿cómo están???

Voy a desarrollar un script Perl para actualización de tablas, pero el tema es que tengo que tomar dos bases de datos diferentes.

Me explico:

Hago un select a la BD1 y el update a la BD2. ¿¿Como manejo las conexiones??

Lo he hecho solo con una conexión, o sea, a una sola base de datos.
Saludos y gracias.