чтение целых чисел из строки

Question

Я хочу прочитать строку из файла, инициализировать массив из этой строки, а затем отобразить целые числа. Почему не читаются пять целых чисел в строке? Я хочу, чтобы получить выход 1 2 3 4 5, у меня есть 1 1 1 1 1

open Array;; 
open Scanf;; 

let print_ints file_name = 
    let file = open_in file_name in 
    let s = input_line(file) in 
    let n = ref 5 in 
    let arr = Array.init !n (fun i -> if i < !n then sscanf s "%d" (fun a -> a) else 0) in 
    let i = ref 0 in 
    while !i < !n do 
    print_int (Array.get arr !i); 
    print_string " "; 
    i := !i + 1; 
    done;; 

print_ints "string_ints.txt";; 

Мой файл только: 1 2 3 4 5

Answer 1

Вы можете попробовать следующий подход. Разделите строку в список подстрок, представляющих числа. This answer описывает один из способов сделать это. Затем используйте полученную функцию в функции print_ints.

let ints_of_string s = 
    List.map int_of_string (Str.split (Str.regexp " +") s) 

let print_ints file_name = 
    let file = open_in file_name in 
    let s = input_line file in 
    let ints = ints_of_string s in 
    List.iter (fun i -> print_int i; print_char ' ') ints; 
    close_in file 

let _ = print_ints "string_ints.txt" 

При компиляции, пройти str.cma или str.cmxa в качестве аргумента (см this answer подробную информацию о компиляции):

$ ocamlc str.cma print_ints.ml 

Другой альтернативой было бы использовать в Scanf.bscanf функцию - this question, содержит пример (использование с осторожностью).

Функция Scanf.sscanf не может быть особенно подходящей для этой задачи. Отрывок из OCaml manual:

зсапЕ объект не предназначен для тяжелых лексического и синтаксического анализа. Если окажется не достаточно выразительной для ваших потребностей, несколько альтернативы существует: регулярные выражения (модуль Str), поток парсеры, ocamllex генерируемых лексеров, ocamlyacc сгенерированных парсеров

Там есть хоть способ разбор строки Интса используя Scanf.sscanf (который я бы не рекомендовал):

let rec int_list_of_string s = 
    try 
    Scanf.sscanf s 
       "%d %[0-9-+ ]" 
       (fun n rest_str -> n :: int_list_of_string rest_str) 
    with 
    | End_of_file | Scanf.Scan_failure _ -> [] 

хитрость здесь, чтобы представить строку ввода s как часть, которая собирается быть проанализирован в целое (%d), а остальные строки используя формат диапазона: %[0-9-+ ]", который будет соответствовать остальной части строки, содержащей только десятичное копание его 0-9, знаки - и + и пробелы .