Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Doing an 'ls' in SFTP:Foreign

by salva (Monsignor)
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) { ... }


Comment on Re: Doing an 'ls' in SFTP:Foreign
Select or Download Code
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.

      fnord

        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;

        Perfect!

        $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?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1018904]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (9)
As of 2014-08-21 15:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (136 votes), past polls