Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

How to retrieve files at least 5 minutes old using sftp foreign

by mytutorial (Initiate)
on Nov 06, 2013 at 17:55 UTC ( #1061456=perlquestion: print w/replies, xml ) Need Help??
mytutorial has asked for the wisdom of the Perl Monks concerning the following question:

I need to retrieve files from a directory on a remote server that are at least 5 minutes old. I am using Net::SFTP::Foreign in my Perl script. The array @directory_info contains the directory path and the filemask. I am pulling the files from the remote server using $sftp->glob. How can I only get the files that are at least 5 minutes old using $sftp->glob? The $sftp->glob portion from my script is below.

while($i < 11) { $directory = "$directory_info[$i][0]"; $filemask = "$directory_info[$i][1]"; $sftp->setcwd($directory) or $newerr=1; @list = $sftp->glob("$filemask") or $newerr=1; } $i++;

Thank you for your time and help!

Replies are listed 'Best First'.
Re: How to retrieve files at least 5 minutes old using sftp foreign
by atcroft (Monsignor) on Nov 06, 2013 at 18:12 UTC

    Take a look at Net::SFTP::Foreign::Attributes (included in Net::SFTP::Foreign)-it includes methods for looking at the atime and mtime of the files. Depending on if the machines' clocks are close, then something like the following (untested) snippet might do the trick (derived from the docs):

    my $t = time; foreach my $f (@list) { if ( $f->{mtime} + 300 < $t ) { # retrieve $f->{filename} here } }

    Hope that helps.

Re: How to retrieve files at least 5 minutes old using sftp foreign
by jellisii2 (Hermit) on Nov 06, 2013 at 18:31 UTC
Re: How to retrieve files at least 5 minutes old using sftp foreign
by salva (Abbot) on Nov 07, 2013 at 08:15 UTC
    my $until = time - 5 * 60; $sftp->mget($filemask, $dest, wanted => sub { $_[1]->{a}->mtime < $until });

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1061456]
Front-paged by Corion
help
Chatterbox?
[Corion]: (or maybe I just work better from existing code that I munge until it works and I understand it rather than a short abstract text like "implement everything that's needed" ;) )
[ambrus]: Corion: I think in this case you can get away with only a stub for idle, one that always dies when you create it, because AnyEvent::HTTP doesn't use it, not even indirectly through AnyEvent::Handle or AnyEvent::Socket or AnyEvent::DNS.
[Corion]: The "and I understand it" part is optional.
[Corion]: ambrus: Yes but I also need to implement the file / IO watcher, because Prima has that (in Prima::File), and I need to supply the appropriate thing to make push_write etc. work with Prima
[ambrus]: Corion: yes, you need to implement the io watcher, which should be simple because Prima::File is basically that, and the timer watcher form Prima::Timer
[Corion]: ... or so I think. As I said, I'm somewhat vague on how to make AnyEvent cooperate with a callback-driven IO event loop that gives me callbacks when data is available or can be written
[ambrus]: what push_write thing? I don't think you need that. that's implemented generically by AnyEvent::Handle
[Corion]: ambrus: Yeah, that's what I think as well. But you give me an idea, maybe I should start with implementing the timer, as that should be far simpler and with fewer edge-cases/nasty interaction than the file watcher
[ambrus]: You only provide the watcher part that tells when the handle is readable or writable, not the actual writing and reading.
[Corion]: ambrus: Hmmm. It makes sense that AnyEvent would implement the push_write itself, but I think I don't have a good idea of where the boundary between AnyEvent and the underlying event system lies... Implementing the timer should give me a better idea

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (9)
As of 2016-12-08 12:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    On a regular basis, I'm most likely to spy upon:













    Results (141 votes). Check out past polls.