கேள்வி: எக்சுபெக்ட் - பெர்ள் எடுத்துக்காட்டு பற்றி நீங்கள் என்ன அறிந்துள்ளீர்கள்?
பதில்: #!/usr/bin/perl use strict; use warnings; use Expect; my $exp = new Expect(); my $timeout = 4; my $expect_log = "test.txt"; $exp->spawn("ssh abc\@example.com"); $exp->expect($timeout, 'Password:'); $exp->send("password\n"); $exp->expect($timeout, '/^turo(.*)$/'); $exp->log_file("$expect_log"); $exp->send("ls -la \n"); $exp->expect($timeout, '/^servername(.*)$/'); # open(FH_test, ">$expect_log") or die ("Can not open"); $exp->send("exit\r"); $exp->soft_close();