Perl Threads and Expect

All,

I have perl and expect working together, however now I wanted to put that routine into a perl script.

I'm getting this "Closing spawn id(3)." error. I'm not sure why I can't launch this same routine within a perl thread.

Does anyone have any idea what I need to add to the perl thread? This is my first experience with perl threads.

Some Code:

use warnings;
use Expect;
use threads();
use threads::shared;

my $exp :shared = 0;

my $thr1 = threads->create(\&expect_thread, "test1");
$thr1->join();

# Part of routine
sub expect_thread
{
   print('Thread started: ', join(' ', @args), "\n");
   $filename = "MY.xml";
   $timeout = undef;

   # Loop
   $expectFlag = 1;
   while ( $expectFlag == 1)
   {
      my $exp = new Expect;
#      $exp = new Expect;
      $exp->raw_pty(0);
      $exp->exp_internal(1);
      $exp->debug(2);
      $exp->log_file("expectLog.txt");
      $exp->log_stdout(1);

      my $fileContents = "";
      my $checkPos = 0;

      $exp->spawn($julexe);
      $runFlag = 1;
      while ( $runFlag == 1 )
      {
        $patidx = $exp->expect($timeout, 'enter filename->');  <----- Fails here

..............

Error:

Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 559
        Expect::expect('Expect=GLOB(0x453f360)', 'undef', 'enter filename->') called at perlExpectJuliusIM_FOREVER.pl line 73
        main::expect_thread('test1') called at perlExpectJuliusIM_FOREVER.pl line 120
        eval {...} called at perlExpectJuliusIM_FOREVER.pl line 120
spawn id(3): list of patterns:
  #1: -ex `enter filename->'


spawn id(3): Does `'
match:
  pattern #1: -ex `enter filename->'? No.

Closing spawn id(3).
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 1415
        Expect::hard_close('Expect=GLOB(0x453f360)') called at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 878
        Expect::_multi_expect('undef', 'undef', 'ARRAY(0x45981f0)') called at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 563
        Expect::expect('Expect=GLOB(0x453f360)', 'undef', 'enter filename->') called at perlExpectJuliusIM_FOREVER.pl line 73
        main::expect_thread('test1') called at perlExpectJuliusIM_FOREVER.pl line 120
        eval {...} called at perlExpectJuliusIM_FOREVER.pl line 120
spawn id(3) closed.
Pid 23657 of spawn id(3) terminated, Status: 0x01
Use of uninitialized value in numeric eq (==) at perlExpectJuliusIM_FOREVER.pl line 77.
Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 559
        Expect::expect('Expect=GLOB(0x453f360)', 'undef', 'enter filename->') called at perlExpectJuliusIM_FOREVER.pl line 73
        main::expect_thread('test1') called at perlExpectJuliusIM_FOREVER.pl line 120
        eval {...} called at perlExpectJuliusIM_FOREVER.pl line 120
spawn id(3): list of patterns:
  #1: -ex `enter filename->'

All, I think I might have found my problem. I think it has to do with not having enough priority to run and is causing it's self to crash.

Related post dealing with foreground vs background processes.
http://www.linuxquestions.org/questi...=1#post4408781

Perl questions are best dealt with at http://www.perlmonks.org.

Originally Posted by sundialsvcs Perl questions are best dealt with at http://www.perlmonks.org.

The link doesn't work for me, but http://perlmonks.org/ works just fine.

Markus

This perl-Expect module can help you out.