perl-asp mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From Joshua Chamas <jos...@chamas.com>
Subject Re: performance problems...
Date Wed, 13 Jun 2001 22:32:04 GMT
> Christian Heiss wrote:
> 
> >sub Script_OnFlush {
> >    if($Response->{ContentType} eq 'text/html') {
> >        my $data = $Response->{BinaryRef};
> >        $$data =~ s/(.*?)(\<title.*?\/title\>)(.*?)(\<title.*?\/title\>)/$1$4$3/isg;
> >        $$data =~ s/(.*?)(\<META name="description".*?\>)(.*?)(\<META name="description".*?\>)/$1$4$3/is;
> >        $$data =~ s/(.*?)(\<META name="author".*?\>)(.*?)(\<META name="author".*?\>)/$1$4$3/is;
> >        $$data =~ s/(.*?)(\<META name="keywords".*?\>)(.*?)(\<META name="keywords".*?\>)/$1$4$3/is;
> >        $$data =~ s/(.*?)(\<META name="date".*?\>)(.*?)(\<META name="date".*?\>)/$1$4$3/is;
> >        $$data =~ s/(.*?)(\<link rel="stylesheet".*?\>)(.*?)(\<link rel="stylesheet.*?\>)/$1$4$3/is;
> >        $$data =~ s/\<!-- end_header.*?\<body.*?\>//is;
> >        $$data =~ s/\<\/body.*?\/html\>//is;
> >        $$data =~ s/\<!-- end_footer.*//is;
> >        $$data =~ s/\<font.*?\>//isg;
> >        $$data =~ s/\<\/font.*?\>//isg;
> >}

Scary.  Generally, be wary of .* and .*? type expressions.
I'd recommed the good book "Mastering Regular Expressions".

> All works fine, but my problem is, that with this configuration the server is very slowly.
> In the background I'm using a MySQL-Database to get some data. And when I connect to
it,
> it needs up to 8 seconds to get my request on the browser (in the LAN)...
> If I change my search and replace statements to less, it is really fast!!!
> 

If you are trying to compress your HTML, I would recommend using the
CompressGzip or Clean settings which do this for you.  CompressGzip
will probably work the best if this is your goal.  If you just want
to tidy up your HTML, I might use a Clean setting at a high level ( 9? )

-- Josh
_________________________________________________________________
Joshua Chamas                           Chamas Enterprises Inc.
NodeWorks <- Web Link Checking          Huntington Beach, CA  USA 
http://www.nodeworks.com                1-714-625-4051

---------------------------------------------------------------------
To unsubscribe, e-mail: asp-unsubscribe@perl.apache.org
For additional commands, e-mail: asp-help@perl.apache.org


Mime
View raw message