mytemp.pl

来自「myTemp is used to connect PalmOS PDAs to」· PL 代码 · 共 24 行

#!/usr/bin/perl
use Palm::Raw;

my $pdb = new Palm::PDB;

$pdb->Load($ARGV[0]);


foreach $record (@{$pdb->{records}}) {
		($nextRecord, $numEntries) = unpack "S S",  $record->{"data"};
		print $nextRecord, ":", $numEntries, "\n";
		$data = substr($record->{"data"}, 5);
		for ($i = 0; $i < $numEntries; $i++)
		{
			($sensor, $time, $temp) = unpack "C L s", $data;
			$data = substr($data, 8);
			$time -= 2082848400;
			($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime($time);
			print $sensor, "\t";
			print $Day, ".", $Month + 1, ".", $Year - 100, "-", $Hour, ":", $Minute, ":", $Second, "   \t", ;
			print $temp, "\n";
		}
}