You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
880 B
38 lines
880 B
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use IPC::Open2;
|
|
use POSIX ":sys_wait_h";
|
|
|
|
my ($send_src, $send_sink);
|
|
my $send_pid = open2($send_src, $send_sink, './spandsp_send_fax_t38 test.tif') or die;
|
|
|
|
unlink('out.tif');
|
|
|
|
my ($recv_src, $recv_sink);
|
|
my $recv_pid = open2($recv_src, $recv_sink, './spandsp_recv_fax_t38 out.tif') or die;
|
|
|
|
while ($send_pid && $recv_pid) {
|
|
|
|
my ($buf, $rin);
|
|
|
|
$rin = '';
|
|
vec($rin, fileno($send_src), 1) = 1;
|
|
while (select(my $rout = $rin, undef, undef, 0.02) == 1) {
|
|
sysread($send_src, $buf = '', 1);
|
|
syswrite($recv_sink, $buf) or last;
|
|
}
|
|
|
|
$rin = '';
|
|
vec($rin, fileno($recv_src), 1) = 1;
|
|
while (select(my $rout = $rin, undef, undef, 0.02) == 1) {
|
|
sysread($recv_src, $buf = '', 1);
|
|
syswrite($send_sink, $buf) or last;
|
|
}
|
|
|
|
undef($send_pid) if waitpid($send_pid, WNOHANG);
|
|
undef($recv_pid) if waitpid($recv_pid, WNOHANG);
|
|
}
|
|
|
|
sleep(5);
|