Based upon your syntax, I am gussing you are using the Net::SFTP module. From the module's documentation:
$sftp->ls($remote [, $subref ])Fetches a directory listing of $remote.
If $subref is specified, for each entry in the directory, $subref will be called and given a reference to a hash with three keys: filename, the name of the entry in the directory listing; longname, an entry in a "long" listing like ls -l; and a, a Net::SFTP::Attributes object, which contains the file attributes of the entry (atime, mtime, permissions, etc.).
If $subref is not specified, returns a list of directory entries, each of which is a reference to a hash as described in the previous paragraph.
You can therefore recover the -l result by changing your key from filename to longname. Your sorting options take a little more work, since you need the complete list to sort it. I would suggest you modify your subroutine to return an array ref with the longname and mtime, and then use sort with a custom function on the returned list.
Update: As SilasTheMonk points out below, following this approach requires a closure to cache search results rather than the simple return I describe above.
Update 2: Having reread the above, the return value from an ordinary call to $sftp->ls contains all the information you need to recover your desired result (untested).
my @contents = $sftp->ls($RemoteBaseDirectory . $RemoteOutgoingDirecto +ry); my @sorted = sort {$b->{a}->mtime <=> $b->{a}->mtime} @contents; print $sorted[0]->{longname};
If the above fails, you need to look at the format of the mtime return to fix the compare.
In reply to Re: Perl SFTP question?
by kennethk
in thread Perl SFTP question?
by goochalba
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |