On Wed, Mar 18, 2015 at 05:20:06PM +0100, Maros Zatko wrote: > This is useful for probing probing for cache files such as: > external_command ?ignore_error:(Some true) ~prog "ls .cache/something.*" > will return command output (matched files) on its success or empty list > whenits exit code is other than 0 (there are no such files).
I would write this as: let files = Sys.readdir ".cache" inm let files = Array.to_list files in let files = List.filter (fun s -> string_prefix s "something.") in (* or if you just want to check existence of any something.* file: let file_exists = List.exists (fun s -> string_prefix s "something.") in *) Rich. -- Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones Read my programming and virtualization blog: http://rwmj.wordpress.com Fedora Windows cross-compiler. Compile Windows programs, test, and build Windows installers. Over 100 libraries supported. http://fedoraproject.org/wiki/MinGW _______________________________________________ Libguestfs mailing list [email protected] https://www.redhat.com/mailman/listinfo/libguestfs
