Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
How to calculate a webpage load time using perl? 1
- Thread starter rcsen
- Start date
-
1
- #2
Hello rcsen,
do you mean from the browser's perspective or from the server's perspective? Is it a CGI generated page? ????
This is easily done if it is a CGI generated page. Just grab the time, using the time function, at the beginning of the code and again at the end and substract. That will give you the number of seconds the program took to run.
'hope this helps....
#!/usr/local/bin/perl
$started = time;
# program stuff here
$ended = time;
$seconds = $ended - started;
keep the rudder amid ship and beware the odd typo
do you mean from the browser's perspective or from the server's perspective? Is it a CGI generated page? ????
This is easily done if it is a CGI generated page. Just grab the time, using the time function, at the beginning of the code and again at the end and substract. That will give you the number of seconds the program took to run.
'hope this helps....
#!/usr/local/bin/perl
$started = time;
# program stuff here
$ended = time;
$seconds = $ended - started;
keep the rudder amid ship and beware the odd typo
luciddream
Programmer
put probably not the time it took the browser to download/render the page. adam@aauser.com
luciddream
Programmer
that was supposed to be but, not put... adam@aauser.com
- Thread starter
- #5
Hi goBoating,
What I intended to do was, write a perl script such that if I give any url as a parameter, the code should be able to calculate the time to load. I should not add anything to the existing code. Could give me some idea for this?
Thanks
RCSEN
What I intended to do was, write a perl script such that if I give any url as a parameter, the code should be able to calculate the time to load. I should not add anything to the existing code. Could give me some idea for this?
Thanks
RCSEN
luciddream
Programmer
well, you could get the filesize and size of all dependencies with perl from a url... then calculate the average time it would take at different speeds based on the sizes...
or you could actually have your perl program download these things, but, it would give the speed of the server that your site is on.... and, it might be a little slower depending on processor speeds and what not... adam@aauser.com
or you could actually have your perl program download these things, but, it would give the speed of the server that your site is on.... and, it might be a little slower depending on processor speeds and what not... adam@aauser.com
- Thread starter
- #8
I think thendal might be barking up the right tree. You can use LWP to retrieve a page, but, you have to get the graphics separately. I have not run this, but, it might be close to what you are looking for......
#-- START CODE --#
#!/usr/local/bin/perl
use LWP::Simple;
$url = '$started = time;
# this will get the HTML text
$content = get($url);
# parse the IMG SRC tags from the HTML
while ($content =~ /<IMG SRC="(.*?)"/gis)
{
# retrieve each IMG SRC
get($1); # I have not tried this, but, I don't see
# why it would not work
}
$stopped = time;
$elapsed = $stopped - $started;
#--- END CODE --#
'hope this helps....
keep the rudder amid ship and beware the odd typo
#-- START CODE --#
#!/usr/local/bin/perl
use LWP::Simple;
$url = '$started = time;
# this will get the HTML text
$content = get($url);
# parse the IMG SRC tags from the HTML
while ($content =~ /<IMG SRC="(.*?)"/gis)
{
# retrieve each IMG SRC
get($1); # I have not tried this, but, I don't see
# why it would not work
}
$stopped = time;
$elapsed = $stopped - $started;
#--- END CODE --#
'hope this helps....
keep the rudder amid ship and beware the odd typo
stillflame
Programmer
- Jan 12, 2001
- 416
One possibility: If the images' locations are written in relative instead of absolute directory listings, you'll have to strip the prefix directory out of the original url and add that onto it. you'll also have to check first to see whether it's an absolute or relative listing. not too much trouble, though.
"If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."
"If you think you're too small to make a difference, try spending a night in a closed tent with a mosquito."
- Thread starter
- #11
This works just fine on my box....
#---- code ----#
#!/usr/local/bin/perl
use LWP::Simple;
$url = '$started = time;
print "Started: $started\n";
# this will get the HTML text
$content = get($url);
print "Got content\n";
# parse the IMG SRC tags from the HTML
while ($content =~ /<IMG.*?SRC="(.*?)"/gis)
{
# retrieve each IMG SRC
print "Getting $1\n";
get($1); # I have not tried this, but, I don't see
# why it would not work
}
$stopped = time;
print "Stopped: $stopped\n";
$elapsed = $stopped - $started;
print "Elapsed: $elapsed\n";
#---- END CODE ----#
That code produces this output....
#---- OUTPUT ----#
Started: 980879788
Got content
Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Stopped: 980879798
Elapsed: 10
#---- End OUTPUT ----#
That is a funny site, by the way. Take a look at the John West Bear commercial, if you haven't already seen it.
' hope this helps..
keep the rudder amid ship and beware the odd typo
#---- code ----#
#!/usr/local/bin/perl
use LWP::Simple;
$url = '$started = time;
print "Started: $started\n";
# this will get the HTML text
$content = get($url);
print "Got content\n";
# parse the IMG SRC tags from the HTML
while ($content =~ /<IMG.*?SRC="(.*?)"/gis)
{
# retrieve each IMG SRC
print "Getting $1\n";
get($1); # I have not tried this, but, I don't see
# why it would not work
}
$stopped = time;
print "Stopped: $stopped\n";
$elapsed = $stopped - $started;
print "Elapsed: $elapsed\n";
#---- END CODE ----#
That code produces this output....
#---- OUTPUT ----#
Started: 980879788
Got content
Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Getting Stopped: 980879798
Elapsed: 10
#---- End OUTPUT ----#
That is a funny site, by the way. Take a look at the John West Bear commercial, if you haven't already seen it.
' hope this helps..
keep the rudder amid ship and beware the odd typo
- Thread starter
- #13
- Thread starter
- #15
Sorry for disturbing again.
The elapsed time is returned in seconds. Is there any function to find the same in milliseconds? Because, all my pages loads in almost 1 or 2 seconds.
Can I convert the "time" function to calculate upto milliseconds? The time function in JAVA gives the output in milliseconds.
Thanks
Sincerely,
RCSEN
The elapsed time is returned in seconds. Is there any function to find the same in milliseconds? Because, all my pages loads in almost 1 or 2 seconds.
Can I convert the "time" function to calculate upto milliseconds? The time function in JAVA gives the output in milliseconds.
Thanks
Sincerely,
RCSEN
Sorry, the time function returns seconds. I guess you could run a series of loops on each page. Maybe get each one 10 or 20 or 100 times and use the aggregate value. Doing this to your server is reasonable, but, I would [red]not[/red] do this to someone else's server. It would be a real annoyance.
good luck...
keep the rudder amid ship and beware the odd typo
good luck...
keep the rudder amid ship and beware the odd typo
- Thread starter
- #17
luciddream
Programmer
just for clarification... there is never a feb. 30. adam@aauser.com
If you're interested in time in increments less than a second, the Perl Cookbook recipe 3.9 High-Resolution Timers suggests downloading the Time::HiRes module from CPAN - that is, if your system supports both the "syscall" in Perl as well as a system call like gettimeofday(2). I just did "man gettimeofday" and a manpage popped up - I guess I have gettimeofday - I'm on a Redhat 6.1 Linux system.
HTH.
Hardy Merrill
Mission Critical Linux, Inc.
HTH.
Hardy Merrill
Mission Critical Linux, Inc.
- Status
Similar threads