Displaying 1 result from an estimated 1 matches for "md5_h".
Did you mean:
md5_
2020 Jun 17
1
Deduplication and block size
...etwork (PXE) and turn machines into KVM guests.
http://libguestfs.org/virt-v2v
--LQksG6bCIzRHxTLp
Content-Type: application/x-perl
Content-Disposition: attachment; filename="dedup.pl"
Content-Transfer-Encoding: quoted-printable
#!/usr/bin/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 &qu...