如何在eshell中迭代命令输出

(defun iterate-command-output (command)
  "Iterate over the output of a command in eshell."
  (eshell-command-on-buffer command
                            (lambda (buffer output)
                              (with-current-buffer buffer
                                (goto-char (point-min))
                                (while (not (eobp))
                                  (let ((line (buffer-substring-no-properties (line-beginning-position) (line-end-position))))
                                    ;; 在这里对每一行的输出进行处理
                                    (message line)
                                    ;; 迭代到下一行
                                    (forward-line)))))))

(iterate-command-output "ls -l")