file - ocaml input_char

Question

我正在尝试从通过 ocaml 中的 stdinput 传入的文件中读取字符。我想知道为什么当我可以 print_char 我在以下代码中收到的字符时，我一直得到一个单位。另外，我正在尝试列出这些目前无法使用的字符。

let () =
let charList = [] in 
let inchar = open_in Sys.argv.(1) in
    try 
            while true do
                let c = Char.uppercase(input_char inchar) in
                    print_char c; print_int (List.length charList);c::charList
            done
    with End_of_file -> close_in inchar;(*; print_int (List.length charList); printTest charList;*)

;;

Answer 1

您的代码不会修改charList，因此charList在整个执行过程中仍然是一个空列表。

此外，如果您定义 let charList = []thencharList是不可变的。

您可以尝试以下方法：

let () =
    let charList = ref [] in
    let inchar = open_in Sys.argv.(1) in
  try
    while true do
      let c = Char.uppercase (input_char inchar) in
            charList := c :: !charList
    done
  with End_of_file ->
        charList := List.rev !charList;
        close_in inchar;
        print_int (List.length !charList);
        List.iter print_char !charList

还有一些评论：

• 通过 char 读取输入 char 效率非常低，例如使用input_line.
• 你的帖子提到Sys.argv.(1)和标准输入，但这是两个不同的东西
• 如果要读取整个文件并将其存储在内存中，请搜索“ocaml 输入文件”，网上有很多示例，例如https://groups.google.com/forum/?fromgroups#!msg/fa .caml/EEinP7-yAko/dPSaR0eOkw4J或http://camltastic.blogspot.fr/2008/09/tip-read-all-lines-from-file-most.html

Answer 2

你应该尝试一些更实用的东西：

let rec read inchar char_list =
  try
    read inchar ((Char.uppercase (input_char inchar))::char_list)
  with End_of_file -> char_list

let () =
  let inchar = open_in Sys.argv.(1) in
  let char_list = read inchar [] in
  close_in inchar