multithreading - SSH使用expect和线程？

Question

您是否找到了有关如何使用带线程的期望进行 ssh 的解决方案？

sub thDoWork {

    #variables

    my $thread_number = $_[0];
    my $PassStoreQueue = $_[1];

    my $Thread_Die = '';
    my $My_Print_Bucket = '';

    while ($Thread_Die ne 'KILL_THREAD') {

        my $temp_Store_Number_Working_On = $PassStoreQueue->dequeue();

        my $name;
        my $ip;
        my $Device_Exist;
        my $TempDeviceName;
        my $DNS_Results;

        # I need to ssh inside many threads, I can ssh from the main
        # thread just fine but not a sub thread. 

        $ssh = Expect->spawn("ssh -l $username1 $temp_ssh_device " .
                             "-o UserKnownHostsFile=/dev/null " .
                             "-o StrictHostKeyChecking=no")
            or return "Couldn't spawn ssh session";

        # this is unable to login to device.
}

我已经阅读了一个期望在线程中无法正常工作的线程，这仍然是真的吗？