Threads inside perl script is going out of control

[anuani]

I should write a perl script(feat.pl), which will call a python script. I am opening the python script as a pipe command since the python script is an interactive process. After I give an input to the python script, the python script its job and I should validate if the job is executed correctly in perl script. But, before input is going to the python script, control is going to validation part My script is as below:

    #!/usr/bin/perl
    $pythonCmd = "python mobileCom.py v20 /home/omc/python/MCSimu/ior 
+332211000000009001";

    open CMD, |- , $pythonCMD;
    
    print CMD "9\n";

    Validate();

    sub Validate
    {
    print "Inside Validate
    #doing the validation here
    }

The perl script should execute line by line, but control is going to Validate() before passing "9" to the CMD. I understood that is because the python script is executed as a different thread and perl script is executed as a different thread. How can I control the execution of the perl process?

[hippo]

Note that $pythonCmd to which you have assigned a value is not the same as $pythonCMD which you have used in your call to open(). If you had used strict this would have been reported to you because $pythonCMD would not have been declared. But your code won't compile anyway because the print statement inside Validate() is unterminated.

As this is therefore likely not the code which you are actually running any advice would be purely guess work. My guess is you are Suffering from Buffering.

[anuani]

Thanku. I got the answer for my problem. And yes this is not the original code. Due to integrity issues I couldn't give the complete code

[Anonymous Monk]

Yeah, thats got little to do with threads, see perlipc, Expect, IPC::Run3, mobile com, Capture::Tiny

What does mobileCom.py do? Why don't you just do this all in python?