Probleme mit Perl-Expect

[swen1]

Hi,

hab ein kleines Testskript geschrieben, welches ein Passwort ändern soll. Das macht es auch, bleibt aber am Ende hängen und wiederholt unendlichmal "Passwort changed". Habe (mit meinen wenigen Kenntnissen) schon alles mögliche probiert.

Wie muß das richtig aussehen??

Danke !! Gruß Swen


#!/usr/bin/perl -w

use Expect;
use strict;
my $timeout = 10;
my $pass1 = "test";

my $robot = Expect->spawn("/usr/bin/passwd", "swen");
#$pattern = $robot->expect($timeout, "New password:");
$robot->expect($timeout, "New password:");
$robot->send_slow(0, "$pass1\n");
$robot->expect($timeout, "Re-enter new password:");
$robot->send_slow(0, "$pass1\n");
$robot->expect($timeout, "Password changed");
$robot->soft_close();
#$robot->expect($undef);