揮発性のメモ2

http://d.hatena.ne.jp/iww/

Cygwinでwatchコマンドみたいなもの

$ 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; コマンド; sleep 1; done

の方が楽だけど