[Perl] Mod_perl

[Salman ®]

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=F1a, =
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:

=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=

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


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=E1n
Salman PSL
Vigo, Galicia, Espa=F1a
+34 986-21.30.27
M=F3vil  679-Salman
Correo@Salman.ES
http://salman.net/
http://apedra.com/

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


> > =BFQue se supone ke hace tu script?
>=20
>     Es un Sistema Autom=E1tico para Lucir Mujeres Artistas(SALMA), y =
funciona
> en www.chicas.com.mx y como entender=E1s tiene un monton de =
hits/ejecuciones.
>=20
>=20
> > =BFUsaste "use strict" para tu programita en perl?
>=20
>     Sip, en todos mis programas lo uso...
>=20
>=20
> > si no lo tiene, p=F3nselo.
>=20
>     Pues as=ED nomas de ponselo esa seria la parte facil, la bronca =
ser=EDa
> modificar todo el programa para poner los "my" en las variables. Lo =
bueno es
> que siempre lo uso.
>=20
>=20
> > La realidad es que tienes que cambiar tu estilo de programaci=F3n si
> > piensas programar en mod_perl, tienes que ser mas cuidadoso sobre =
todo
> > en el alcance de las variables.
>=20
>     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.
>=20
> ---
> Sinceramente...
> Alejandro G. Bedoya
> InterAccion.COM          Ponemos su Internet en Acci=F3n
>=20
> _______________________________________________
> Perl mailing list
> Perl@tlali.iztacala.unam.mx
> http://tlali.iztacala.unam.mx/mailman/listinfo/perl
>=20