入出力の中継・・・

Rにはそういう機能がないので、どうしよう・・・。最悪拡張で作るしかないけど、なるべくPure RまたはCRANライブラリーでやりたいしなあ。

> f  <- fifo("fifo", "w+")
> p1 <- pipe("./output")
> p2 <- pipe("./input < fifo")
>
> sink(f)
> cat(readLines(p1), "\n")
> sink()
>
> cat(readLines(p2), "\n")
input:./output

どうだろう。うーん、かなり苦しい・・・。インタラクティブに標準入出力を使うときはうまく行かないし、どうしたものか。

# cat input
#!/usr/bin/perl
use strict;

my $input = <>;
print "input:$input\n";

# cat output
#!/usr/bin/perl
use strict;

print "$0\n";