マシンがヒマになったら音を鳴らすスクリプト

beepByLoadavg.pl

#!/usr/bin/perl --
use strict;
use warnings;

my $host = shift or die "usege: $0 ssh_config_name\n";
while(1){
	my $strUptime = `ssh $host -C uptime`;
	if(not $strUptime =~ /load average: ([\d\.]+), ([\d\.]+), ([\d\.]+)/ ){
		warn "can't get uptime.\n";
	}else{
		my($la1,$la5,$la15)=map{0+$_} ($1,$2,$3);
		print "loadavg of $host : $la1, $la5, $la15\n";
		$la1 <= 0.5 and system "/usr/bin/ffplay -nodisp -autoexit -loglevel 0 shinchoku.mp3";
	}
	sleep 60;
}