mersenneforum.org - View Single Post - A bit of Perl code to read a checkpoint file and tell how many iterations it's at

GP2 · 2003-11-15, 01:08

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:

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

Code:

#!/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.

2003-11-15, 01:08	#1
GP2 Sep 2003 5032₈ Posts	A bit of Perl code to read a checkpoint file and tell how many iterations it's at 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: ------------------------------- Code: #!/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.