Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Doing an 'ls' in SFTP:Foreign

by salva (Abbot)
on Feb 15, 2013 at 16:19 UTC ( #1018904=note: print w/replies, xml ) Need Help??

in reply to Doing an 'ls' in SFTP:Foreign

ls returns an array reference:
$l = $sftp->ls(...) or die "ls failed: ".$sftp->error; for my $e (@$l) { ... }

Replies are listed 'Best First'.
Re^2: Doing an 'ls' in SFTP:Foreign
by StarkRavingCalm (Sexton) on Feb 15, 2013 at 17:28 UTC

    Why does this work flawlessly in Net:SFTP but not Net:SFTP:Foreign?

      I haven't used these packages, but the man page for Net::SFTP says ls returns a list of entries, while Net::SFTP::Foreign says it returns a reference to a list of entries.


        Maybe Salvo knows how to format the line to work with Foreign?

      Different modules, different APIs.

      Retrospectively, having ls return an array reference, was probably a bad idea, bad it is too late to change it now.

        What do you suggest to achieve the same results?
      It works flawlessly in both libraries. It just works differently.
Re^2: Doing an 'ls' in SFTP:Foreign
by StarkRavingCalm (Sexton) on Feb 15, 2013 at 20:36 UTC

    Maybe salva knows how to format that line to work with Foreign?

Re^2: Doing an 'ls' in SFTP:Foreign
by StarkRavingCalm (Sexton) on Feb 20, 2013 at 18:36 UTC

    Ok, I am ALMOST there... I have the 'ls' going to a array and getting close to what I would expect. Currently, it is ignoring hidden files and giving filenames. What I need is to get the size of each file without all the atime, mtime, perms etc... that appears to be default in SFTP-Foreign.

    NOTE: I am only using 'names_only' as a proof of concept in case that negates any file size arguments I would put in there.

    Does anyone know how to get the file size as an argument in the string I am using?

    my @newarray = @{ $sftp->ls('/home/ftptest/inbound', names_only => 1, +no_wanted => qr/^\./ )};
      Just loop over the returned values generating a new list with the fields you want to keep:
      my $ls = $sftp->ls('/home/ftptest/inbound', no_wanted => qr/^\./ ); my @names_and_sizes = map { { filename => $_->{filename}, size => $_-> +{a}->size } } @$ls; # or... my %size = map { $_->{filename} => $_->{a}->size } @$ls;


        $VAR1 = { 'text.txt' => 0, '1.1' => 0, 'newfile' => 171, 'upfile1' => 0, 'newfile3' => 171, 'upfile2' => 0, 'upfile3' => 0, 'upfile4' => 312, 'slkdjslkd.lkjlsdfsdl' => 0, 'newfile2' => 171 };

        Thanks Salva!

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018904]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2018-06-22 23:06 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.