A bit of Perl code to read a checkpoint file and tell how many iterations it's at

[GP2]

Prime95 saves checkpoint files (usually named p.... and q.... for LL testing).

The following Perl code prints out how many iterations the checkpointed file is at:

-------------------------------

#!/usr/bin/perl

$file = shift || die;

open (FILE,"<$file") || die;

read(FILE,$temp,6);

($type, $counter) = unpack("sL",$temp);

print "$type $counter\n";

close (FILE);

-------------------------------

Call it read_checkpoint.pl and give the name of the checkpoint file as the only argument:

read_checkpoint.pl pA655011

I'm not the author; I don't know who is. I grabbed this code from the Mersenne mailing list quite some time ago.