Foro - Perl en Español

por **marcoamoncada** » 2011-08-08 07:54 @370

Pregunta.

Pues si no pones los caracteres interrogativos (¿?) no sabemos si estás haciendo una pregunta o una afirmación (haz la prueba de leer tus propios mensajes y te darás cuenta).

Hay varios módulos en Perl que ayudan en el rascado de páginas web, como WWW::Mechanize o Scrappy. Con WWW::Mechanize, por ejemplo, es muy fácil enviar formularios o, como dices tu, imitar la pulsación de un botón.

Scrappy sigue una filosofía más minimalista, mucho más cercana a las formas modernas de programación en Perl, a costa de tener una sintaxis propia.

por **marcoamoncada** » 2011-08-08 16:33 @731

Disculpa.

Y gracias.

¿¿¿¿¿¿¿¿¿¿¿¿Tendrás algún ejemplo de la instalación y ejecución de WWW::Mechanize????????????

por **explorer** » 2011-08-08 17:47 @782

Para instalarlo, te vale con seguir con lo ya comentado antes para instalar cualquier módulo de Perl.

Para ejemplos de cómo usarlo, te vale con buscar por la palabra 'Mechanize' en el sistema de búsqueda de nuestros foros, para encontrarlos.

por **marcoamoncada** » 2011-08-08 23:37 @025

Sobre el mail, por el momento lo resolví de esta manera:

system("mail -s 'hola' mrco1965 < /tmp/mensaje.msg");

Sí funciona. Aún no puedo enviar a Internet, pero eso no me afecta, como lo de enviar formularios.

Si gustas, abro un hilo exclusivamente sobre formularios.

por **marcoamoncada** » 2011-08-23 22:23 @974

Ya efectivamente instalé los archivos necesarios, del sistema Linux, y pude enviar, correos por medio de comando, desde Perl.

Lo cual no he resuelto, poder instalar con cpan.

Pero lo que sí logré fue enviar el correo necesario desde comando, y estos comandos son desde Perl, el código fue el siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
# GET method form
#use File::Fu;
 
#  my $dir = File::Fu->dir("/home/xxxxxxxx");
#$dir->e and warn "$dir exists";
 
#$dir->l and warn "$dir is a link to ", $dir->readlink;
 
#foreach my $entry ($dir->list) {
#  warn $entry . ': ' . $entry->stat->size, "\n"
#    if($entry->f);
#}
 
$data_direccion1_comparacion = "$ENV{HOME}/Basura/direccion1_comparacion";
open( DIRECCION1C, $data_direccion1_comparacion );
@raw_direccion_comparacion = <DIRECCION1C>;
close(DIRECCION1C);
 
$i = 0;
foreach $wrestler (@raw_direccion_comparacion) {
    chomp($wrestler);
    ( $e_mail, $archivo, $numero_envios ) = split( /\:\:/, $wrestler );
    if ($e_mail) {
        $e_mail_compara[$i]        = $e_mail;
        $archivo_compara[$i]       = $archivo;
        $numero_envios_compara[$i] = $numero_envios;
        $i += 1;
        print "E_Mail $e_mail Archivo $archivo \#Envios $numero_envios \n";
    }
}
 
$data_direccion1 = "$ENV{HOME}/Basura/direccion1";
open( DIRECCION1, $data_direccion1 );
@raw_direccion = <DIRECCION1>;
close(DIRECCION1);
 
($enviados) = 0;
$subject = "Te invito a que visites esta pagina";
foreach $wrestler (@raw_direccion) {
    chomp($wrestler);
    ( $e_mail, $archivo, $numero_envios ) = split( /\:\:/, $wrestler );
    if ( $numero_envios < 999999 ) {
        if ( ( &valida_igualdad($e_mail) ) == 0 ) {
            $comando
                = "perl /home/xxxxxxxx/Php/Prueba/perl/send.pl \"$subject\" $e_mail /home/xxxxxxxx/Basura/Invitacion";
            print $comando, "\n";
            system($comando);
            $enviados += 1;
            $e_mail_compara[$i]        = $e_mail;
            $archivo_compara[$i]       = $archivo;
            $numero_envios_compara[$i] = $numero_envios + 1;
            $i += 1;
        }
        if ( $enviados > 15 ) {
            last;
        }
    }
    else {
        if ( ( &valida_igualdad($e_mail) ) == 0 ) {
            $e_mail_compara[$i]        = $e_mail;
            $archivo_compara[$i]       = $archivo;
            $numero_envios_compara[$i] = $numero_envios;
            $i += 1;
        }
    }
}
print "********************************************** \n";
print "********************************************** \n";
print "********************************************** \n";
print "**                                          ** \n";
print "**                                          ** \n";
print "**                                          ** \n";
print "**                Enviados = $enviados         ** \n";
print "**                                          ** \n";
print "**                                          ** \n";
print "**                                          ** \n";
print "********************************************** \n";
print "********************************************** \n";
print "********************************************** \n";
 
open( DIRECCION1C, " > $data_direccion1_comparacion" );
for ( $i = 0; $e_mail_compara[$i]; $i++ ) {
    print DIRECCION1C "$e_mail_compara[$i]\:\:$archivo_compara[$i]\:\:$numero_envios_compara[$i]\:\: \n";
}
close(DIRECCION1C);
 
sub valida_igualdad {
    $e_mail = $_[0];
 
    my $i;
    for ( $i = 0; $e_mail_compara[$i]; $i++ ) {
        if ( $e_mail eq $e_mail_compara[$i] ) {
            return (1);
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

send.pl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
$subject   = shift;
$direccion = shift;
$mensaje   = shift;
 
$email = "mail \-s \"$subject\" $direccion \< $mensaje";
print $email, "\n";
system($email);
exit;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Envío solamente 15 porque se bloquea el mail de Google. Posiblemente se puede resolver con que comando desde mail con el parámetro bcc. Y este comando se vuelve a mandar nuevamente, así hasta que se terminen los email's.

Lógicamente antes, se deberá obtener en un archivo secuencial los email, en el formato:
e_mail::archivo::numero_de_envios::

Los email se ignoran siempre y cuando esté el número de envíos mayor a 999999.

Con respecto a la página para cuestionar los parámetros del formulario ya también están resueltos, y lee la información desde html. Y re-envía las páginas con los parámetros desde post, por medio de Perl.

Gracias, experto, la ayuda tuya, y la búsqueda de páginas por medio de Google se logró el cometido.

por **explorer** » 2011-08-24 06:46 @323

También puedes probar a poner un sleep(), entre cada mensaje, y así, aunque tardes más en enviarlos, los envías todos (bueno, en realidad hasta que se entere Google y te cierre el acceso).

por **marcoamoncada** » 2011-08-24 09:09 @422

Tengo varias páginas, una de ella tiene mail, la otra no.

Pero no he tenido tiempo para probar enviar desde ahí.

Ayer solamente hice unas pruebas, me las rebotó. Así que mientras me quedo con Gmail.

La primera vez que envíe correo de prueba se enviaron bastantes, pero al día siguiente solamente podía enviar arriba de 16 pero abajo de, no sé, 20 o 25.

Yo creo que su sabe, cómo bloquear.

Otra forma sería tener un IP pública, eso sale caro.

El del sleep() lo intenté, pero sería modificar el programa a cada rato, en cambio si lo hago por crontab solo es modificar una línea. Gracias.

Hay límite en envío de send por día.

Este mensaje:
daily sending quota exceeded

por **explorer** » 2011-08-24 09:33 @439

Teniendo una IP pública tampoco te garantiza el envío del correo a los destinatarios: hoy en día los filtros antiSPAM tienen en cuenta la IP de origen, y si ven que corresponde a una IP pública reservada para un entorno residencial (un individuo, no una empresa), le darán una nota mayor de "posible SPAM", y muchos correos no llegarán a destino o directamente quedarán eliminados.

Una posibilidad es la de alquilar los servicios de un proveedor de servicios de Internet, a quien le solicitas alojamiento, y usando su servidor de correo, poder enviar todos los correos que quieras.

Eso sí, si los correos que envías son muchos, cada pocos días, escritos mal (con mucho HTML), entonces los filtros de SPAM Y los propios usuarios te los filtrarán y tirarán a la papelera de forma automática. Y a tu proveedor de servicios de Internet no le gustará nada saber que tiene una IP en las listas negras de los programas antiSPAM...

La solución mejor (pero más cara), es la contratación de un servidor físico o virtual, con su propia IP. Así, tienes la libertad total de montar un servidor (algo que ya viene instalado y configurado por defecto) y mandas todos los correos que quieras. Si la IP queda filtrada y no llegan los correos, pues ya es culpa tuya por pasarte de pesado

No te comento otra solución, que sería encargar el trabajo a alguna red de envío de SPAM. En algunos países eso está penado con la cárcel.

Para un uso normal (unos cientos/miles de correos a la semana) no hay problema en hacerlo desde cualquier proveedor.

Foro - Perl en Español

Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Publicidad

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

Re: Enviar correo por Perl y me da problemas

¿Quién está conectado?