Sammeln der Ausgabe eines externen Befehls mit OCaml

Question

Wie ist der richtige Weg, einen externen Befehl aufzurufen und seine Ausgabe in OCaml zu sammeln?

In Python kann ich so etwas tun:

os.popen('cmd').read() 

Wie ich alle ein externes Programm die Ausgabe in OCaml bekommen kann? Oder, besser, OCaml mit Lwt?

Danke.

Answer 1

Sie möchten Unix.open_process_in, das auf Seite 388 des OCaml-Systemhandbuchs, Version 3.10, beschrieben wird.

Answer 2

Für Lwt,

val pread: env: String-Array -> Befehl -> string Lwt.t

scheint ein guter Anwärter zu sein. Dokumentation hier: http://ocsigen.org/docu/1.3.0/Lwt_process.html

Answer 3

let process_output_to_list2 = fun command -> 
    let chan = Unix.open_process_in command in 
    let res = ref ([] : string list) in 
    let rec process_otl_aux() = 
    let e = input_line chan in 
    res := e::!res; 
    process_otl_aux() in 
    try process_otl_aux() 
    with End_of_file -> 
    let stat = Unix.close_process_in chan in (List.rev !res,stat) 
let cmd_to_list command = 
    let (l,_) = process_output_to_list2 command in l 

Answer 4

Es gibt viele Beispiele auf PLEAC.

Answer 5

Sie können die Third-Party-Bibliothek Rashell verwenden, die Lwt verwendet, um einige High-Level-Primitive zu definieren, um Ausgaben von Prozessen zu lesen. Diese Primitiven, definiert in dem Modul Rashell_Command sind:

• exec_utility die Ausgabe eines Prozesses als Zeichenkette zu lesen;
• exec_test nur den Exit-Status eines Prozesses zu lesen;
• exec_query die Ausgabe einer Prozesslinie für Zeile als string Lwt_stream.t
• exec_filter zum Lesen ein externes Programm als string Lwt_stream.t -> string Lwt_stream.t Transformation zu verwenden. beispielsweise so,

  val command : ?workdir:string -> ?env:string array -> string * (string array) -> t 
  (** [command (program, argv)] prepare a command description with the 
      given [program] and argument vector [argv]. *) 
  

  Rashell_Command.(exec_utility ~chomp:true (command("", [| "uname" |]))) 
  

  ist ein string Lwt.t, die:

Die command Funktion Befehlskontexte verwendet wird, auf dem die vorherige Primitive angewandt werden, zu erstellen, ist es die Signatur gibt den "chomped" String (neue Zeile entfernt) des Befehls "uname" zurück. Als zweites Beispiel

Rashell_Command.(exec_query (command("", [| "find"; "/home/user"; "-type"; "f"; "-name"; "*.orig" |]))) 

ist ein string Lwt_stream.t dessen Elemente die Pfade der Datei durch den Befehl gefunden

find /home/user -type f -name '*.orig' 

Die Rashell Bibliothek auch auf einige häufig verwendete Befehle Schnittstellen definiert, und eine schöne Schnittstelle zu Der Befehl find ist in Rashell_Posix definiert - was übrigens die Portabilität von POSIX garantiert.