chicken-scheme - 如何读取通过标准输入传入的所有行？

Question

我正在尝试读取通过标准输入传递给鸡计划脚本的所有行，并将它们放入列表中，但我似乎无法正确确定何时命中输入的结尾。另一个测试脚本似乎表明测试(eof-object? results-of-last-read-line-call) 是一个合法的测试，但在下面的示例中它只是坐在那里无限阅读。

我整理了以下测试脚本。我用cat some_file.txt | this_script.scm调用它

#! /usr/local/bin/csi -script

(define (read-from-stdin collection line)
  (if (eof-object? line) ; bad test? 
    collection
     (read-from-stdin (cons collection line) read-line)
  ) ; yes, i know atypical formatting. Done so you can see they're all there
)

(for-each print (read-from-stdin '() (read-line)))

Answer 1

问题是您在递归调用中传递了 procedure read-line。这会导致测试总是失败（因为过程永远不是eof-object）。相反，您可能想要调用 read-line 并传递行字符串：

(define (read-from-stdin collection line)
  (if (eof-object? line) ; the test is fine
      collection
      (read-from-stdin (cons collection line) (read-line))))

(for-each print (read-from-stdin  '() (read-line)))

您还调用了cons，但参数颠倒了，所以我也修复了这个问题。也许这是在反向添加线条的尝试？相反，您可能想在最后反转线条，所以您会得到

(for-each print (reverse (read-from-stdin  '() (read-line))))

当然，您也可以在read-from-stdin 中致电(reverse collection)。

Answer 2

我喜欢为此使用read-lines。 这是您使用它编写的程序：

#!/usr/local/bin/csi -script
(for-each print (read-lines))

经过测试和工作。 对于 csc，将 #!-line 替换为 (use extras)。