[Perl] Mod_perl

[Alejandro G. Bedoya]

Saludos!!!

    Bueno, mi sitio no es XXX, es normalon, ahorita tengo mas de 750
imagenes y nomas me genera como 317mb de transferencia diaria. Mi ISP me
corrio porque le quitaba mucho bandwidth así que movi las imagenes a otro
servidor dejando el proceso con ellos. Así que el problema no es la
transferencia ya, sino la carga al CPU.

    Como obtienes el 'uptime'???


---
Sinceramente...
Alejandro G. Bedoya
InterAccion.COM          Ponemos su Internet en Acción



----- Original Message -----
From: "Salman ®" <correo@salman.es>
To: <perl@tlali.iztacala.unam.mx>
Sent: Tuesday, December 03, 2002 6:34 PM
Subject: Re: [Perl] Mod_perl


Yo tengo una pagina XXX en la que en determinados momentos tambien tuve
problemas de sobrecarga.

Llegue a tener 25.000 fotos y el ultimo mes antes de desactivarla, tuve 600
GB de transferencia, casi me arruina :-(  http://titis.net/  seguramente en
sudamerica no la podais ver pues controlo mediante el ".htaccess" que el
visitante tenga resolucion inversa y sea de España, lo siento pero fue la
forma de cortar radicalmente el excesivo trafico que me estaba generando :-)

El caso es que uno de los controles que puse en el script para evitar
sobrecargas fue el siguiente:

==================================================
$cargat = `uptime`;
($nada,$carga) = split(/average\:/,$cargat);
($carga,$nada)= split(/\,/,$carga);
$carga =~ s/ //g;
if ($carga >= 1.0) {
    Aqui ahora metes lo que quieras para cortar el script
}
==================================================

Si te vale de ayuda ... es una idea.

Ademas seguro que se puede optimizar mucho mas de lo que yo originalmente
escribi.

Saludos
Salvador Guzmán
Salman PSL
Vigo, Galicia, España
+34 986-21.30.27
Móvil  679-Salman
Correo@Salman.ES
http://salman.net/
http://apedra.com/

----- Mensaje original -----
De: "Alejandro G. Bedoya" <nezumi@prodigy.net.mx>
Para: <perl@tlali.iztacala.unam.mx>
Enviado: miércoles, 04 de diciembre de 2002 1:08
Asunto: Re: [Perl] Mod_perl


> > ¿Que se supone ke hace tu script?
>
>     Es un Sistema Automático para Lucir Mujeres Artistas(SALMA), y
funciona
> en www.chicas.com.mx y como entenderás tiene un monton de
hits/ejecuciones.
>
>
> > ¿Usaste "use strict" para tu programita en perl?
>
>     Sip, en todos mis programas lo uso...
>
>
> > si no lo tiene, pónselo.
>
>     Pues así nomas de ponselo esa seria la parte facil, la bronca sería
> modificar todo el programa para poner los "my" en las variables. Lo bueno
es
> que siempre lo uso.
>
>
> > La realidad es que tienes que cambiar tu estilo de programación si
> > piensas programar en mod_perl, tienes que ser mas cuidadoso sobre todo
> > en el alcance de las variables.
>
>     Ciertamente es lo que lei, que las variables se vuelven demasiado
> globales con el modperl. Yo me imagino que posiblemente usan el PERLRun,
en
> vez del Registry del modperl estos cuates del ISP.
>
> ---
> Sinceramente...
> Alejandro G. Bedoya
> InterAccion.COM          Ponemos su Internet en Acción
>
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>


_______________________________________________
Perl mailing list
Perl@tlali.iztacala.unam.mx
http://tlali.iztacala.unam.mx/mailman/listinfo/perl