$ orewatch -n 秒数 コマンドみたいな感じで使う。cygwinにはwatchコマンドが無いので代替として作り途中のものだが、当座の用事はこれで済んだので これで放置する。そのうち暇になったら完成させる。 #!/usr/bin/perl use strict; use Getopt::Std; my %opts = (); my $interval = 1; getopts("n:", \%opts); $interval=$opts{n} if( $opts{n}>0 ) ; print "\e[2J"; for(;;){ print "\e[1J\e[H"; print `date`; print "\n\$ @ARGV\n"; system(@ARGV); sleep $interval; } while :; do echo -ne "\e[1J\e[H"; date;