I've been trying to write a script that controls an interactive command-line program. From the searching I've done, it looks like IPC::Open2/IPC::Open3 paired with Net::Telnet would be the easiest way to do this on Windows. The included script is my attempt, however I get the following error when I run the script:
unexpected read error: Bad file descriptor at fcli.pl line 22 Any suggestions/comments appreciated. James 1 use strict; 2 use warnings; 3 4 use IPC::Open2; 5 use Net::Telnet; 6 $| = 1; 7 8 my ($readme, $writeme, $results, $pid); 9 eval { $pid = open2($readme, $writeme, 'flarecons', 'd', 'f', 'a'); }; 10 if ($@) { 11 if ($@ =~ /^open2:/i) { 12 die "open2 failed: [EMAIL PROTECTED]"; 13 } 14 die; 15 } 16 17 my $telnet = Net::Telnet->new(-fhopen => $readme, 18 -telnetmode => 0, 19 -cmd_remove_mode => 1, 20 -prompt => '/fcli> $/'); 21 print $writeme "l\n"; 22 $results = $telnet->waitfor('/q\' to Quit\) $/'); 23 print $writeme "\n"; 24 $results .= $telnet->waitfor('/q\' to Quit\) $/'); 25 print $writeme "q\n"; 26 print $writeme "\cC\n"; 27 waitpid($pid, 0); 28 print "$results\n"; _______________________________________________ Perl-Win32-Users mailing list [EMAIL PROTECTED] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs