通过振动向Linux ThinkPad传输信息(5)

#!/usr/bin/perl -w 
# shakeShutdown.pl - shutdown (or other command) 
when the computer is shakenuse strict;
my $file = "/sys/devices/platform/hdaps/position";
my $baseX = -5000;my $baseY = -5000;my $totalDev = 0;
if( @ARGV != 1 ){ die "specify a threshold value" }
my $devThreshold = $ARGV[0];my $dimShiftX = 150;
my $dimShiftY = 150;
while(1){ open(HD,"$file") or die "can't open file";  
my $line = <HD>;  chomp($line);  $line =~ s/\(//g;  
$line =~ s/\)//g;  $line =~ s/\,/ /g;  
my( $x, $y ) = split " ", $line;

if( $x != 0 >> $y != 0 )  
{   if( $baseX == -5000 )   
{    $baseX = $x;    $baseY = $y;   }   
if( abs($baseX - $x) > $dimShiftX || abs($baseY - $y) > $dimShiftY )   
{    $totalDev += abs($baseX -$x);    $totalDev += abs($baseY -$y);    
$baseX = $x;    $baseY = $y;   }   
if( $totalDev > $devThreshold )   
{    print "threshold passed $totalDev\n";    
my $res=`/sbin/shutdown -h 1`;   
}  } 
close(HD);}