isync has asked for the wisdom of the Perl Monks concerning the following question:

What am I doing wrong?

I am trying to enter the password scp promts for via pump(): 

my @scp = ("scp", "long command line...")
my $h = start(\@scp, \$in, \$out);
$in = "mypassword\n";
pump $h if $out =~ /password/i;

[download]

Replies are listed 'Best First'.
Re: IPC::Run and scp's password entry
by mr_mischief (Monsignor) on Dec 19, 2008 at 18:54 UTC
    You might want to notice that pump() works on the scalar you give it as a buffer and that all the examples use until rather than if.
[reply]
[d/l]
[select]
      I know, but I couldn't bend my mind enough to fully get this... Could you supply an example?

      Just to enable more monks to help me:
      I start() scp with a proper command. It swallows it without errors and the next thing it does is prompt (blocking) for a password with "\nPassword:" and waits there. I then need to feed my password, but as it seems my code messes the passed string up or passes the wrong value...
[reply]
        It's not passing anything, because at the point your code first checks the output it does not yet contain the pattern you are searching.

        It also could be that you never get any output from the command resembling what you think it should. Most of the examples for IPC::Run you must remember are using the Unix utility 'cat', which outputs its own input. I doubt whatever scp utility you are using sends the input at the password prompt back to you as output. Others issue a command to a program with a command-then-prompt interface, and they wait for the prompt before issuing another command. You're actually wanting the password prompt before you send the first input and for the next thing to be something telling you about the status of the transfer.

        I'm not sure why you're using this module for scp in the first place, unless you have a reason you can't use Net::SCP, Net::uFTP, or Net::SCP::Expect.

[reply]
Re: IPC::Run and scp's password entry
by zentara (Cardinal) on Dec 19, 2008 at 19:49 UTC
    I'm just going from memory here, but I seem to recall similar problems with scp passwords, and it required a terminal for STDIN. It may explain your problem, and you might want to check that out before further head-banging over this. :-)
    I'm not really a human, but I play one on earth Remember How Lucky You Are
[reply]
      Fortunately, IPC::Run's pty features should handle that.
[reply]
Re: IPC::Run and scp's password entry
by salva (Canon) on Dec 24, 2008 at 16:08 UTC
    I have just added (experimental) support for scp file transfer to Net::OpenSSH.
[reply]

Back to Seekers of Perl Wisdom