php to perl
| From: | Sebastian | Date: | Wed, 19 Mar 2003 03:16:52 +0000 |
| Subject: | php to perl | ||
| Groups: | php.general | ||
| Request: | Send a blank email to php-general+get-140234@lists.php.net to get a copy of this message | ||
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