perl expect prompt

[Anonymous Monk]

I have the following script which works fine on all of my servers except for one.The problem is that for this particular server, it is not waiting for the previous command to finish before it sends the next command. I have assured myself that the prompt variable is unique, any help would be appreciated.

sub run_command {
        
        my ($in_prompt,$in_command)=@_;
        print $rlogin "$in_command\r";
        $rlogin->expect(300,'-re',$in_prompt);

}#end run_command

sub rlogin {

        my ($in_hostname,$in_password,$in_prompt,$in_type)=@_;
        $rlogin=Expect->spawn($in_type." ".$in_hostname);
        $rlogin->expect(300,"ssword:") || die "Never got password prom
+pt on $host, ".$rlogin->exp_error()."\n";
        print $rlogin "$in_password\r";
        $match=$rlogin->expect(300,"closed by foreign host","-re",$in_
+prompt);
        
        #Used for debugging I think
        #die "Dumped by server\n" if $match == 1;
        #die "Never got shell prompt on $host, ".$rlogin->exp_error().
+"\n" unless $match;

}#end rlogin


rlogin($hostname,$password,$prompt,"ssh");
run_command($prompt,"export ORACLE_SID=$oracle_sid");
run_command($prompt,"cd dev");
run_command($prompt,"chmod +x *");
run_command($prompt,"exp $schema/$schema file=$file log=$log rows=no")
+;
run_command($prompt,"imp $schema/$schema file=$file indexfile=$indexfi
+le full=y");
run_command($prompt,"./initial.pl ".$schema."_tabind  LOC_".$touser." 
+$touser $schema ");

Edit 2001-26-06 Masem - Added code tags

[TheoPetersen]

Given that it appears you are logging in via SSH anyway, can you use Net::SSH::Perl instead of using Expect directly? It handles command execution on its own; maybe it is clever enough to work around what ever is causing your prompt problem.

In any event, it would clear out the login and command management code from your script.