Hello, I'm a beginner of the PERL language and I have troubles in understanding a PERL program these days. Actually I've been confused for a long time.I hope you can look into this program and point out the problem for me:) The program is in the attachment.It's a bit long , but the error occured at the very beginning.
Here is the description: It's about the use of "IPC::Open2". In line 60 of
file "SearnShell.pl" a pipe is opened. The program
executes correctly until line 745 of file "SearnShell.pl" which is "my
$result = <SearchR>;". "$result" is supposed to receive a value from another
end of the pipe but it receives nothing...The other end of pipe is in line
17 of file "Control.pm" which is " while (<>) { ". It is supposed to receive
the input from line 744 of file "SearnShell.pl" and do some comparing works
and then print "OK\n" . Unfortunately, " while (<>) " receives nothing...As
a result the whole thing can not work rightly.
So I guess the problem is " while (<>) " in line 17 of file "Control.pm"
receives nothing . I don't konw why it happens and really hope you can get
me out of this confusion....
sincerely,
becky
SearnShell_v0.1.rar
Description: Binary data
