From: Tan R. <tr...@ho...> - 2005-05-24 02:27:39
|
I am trying to get this to work but I get a "-1" as my $rv when I run it. I am not sure what I am doing wrong. &foreign_require("proc", "proc-lib.pl"); ($fh, $pid) = &proc::pty_process_exec("$driver -UR $pdline $sys $tab"); while(1) { $rv = &wait_for($fh, "Are you sure you want to continue (Yy)\?"); print $rv; if ($rv == 0) { print "Saying Yes"; sysprint($fh, "y\n"); } else { last; } } close($fh); And my prompt looks like this when I run the command from the terminal: This option will also remove all of the data. Are you sure you want to continue (Yy)? I need to type in "y" here and hit enter here. I have also tried maney other patterns in place of "Are you sure you want to continue (Yy)?" I even tried just "\?" or "\\?" nothing seems to work. Thanks for your help |