Guileまたは他のSchemeでは、入力ファイルまたは標準入力から行のn番目の空白で区切られたフィールドを標準出力に出力する方法はありますか？

Question

Guileがこの使い方のための最良のスキームでない場合は、どちらを調べるべきですか？私は基本的にawk '{print $N}'のGuile相当物を探しています。 Schemeがこれを行うことができない場合は、私は理由を知りたいと思います。

Answer 1

GuileはI/Oを2.0から2.2に少し変更しました。これはr6rs I/Oを使用しています（うまくいけば）両方で同じように動作しますが、2.2でテストしていません。

さらに最適化することができます。

#!/usr/bin/guile \ 
-e start -s 
!# 

(use-modules (rnrs io ports)) 

;;; Reads one line from current-input-port and prints the field indicated by 
;;; field-num. If the line does not have enough fields, it prints a newline. 
;;; Returns the field, an empty string, or #f if end of file is reached. 
(define (get-field field-num) 
    (let ((line (get-line (current-input-port)))) 
    (if (eof-object? line) 
     #f 
     (let ((fields (string-tokenize line))) 
      (if (< field-num (length fields)) 
       (let ((field (list-ref fields field-num))) 
       (put-string (current-output-port) 
          (string-append field "\n")) 
       field) 
       (and (put-string (current-output-port) "\n") 
        "")))))) 

;;; Repeat get-field until until end of file is reached 
(define (get-all-fields field-num) 
    (if (get-field field-num) 
     (get-all-fields field-num) 
     #f)) 

(define (start args) 
    (if (and (> (length args) 1) 
      (integer? (string->number (list-ref args 1)))) 
     (get-all-fields (1- (string->number (list-ref args 1)))) 
     (display (string-join 
       `("Usage:" ,(list-ref args 0) "<field-number>\n") 
       " ")))) 

Answer 2

私のブログでは、an essayには、区切られたテキストファイルを扱いやすくする一連の機能があります。