On Thu, Aug 21, 2014 at 03:22:27PM +0100, Richard W.M. Jones wrote:
Might be easier to use:
Or even easier and not using awk ...
let cmd = sprintf "sha1sum %s" (quote (dir // file)) in
...
(match out with
| [] -> error (f_"no output from sha1sum command, see previous errors")
| [line] ->
let hash, _ = string_split " " line in
if hash <> sha1 then
(etc)
Rich.
--
Richard Jones, Virtualization Group, Red Hat
http://people.redhat.com/~rjones
Read my programming and virtualization blog:
http://rwmj.wordpress.com
virt-p2v converts physical machines to virtual machines. Boot with a
live CD or over the network (PXE) and turn machines into KVM guests.
http://libguestfs.org/virt-v2v