G Sensor Processor

#!/usr/bin/perl

use strict;

my $filename = shift || die("Usage: $0 <input file>");

open(IN, "<", $filename) or die ($!);
my @samples = <IN>;
close(IN);
shift @samples;

my $last = 0.0;
my $currentSample = 0;
foreach (@samples){
        chomp;
        /^.*?([\d\.]+)[\s\t]+([\d\.]+)/;
        my $g = $1;
        my $t = ".$2";
        my $ms = (($g - 1) * 9.8);
        my $tdelta = $t - $last;
        print "Current Sample: ".($currentSample++)." ";
        print "";
        print "\n\tG: $g";
        print "\n\tT: $t";
        print "\n\tM/s/s: $ms";
        print "\n\tDelta: $tdelta";
        print "\n\tLast: $last";
        printf("\n\tDistance (meters): %0.4f", 0.5 * $ms * $tdelta);
        print "\n";
        $last = $t;
}

#print 0.5 * ($g - 1) * $t * 10;
#print "\n";