perl -e 'system("who"),sleep 10 while 1'
[download]

perl -e 'system("who"),sleep 10,system("clear") while 1'
[download]

-sauoq
"My two cents aren't worth a dime.";

Instead of launching the 'clear' command everytime you can also store the clear sequence in a variable then just print it:


perl -e '$clear=`clear`; system("who"),sleep 10,print $clear while 1'
[download]

Uh... Yes... But that makes your one-liner longer and saving the overhead of calling clear really isn't worth it.

-sauoq
"My two cents aren't worth a dime.";

Although watch(1) is great, it's not standard on all (most) platforms. There is a world outside of Linux. :-)

-sauoq
"My two cents aren't worth a dime.";

I was under the impression that it was standard on most *nix systems... Anyway, thanks for letting me know. ; )

-derby

The above suggestions are good. If you are sure the command will be run in a terminal you could do

#!/usr/bin/perl

use strict;

my $cmd   = '/bin/who';  # or wherever it is on your system
my $clear = '/bin/clear';
my $sleep = '10' 

while (1) {
   system("$clear"); # clear the display
   system("$cmd");        # send the command to STDOUT
   sleep($sleep);         # sleep a bit
}
[download]

use perl;