Is there some more elegant read from STDIN?

[Jean Louis]

I would like t oknow if there is any more elegant
read from STDIN on comman line, like when using
--script ?

References:

https://joelmccracken.github.io/entries/reading-writing-data-in-emacs-batch-via-stdin-stdout/

https://github.com/clarkgrubb/hyperpolyglot/issues/107#issuecomment-510984788

Working example:

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

(defun org-stding-to-html-body-only ()
  "Reads org text body from STDIN and export full only body HTML"
  (let ((org-document-content "")
        this-read)
    (while (setq this-read (ignore-errors
                             (read-from-minibuffer "")))
      (setq org-document-content (concat org-document-content "\n" this-read)))

    (with-temp-buffer
      (org-mode)
      (insert org-document-content)
      (org-html-export-as-html nil nil nil t)
      (princ (buffer-string)))))

(org-stding-to-html-body-only)

Is there some better way to accept stdin then this
one?

Jean