[править] 16. Process Management and Communication [править] Gathering Output from a Program (* Process support is mostly in the "unix" library. *) #load "unix.cma";; (* Run a command and return its results as a string. *) let read_process command = let buffer_size = 2048 in let buffer = Buffer.create buffer_size in let string = String.create buffer_size in let in_channel = Unix.open_process_in co