Guile 또는 다른 스키마에서 입력 파일 또는 표준 입력에서 n 번째 빈 칸으로 구분 된 필드를 표준 출력으로 출력하는 방법은 무엇입니까?

Question

Guile이이 사용법에 가장 적합한 체계가 아니라면 어떤 것을보고해야합니까? 나는 기본적으로 awk '{print $N}'의 Guile equivalent를 찾고있다. 만약 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에 구분 된 텍스트 파일을 쉽게 처리 할 수있는 기능이 있습니다.