Hi Monks,

I am trying to write a very simple program that will be

called from other scripts.

I want to ftp from a machine into another machine,

do a find,ftp all the files, not the directories

(.: or ..:) and close my connection.

So far, I have it where I can do the 'find', but I think I am

doing the 'find' in the local machine, also, I can't figure out how

to place the results of the 'find' into an array so I can later

do a 'foreach' loop on the array.

Any pearls of wisdom?

I also know that there are other programs like 'mirror', but

I am trying to keep mine very simple. just the guts.

Really appreciate the help

Here is my program for your amusement

#!/usr/local/bin/perl
use Net::FTP;
use File::Find; 
@ARGV = "." unless @ARGV; 

sub showfiles 
{ 
   print "$File::Find::name/\n" if !-d; 
} 
my $dir = '/my/remote/directory/path';
my $host = '123.45.67.890';
my $login = 'userlogin';
my $passwd = 'userpassword';
my $ftp = Net::FTP->new($host); 
my $RC = $ftp->login("$userlogin","$userpassword");

if (not $RC) 
{
    print "\n\nFTP Login to Remote Host: '$host' failed!\n\n";
    print "No files updated from Remote host: '$host'!\n\n";
    exit;
}
# Go to the specified directory
  print STDERR "Changing directory to <$dir>\n" if ($DEBUG);
  if ($ftp->cwd($dir) == 0)
  {
    warn "$program: can't change directory to <$dir>\n";
    return(1);
  }
find(\&showfiles, @ARGV);
$ftp->quit;

[download]

In reply to ftp'ing 'Find' results from an array by ortsac

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.