#!/afs/athena/contrib/perl/perl
# usage:  snoop -x50,8 -i <file> | ./table.pl > matlab_data

while (<>) {
    substr($_, 50) = '';
    ($z, $a, @nums) = split(/\s+/, " $_");
    if ($a eq "0:") {
	for $i (@nums) {
	    if ($prev) {
		@a = unpack("f", pack("N", hex("$prev$i")));
		print " @a";
		undef $prev;
	    } else {
		$prev = $i;
	    }
	}
	print "\n";
    }
}
