About Net::FTP::Recursive..................roy

[Roime bin Puniran]

Hi all...glad to see u again...

I have one question. Actually i used Net::FTP::Recursive to transfer a directory(not 
even a single files, but it's really2 a directory) and its content between 
machine..Here is my code..

============================================================

#!/usr/bin/perl -w

use Net::FTP;
use Net::FTP::Recursive;

my $home = "/home/puniran/";
my $server = "200.200.230.136";
my $username = "zaki";
my $password = "zaki";

$ftp = Net::FTP::Recursive->new("$server",
                     Timeout => 30,
                     Debug   => 1)
        or die "Cannot [EMAIL PROTECTED]";
        
        print "OK\n";

$ftp->login($username, $password)
    or die "Login Not Accepted..... \n";

&list("");


@step_1 = $ftp->rls("");

@step_grep = grep { m/\.flow/ } @step_1;        

# Get all the files....
foreach $i (@step_grep) {
        print $i ."\n";
}

################GENERATE PROCESS################
## list
sub list {

## Specifies remote directory
@remote_dir = $ftp->ls("/home/roime/");

print " :\n";
# ...eta pantailaratzen dugu

        foreach $seek (@remote_dir) {
                print $seek ."\n";
                $ftp->rget([OmitAll => "$home"]);
        }
}

========================================================

Actually It's going well...But I just receive all the content listing, through my 
terminal (I used red hat)...But it's seem no folder transfered into my machine from 
remote....I used $ftp->rget([OmitAll => "$home"]); to make the directory 
transfered...Am i wrong?....Do u have any idea?..

This e-mail and any attachments may contain confidential and
privileged information. If you are not the intended recipient,
please notify the sender immediately by return e-mail, delete this
e-mail and destroy any copies. Any dissemination or use of this
information by a person other than the intended recipient is
unauthorized and may be illegal.

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>