[linux] Perl script - cron problem

[Marian Cavojsky]

On Wed, Jun 23, 2004 at 06:41:23PM +0200, Martin Kyrc wrote:
> Hello!
> 
> V perle mam napisany skript, v ktorom (okrem ineho) zistujem zatazenie
> CPU. Robim to takto (ak viete o vhodnejsom sposobe sem s nim):
> 
> $cpusystem = `top -b -n1 | grep Cpu | tail -1 | awk '{print 1*\$4}'`;
 
Dva sposoby:

1)
 $cpusystem = `TERM=linux top -b -n1 | grep Cpu | tail -1 | awk '{print 1*\$4}'`;

2)
 $ENV{'TERM'}='linux';
 $cpusystem = `top -b -n1 | grep Cpu | tail -1 | awk '{print 1*\$4}'`;


-- 
Marian Cavojsky <cavojsky @ soria-grey.sk>
Spravca siete, Soria & Grey s.r.o, reklamna agentura