Rekursiv filnedlasting med Net::SFTP::Recursive

[howieD]

Heisann,

 

Noen som er god på SFTP via Perl her?

Jeg skal laste ned alle filer som ligger på en SFT server, og laste dem ned til min lokale maskin.

Problemet er at jeg ikke får overført filene.

 

CPAN moduler er installert og alle avhengigheter fungerer.

 

Noen som har et script for slik filoverføring, som fungerer?

 

#!/usr/bin/perl

 

use Net::SFTP::Recursive;

 

my $svr = 'ftp.serveren.com';

my %cfg = (user=>'brukernavnet_mitt', password => 'passordet_mitt', debug=>1);

my $sftp = Net::SFTP::Recursive->new($svr, %cfg);

$sftp->rget('/', '/home/hoved/xmlfiler/', \&my_cb,

{file_pat=>'.xml$', cb4get=>\&myget_cb});

Endret 23. april 2010 av Haavard82