]> scm.dxcluster.org Git - spider.git/blob - perl/call.pl
done more work on directory now really quite ak1a compatible
[spider.git] / perl / call.pl
1 #!/usr/bin/perl
2 #
3 # a little program to see if I can use ax25_call in a perl script
4 #
5
6 use FileHandle;
7 use IPC::Open2;
8
9 $pid = Open2( \*IN, \*OUT, "ax25_call ether GB7DJK-1 G1TLH");
10
11 IN->input_record_separator("\r");
12 OUT->output_record_separator("\r");
13 OUT->autoflush(1);
14
15 vec($rin, fileno(STDIN), 1) = 1;
16 vec($rin, fileno(IN), 1) = 1;
17
18 while (($nfound = select($rout=$rin, undef, undef, 0.001)) >= 0) {
19   
20 }