54 lines
828 B
Perl
54 lines
828 B
Perl
#!/usr/bin/perl -w
|
|
# Josh Holtrop
|
|
# 2006-04-27
|
|
|
|
use strict;
|
|
|
|
sub usage
|
|
{
|
|
print "Usage: $0 [-i interval] [-c] cmd [args]\n";
|
|
print "\tinterval: number of seconds to wait between each execution of <cmd> (default 1)\n";
|
|
print "\t-c clear the screen between invocation of each command\n";
|
|
exit(42);
|
|
}
|
|
|
|
my $interval = 1;
|
|
my $clear = 0;
|
|
my @command = ();
|
|
for (my $i = 0; $i <= $#ARGV; $i++)
|
|
{
|
|
usage() if ($ARGV[$i] eq '--help');
|
|
if ($ARGV[$i] =~ /^-i(.*)$/)
|
|
{
|
|
if (length($1) > 0)
|
|
{
|
|
$interval = $1;
|
|
}
|
|
else
|
|
{
|
|
usage() if ($i == $#ARGV);
|
|
$interval = $ARGV[++$i];
|
|
}
|
|
}
|
|
elsif ($ARGV[$i] eq '-c')
|
|
{
|
|
$clear = 1;
|
|
}
|
|
else
|
|
{
|
|
# Got to the command
|
|
@command = splice(@ARGV, $i);
|
|
last;
|
|
}
|
|
}
|
|
|
|
usage() if ($#command < 0);
|
|
|
|
for (;;)
|
|
{
|
|
system('clear') if ($clear);
|
|
system(@command);
|
|
sleep $interval;
|
|
}
|
|
|