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 }