Gossamer Forum
(Advanced Search)
for
Home : General : Perl Programming :

help to conver 3 lines of PHP to Perl

Feb 4, 2006, 10:31 PM
johnpaul
Novice (6 posts)
Feb 4, 2006, 10:31 PM
Post #1 of 7
Views: 6673
Shortcut
Quote Reply
help to conver 3 lines of PHP to Perl
Hello this is my first post in this forum,I hope I can stay here for long and learn things from you guys.

I have added a PHP code to first line of my PHP script , which prevents the scrtip be runned if "Server Load" be more than 5
(server load shows how busy the CPU is) ,

I have a PERL script too, and I want to add that code to the begning of my PL script too, please kindly cover this PHP code to Perl for me .
PHP Code:
Code:
<?php
$LoadAvg = substr(file_get_contents('/proc/loadavg'), 0, 4);
if($LoadAvg > 5)
{
echo "Server busy, try again some minutes later.";
}
else
{
//Run Script.


}
?>





Thanks in advance.
Feb 4, 2006, 11:30 PM
dan
Enthusiast (760 posts)
dan's avatar
Feb 4, 2006, 11:30 PM
Post #2 of 7
Views: 6559
Shortcut
Quote Reply
Re: [johnpaul] help to conver 3 lines of PHP to Perl In reply to
How about the following:

Code:

open(FILE, "</proc/loadavg");
my $LoadAvg = substr(join('', <FILE>), 0, 4);
close(FILE);

----
Cheers,

Dan
Founder and CEO

LionsGate Creative
GoodPassRobot
Magelln

Last edited by:

dan: Feb 4, 2006, 11:31 PM
Feb 5, 2006, 1:30 AM
johnpaul
Novice (6 posts)
Feb 5, 2006, 1:30 AM
Post #3 of 7
Views: 6547
Shortcut
Quote Reply
Re: [dan] help to conver 3 lines of PHP to Perl In reply to
yes thanks it works it wont load the PL script when the loadaverg is more than 5 , but I dont know why it doenst print "the server is busy"
I added this code
Code:

open(FILE, "</proc/loadavg");
my $LoadAvg = substr(join('', <FILE>), 0, 4);
close(FILE);
if ($LoadAvg>1) {
print "server is buy";

}
else {

******SCRIPT Blah Blah***********

}

why it doenst print that "server is busy " ? have written print command wrong ?
Feb 7, 2006, 8:10 PM
dan
Enthusiast (760 posts)
dan's avatar
Feb 7, 2006, 8:10 PM
Post #4 of 7
Views: 6505
Shortcut
Quote Reply
Re: [johnpaul] help to conver 3 lines of PHP to Perl In reply to
Try this (not Perl equivalent to supplied PHP code, but better):

open(FILE, "</proc/loadavg");
my ($a1, $a5, $a15, undef, undef) = split(/ /, <FILE>);
close(FILE);

$a1 = 1 minute load average
$a5 = 5 minute load average (the one you are interested in)
$a15 = 15 minute load average

load average varies between 0.00 and 1.00

----
Cheers,

Dan
Founder and CEO

LionsGate Creative
GoodPassRobot
Magelln
Feb 15, 2006, 8:00 AM
johnpaul
Novice (6 posts)
Feb 15, 2006, 8:00 AM
Post #5 of 7
Views: 6482
Shortcut
Quote Reply
Re: [dan] help to conver 3 lines of PHP to Perl In reply to
hey I have added this code to a part of script ,

Code:
open(FILE, "</proc/loadavg");
my $LoadAvg = substr(join('', <FILE>), 0, 4);
close(FILE);
if ($LoadAvg>3) {
print "Server busy, try again some minutes later.";
exit;



it works well , when the server load is more than 3, it wont run the script **but** the problem is it WONT PRINT Line :
print "Server busy, try again some minutes later.";

it just shows a blank page , while I expect it print Server Busy...

here is the link to the Full source of my Script which is a CGI Proxy script .
http://www.about-ataturk.info/cgi-bin/nph-script.txt

if you want to find the code that I added to the CGI Proxy , search for this comment line :
# this is added by John Paul


I will be thankfull if you help me , I have had a lot of headache to make this CGI to run Print command
Feb 15, 2006, 11:57 AM
johnpaul
Novice (6 posts)
Feb 15, 2006, 11:57 AM
Post #6 of 7
Views: 6497
Shortcut
Quote Reply
Re: [johnpaul] help to conver 3 lines of PHP to Perl In reply to
I correctcted the link , you can access to the source here
http://www.about-ataturk.info/nph-script.txt
Feb 16, 2006, 9:19 PM
bhaskar
New User (1 post)
Feb 16, 2006, 9:19 PM
Post #7 of 7
Views: 6439
Shortcut
Quote Reply
Re: [johnpaul] help to conver 3 lines of PHP to Perl In reply to
In Reply To:
I correctcted the link , you can access to the source here
http://www.about-ataturk.info/nph-script.txt

Hello,
I have a question for you regarding PERL programing. This is for the 6 months project in Bioinformatics. My project topic is to download the protein complexes from the PDB website. Could you please guide me.
Thanking you,
-Bhaskar