On Sun, 2003-07-27 at 06:08, Jan Wilson wrote:
> * Gavin <[EMAIL PROTECTED]> [030727 06:30]:
> > I'm trying to run this script I got out of "O'reilly's LINUX SERVER HACKS"
> [snip]
> > I copied it line for line, and when I tried to run it I got the message:
> >
> > Bareword "LOAD" not allowed whil
* Gavin <[EMAIL PROTECTED]> [030727 06:30]:
> I'm trying to run this script I got out of "O'reilly's LINUX SERVER HACKS"
[snip]
> I copied it line for line, and when I tried to run it I got the message:
>
> Bareword "LOAD" not allowed while "strict subs" in use at ./tl line 11.
> Execution of ./tl
experts,
I'm trying to run this script I got out of "O'reilly's LINUX SERVER HACKS"
#! /usr/bin/perl -w
use strict;
$|++;
my $host=' /bin/hostname';
chomp $host;
while(1) {open(LOAD,"/proc/loadavg") ||die "couldn't open /proc/loadavg:
$!\n";
my @load=split(/ /,);
CLOSE(LOAD);
print "\033]0;"