perl - perlを使用したLinuxマシンへの同時ログイン

Question

同時テストの一環として、telnet を同時に使用して Linux サーバーにログインする必要があります。サーバーへの最大 50 回のログインが必要です。perl expect を使用して簡単なスクリプトを作成できますが、ループ内の次の項目に進むとセッションが終了します。誰かがこれを行う方法を手伝ってもらえますか? また、以下の実装は、同時ではなくシリアルに接続を行います。

for(my $i = 1; $i <= 5; $i++) {

  my $exp = Expect->spawn("telnet abc") or die "Cannot spawn telnet: $!\n";

  $exp->expect($timeout, "Login:");
  $exp->send("$username\n");

  $exp->expect($timeout, "Password:");
  $exp->send("$password\n");
}