<?
$fp = fopen ('/proc/loadavg', 'r');
if (!$fp) die ('Failed to open file');
while ($line = fgets ($fp)) {
$loadavg = substr ($line, 0, 4);
}
fclose ($fp);
?>
Regards,
Daniel
On Wed, 19 Mar 2003 13:16, Sebastian wrote:
> unfortunately i am a rookie with perl, can someone help me convert this
> little bit of code to php?
>
> thanks in advanced.
>
> #!/usr/bin/perl
> print "Content-type: text/html\n\n";
> open(LOADAVG, '/proc/loadavg') or die $1;
> while(<LOADAVG> ) {
> $loadavg = substr( $_, 0, 4 );
> }
> close(LOADAVG);
>
> cheers,
> - Sebastian
--
PHP General Mailing List (http://www.php.net/)
To unsubscribe, visit: http://www.php.net/unsub.php
