Appelez un programme écrit en python dans un programme écrit en Ocaml

Question

Je voulais vous demander si vous pouviez appeler dans un programme écrit en Ocaml un programme écrit en python, et si la réponse est oui, comment faire?

Answer 1

Que comptez-vous exactement faire? Voulez-vous l'exécuter et l'oublier? Ensuite, faites une fourchette/exec. Voulez-vous l'exécuter et attendre jusqu'à ce qu'il soit fini mais sinon ne rien faire? Ensuite, utilisez Sys.command. Voulez-vous lire/écrire? Puis utilise Unix.open_process* (ou Unix.create_process*).

Par exemple, si je veux courir ls et imprimer les résultats, je peux le faire:

let ls = Unix.open_process_in "ls" 
try 
    while true do 
    Printf.printf "%s\n" (input_line ls) 
    done 
with End_of_file ->() 
Unix.close_process_in ls 

Answer 2

On dirait que vous pouvez utiliser le Shell library.

Answer 3

Cela dépend de vos besoins exacts, mais vous pouvez utiliser pythons os.system() pour exécuter un programme de la même manière que vous l'appelez à partir de la ligne de commande. Cela devrait être un bon point de départ.

Answer 4

Ne pas avoir une réelle expérience de la vie avec cela, mais cela semble intéressant (du Integrating Python with other languages wiki):

Pycaml: écrire des modules d'extension Python en OCaml (au lieu de C), et utiliser le code Python et natif bibliothèques des programmes OCaml.

Answer 5

Vous pouvez exécuter des commandes à l'aide Sys.command, de sorte que vous pouvez juste faire Sys.command "python foo.py", en supposant python est dans votre chemin et foo.py est dans le répertoire courant.

Answer 6

Si votre programme est un exécutable (sinon vous le compiler;)), vous pouvez utiliser le module Unix comme vous l'utilisez dans C, par exemple:

let program = "path_to_python_program_exe" in 

match Unix.fork() with 
    | 0 -> (try 
      Unix.execvp program [|program; "any_more_args_here"|] 
     with 
      _ -> printf "%s" "error while execv\n"; exit (-1)) 
    | -1 -> printf "%s" "error accured on fork\n" 
    | _ -> ignore (wait()); printf "%s" "parent exit...\n" 

Lorsque vous compilez, vous utilisez les unix .cma pour le compilateur: ocamlc unix.cma you_ml.ml