perl怎么给cpp传递参数

很宅的男

大家好，现在有一个已经编译好的cpp程序，我现在想写一个perl脚本给这个程序传递几个参数，请问大家知道怎么处理吗？

jason680

http://bbs.chinaunix.net/thread-4292232-1-1.html
http://bbs.chinaunix.net/thread-4267967-1-1.html

523066680

如果是基于函数的传参，那么可能就是需要 Inline::CPP
https://metacpan.org/release/Inline-CPP

jeppeter

回复 1# 很宅的男

1. use strict;
   
2. use IPC::Open3;
   
3. 
   
4. my $pid = open3(\*CHLD_IN, \*CHLD_OUT, \*CHLD_ERR, 'cat')
   
5.     or die "open3() failed $!";
   
6. 
   
7. my $r;
   
8. 
   
9. for(my $i=1;$i<10;$i++) {
   
10.     print CHLD_IN "$i\n";
    
11.     $r = <CHLD_OUT>;
    
12.     print "Got $r from child\n";
    
13. }

复制代码

这个例子可以满足你的要求，上面的是进行cat的处理。