如何将输入作为stdin输入到src_block？

Question

在org-babel中考虑以下perl片段，它使用<STDIN>。

** Ans 2
   #+begin_src perl :results output
     use Math::Trig;
     $rad = <STDIN>;
     $circumference = 2*pi*$rad;
     print "Circumference of circle is $circumference";
   #+end_src

是否可以从另一个块将输入传输到此块？

说：

#+begin_src text :name test-input
  12.5
#+end_src

Answer 1

您可以将$rad直接从#+results块传递到perl脚本：请参阅手册中的passing arguments to code blocks。

那会给出

#+begin_src perl :results output :var rad=test-input

用作输入

#+results: test-input
:  12.5