in reply to expect.pm how to ignore special characters
in thread expect.pm header

Do the passwords have the same special characters on the different machines. Some "special" characters are treated differently inside double quotes. To avoid that use single quotes.

$ssh->send( 'rootpasswordwithspecialcharacters' . "\n" );

The single quotes are used to protect that characters in the root password. The newline is then concatenated to the end, since \n depends on being in double quotes.

Please follow up on the new thread you started. See my response at Re: How do I get expect.pm to ignore special characters?.

Replies are listed 'Best First'.
Re^2: expect.pm how to ignore special characters
by amagana (Acolyte) on Apr 15, 2015 at 15:42 UTC

    Thank you sn1987a

    It looks like that worked for the root password but I used the same single quotes for when I get my password changed. The script stops now at when I do a expect/send after sending passwd amagana at New UNIX Password like this..

    [root@Remotehost ~]# Starting EXPECT pattern matching...
 at /usr/lib/perl5/site_perl/5.8.8/Expect.pm line 561
        Expect::expect('Expect=GLOB(0xc4cc170)', 60, 'New UNIX Passwor
+d:') called at test-a-filehandle.pl line 82
        main::change_password('linux-host\x{a}') called at test-a-file
+handle.pl line 39
passwd amagana
Changing password for user amagana.
New UNIX password:

    [download]
    $ssh->send("passwd amagana\n");
$ssh->expect(60, 'New UNIX Password:');  #linux
$ssh->send( 'XxX*%xx,^xxxxXx_' . "\n");
$ssh->expect(60, 'Retype new UNIX password:'); #linux
$ssh->send( 'XxX*%xx,^xxxxXx_' . "\n");
$ssh->expect(60, '#');
$ssh->send("exit\n");
$ssh->expect(60, '$');
$ssh->send("exit\n");
$ssh->close();

    [download]
[reply]
[d/l]
[select]

      Thank you sn1987a,

      Success!, My script can now send and expect from a file and push that to an array. Thank you so very much again now I just need a little more help on how to get my script to make a list of which password resets failed from each list.

[reply]
[reply]

In Section Seekers of Perl Wisdom