• Publicidad

Fecha actual 2025-02-23 01:27 @102

News News of Mundo Perl

Site map of Mundo Perl » Foro : Mundo Perl

Como hacer un listener en Perl

Bueno, solo quiero hacer un simple listener en Perl. Debe ejecutarse siempre sobre algún puerto, escuchando si le llega alguna petición de un webservice que está enviando a cada N segundos información...

Yo lo hice en Visual Basic fácilmente pero no me agrado la solución, :?
Read more : Como hacer un listener en Perl | Vistas : 1363 | Respuestas : 2 | Foro : Avanzado


Scripts que envie muchos mails

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?
Read more : Scripts que envie muchos mails | Vistas : 492 | Respuestas : 2 | Foro : Básico


Mostrar texto entre dos delimitadores

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 ...
Read more : Mostrar texto entre dos delimitadores | Vistas : 650 | Respuestas : 3 | Foro : Básico


Parallel ForkManager error

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 ...
Read more : Parallel ForkManager error | Vistas : 1035 | Respuestas : 6 | Foro : Básico


Preservar zonas de una lista a la hora de usar s//

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 ...
Read more : Preservar zonas de una lista a la hora de usar s// | Vistas : 553 | Respuestas : 5 | Foro : Básico


PNG GD::Image

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 ...
Read more : PNG GD::Image | Vistas : 1511 | Respuestas : 5 | Foro : Módulos


Cómo utilizar el comando "grep" en Perl

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 ...
Read more : Cómo utilizar el comando "grep" en Perl | Vistas : 5556 | Respuestas : 13 | Foro : Básico


Exportar a Excel

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...
Read more : Exportar a Excel | Vistas : 2261 | Respuestas : 4 | Foro : Módulos


Contar aparición con valores repetidos

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...
Read more : Contar aparición con valores repetidos | Vistas : 581 | Respuestas : 3 | Foro : Básico


OLE y seguridad de MS Outlook

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.
Read more : OLE y seguridad de MS Outlook | Vistas : 286 | Respuestas : 0 | Foro : Básico


 

Identificarte  •  Registrarse


Estadísticas

Mensajes totales 36892 • Temas totales 7434 • Usuarios totales 1981

cron