James Schappet wrote:
> UNTESTED SAMPLE CODE
>
>
>
> #!/usr/bin/perl
> net use Net::FTP
>
>
> $DIRName = "/ftp/dir";
>
> chdir $DIRName;
>
> @Files = glob *;
>
> $ftp = Net::FTP->new("HOST.DOMAIN.COM", Debug=>0);
> $ftp->login("user", "password");
> $ftp->cwd("/remote/dir");
> foreach (@Files) {
> $ftp->put($_);
> }
> $ftp->quit;
> foreach (@Files) {
> unlink $_;
> }
Don't forget to add some error logic in there and test the files sizes at
both ends before deleting the local copy.
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (Free site for Perl/Lakers)
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
