Displaying 1 result from an estimated 1 matches for "0aprint".
Did you mean:
aprint
2020 Jun 17
1
Deduplication and block size
...n/perl -w=0A=0Ause strict;=0A=0Ause Digest::MD5 qw(md5_hex);=0A=0A=
die "$0 disk blocksize\n" unless @ARGV =3D=3D 2;=0A=0Amy $bs =3D $ARGV[1];=
=0A=0Amy %h;=0A=0Amy $blocks =3D 0;=0Amy $zeroes =3D 0;=0Aopen DISK, $ARGV[=
0] or die "open: $!";=0Amy $size =3D (stat ($ARGV[0]))[7];=0Aprint "disk si=
ze =3D $size\n";=0Aprint "\n";=0A=0Afor (my $i =3D 0; $i < $size; $i +=3D $=
bs) {=0A my $buf;=0A read DISK, $buf, $bs;=0A die (length $buf, " =
!=3D ", $bs) unless length $buf =3D=3D $bs;=0A if ($buf eq ("\0" x $bs))=
{=0A $z...