为什么在lua中读取文本文件只返回最后一块内容？

我试图读取一个大文件并返回一个带有单词计数的表格。

我在lua.org上找到了一个高效读取大文件的示例，并得出了我的小脚本的最终版本。

function cnt_word(stream)
  local BUFSIZE = 2^13 -- 8KB
  local sin = io.input(stream) -- open input file
  local wc = {}
  local text = ""
  while true do
    local data, line = sin:read(BUFSIZE, '*l')
    if not data then break end
    if line then data = data .. line .. '\n' end
    text = data
  end
  -- creating a table with word counts
  for m in text:gmatch("%w+") do
    if not wc[m] then wc[m] = 0 end
    wc[m] = wc[m] + 1
  end
  return wc
end

input, word = arg[1], arg[2]
if not input then print("错误！提供有效的文件名") os.exit() end
if not word then print("错误！提供有效的查询词") os.exit() end
cnts = cnt_word(input)
cnt = cnts[word]
if not cnt then
  print(string.format("'%s'没在 '%s' 中找到", word, input))
  os.exit()
  end
print(string.format("'%s' cnt: %s", word, cnt))

这个脚本的问题是它只返回文件的最后 70 行，我无法弄清原因。 行连接if line then data = data .. line .. '\n' end执行3k次，应该足以在data变量中收集整个数据。 但是，当我在循环内部检查data的长度时，它不会增长，而会在8k左右波动，而且当我检查text的长度时，由于某种原因约为3k。 我不明白Lua在做什么以及为什么做这件事。 有人能帮我搞清楚吗？