Discussion :

[oniric]

bonjour tout le monde,

j'ai besoin dans un programme d'ecrire dans un fichier, je me suis donc documente sur le sujet et j'ai trouve 2 moyens de le faire :

avec la librairie Unix genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let mode = [Unix.O_WRONLY;Unix.O_CREAT;Unix.O_TRUNC] in
 let fic = Unix.openfile "fichier" mode 0o644 in
 let str = "012345678901234565789" in
 let n = Unix.write fic str 4 5 
 in Printf.printf "On a écrit %s dans le fichier\n" (String.sub str 4 n) ;
    Unix.close fic ;;

malheureusement il me dit :
Error while linking caml/fichier.cmo: Reference to undefined global `Unix'

j'ai donc essaye avec les fonctions in_channel/out_channel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
let oc = open_out "tmp.log";;
let s = "salut ca fart ?";;
ouput oc s 0 15;;
close_out ic;;

et la il me dit :
File "caml/fichier.ml", line 3, characters 0-5:
Unbound value ouput
...

je comprend pas.. pourtant il connait bien open_out ...


quelqu'un pourrai m'eclairer please ?

merci d'avance

[slider22]

bonsoir,
pouvez vous nous dire si vous travaillez sous windows ou linux? quel est la version d'OCAML que vous utilisez?et dans quel repertoire vous enregistrez les fichiers que vous voulez ouvrir en ecriture.???!

[Garulfo]

[...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
let oc = open_out "tmp.log";;
let s = "salut ca fart ?";;
ouput oc s 0 15;;
close_out ic;;

et la il me dit :
File "caml/fichier.ml", line 3, characters 0-5:
Unbound value ouput
...

je comprend pas.. pourtant il connait bien open_out ...

En tout cas il connait certainement pas ouput

[Garulfo]

[...]
avec la librairie Unix genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
let mode = [Unix.O_WRONLY;Unix.O_CREAT;Unix.O_TRUNC] in
 let fic = Unix.openfile "fichier" mode 0o644 in
 let str = "012345678901234565789" in
 let n = Unix.write fic str 4 5 
 in Printf.printf "On a écrit %s dans le fichier\n" (String.sub str 4 n) ;
    Unix.close fic ;;

malheureusement il me dit :
Error while linking caml/fichier.cmo: Reference to undefined global `Unix'
[...]

Ton erreur est clairement indiquée; comme la précédente d'ailleurs.
Il faut que tu apprennes à les lire et les comprendre.
Pendant l'édition des liens il ne trouve pas Unix.

Essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

> ocamlc Unix.cma fichier.ml

Ça marchera je pense.

[InOCamlWeTrust]

Ouhhlalalalala...

STOP

N'utilise JAMAIS la librairie Unix si tu ne fais pas de programmation système. Ecrire et lire dans un fichier normal, courant, ça se fait avec les fonctions output/input de Pervasives.

Si tu veux écrire une chaîne de caractères, le mieux c'est ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
let out_channel = open_out "fichier.txt" in
 
output_string out_channel "Ca fart ?";
 
close_out out_channel

Pour compiler l'exemple utilisant la librairie Unix, la commande est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
> ocamlc -o fichier unix.cma fichier.ml

[Garulfo]

[...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
> ocamlc -o fichier unix.cma fichier.ml

humm oui.. pas la majuscule à unix. Je la fais régulièrement cette erreur. Mais pourquoi ont-ils fait des fichiers avec une minuscule et les modules avec une majuscule ??