R中的读写管道（）通信

作者: 妖邪
发布时间: 2024-07-22 03:12:13 (7天前)
转自：

4 条回复

0#
回复此人
Ni | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 可以像这样在R中运行Jython中的那个部分。加载java（发生在第二个语句中）将会很慢，但之后应该没问题。 </p> <pre> <code> library(rJython) .Jython <- rJython() jython.assign(.Jython, "x", "www.google.com") jython.exec(.Jython, "from subprocess import * p = Popen('nslookup', stdin=PIPE, stdout=PIPE) p_stdin, p_stdout = p.communicate(x)") cat(jython.get(.Jython, "p_stdin"), "\n\n") </code> </pre> <P> 最后一条陈述给出： </p> <pre> <code> > cat(jython.get(.Jython, "p_stdin"), "\n\n") Default Server: UnKnown Address: 192.168.0.1 > www.google.com </code> </pre> </DIV>

编辑
1#
回复此人
流浪海。 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 在类UNIX系统上执行此操作的一种方法是打开到重定向进程的管道 <code> stdout </code> 和 <code> stderr </code> 到了一个fifo： </p> <pre> <code> # Setup system('mkfifo output.fifo') p_out <- fifo('output.fifo', 'r') p_in <- pipe('pdflatex &> output.fifo', 'w') # See what TeX said on startup readLines(p_out) [1] "This is pdfTeX, Version 3.1415926-1.40.11 (TeX Live 2010)" readLines(p_out) character(0) # TeX has nothing more to say # Tell TeX to do something writeLines('\\documentclass{article}', p_in) flush(p_in) # See what it said in response readLines(p_out) [1] "**entering extended mode" [2] "LaTeX2e <2009/09/24>" [3] "Babel <v3.8l> and hyphenation patterns for english, dumylang, nohyphenation, ba" [4] "sque, danish, dutch, finnish, french, german, ngerman, swissgerman, hungarian, " [5] "italian, bokmal, nynorsk, polish, portuguese, spanish, swedish, loaded." [6] "" </code> </pre> <P> 不幸， <code> fifo </code> 在Windows上不受支持。 </p> </DIV>

编辑
2#
回复此人
WL | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 很久以前我也用过双向管道 <a href="http://www.octave.org" rel="nofollow"> 八度 </A> 所以，是的，这将是很好的。但仔细阅读 <code> help(pipe) </code> 并不认为这是支持。你会得到阅读 <EM> 要么 </EM> 写，但似乎不是两个。 </p> <P> 但也许你可以作弊。打开一个管道写入一个应用程序，你可以调用stdout重定向到一个文件...然后继续读取该文件。但是由于没有刷新的缓冲区可能会很乱。 </p> </DIV>

编辑

登录后才能参与评论