Hi gabrielsousa,

The documentation I linked you to contains example code that shows how to interact with smbclient, which should be very similar to interacting with an FTP client. It shows how to use a while loop to continually call pump until the next prompt is seen.

Regards,
-- Hauke D

manage to make it work, thanks


my ($user,$pass,$host,$in,$out,$err)=('eurotuxftpprod','KujRemebeuj0',
+"$ARGV[0]","","","");
use IPC::Run qw( start pump finish timeout );

my @cmd=('lftp', '-u', "$user,$pass", '-e', "open", "$host");
my $h = start \@cmd, \$in, \$out, \$err, timeout( 5 );

$in .= "cls -1\n";
pump $h until $out || $err; # =~ /input/ ;
print $out;
$out = '' ;

$in .= "ls\n";
pump $h until $out || $err; # =~ /input/ ;
print $out;
$out = '' ;

$in .= "mget *\n";
pump $h until $out || $err; # =~ /input/ ;
print $out;
print $err;

finish $h;
[download]

manage to make it working. have a strange thing, the output is always of the first command :(
what i'm doing wrong

use IPC::Run qw( start pump finish timeout new_chunker);

my @cmd=('lftp', '-u', "$user,$pass", '-e', "open", "$host");
#my $h = start \@cmd, \$in, \$out, \$err, timeout( 5 );
my $h = start \@cmd, \$in, '>' => new_chunker, sub { push @out, @_ }, 
+ timeout( 5 );

$in = "cls -1\n";
pump $h until @out;
print @out;

$in = "ls\n";
pump $h until @out;
print @out;
print @out;
finish $h;
[download]

Please [edit] your post and use <code> tags and indentation for your code examples.

update

I checked some of your older posts and you have the unfortunate habit to append <br> at the end of your lines.

it's much easier

do

<code>
code
</code>
[download]

or

<c>
code
</c>
[download]

please see How do I post a question effectively?