用Perl写的自动上传整个目录的程序

原创 2004年08月18日 16:14:00

三年以前(抄)写的东西吧,今天要用,所以找了出来。
放在这儿备用。

#!/usr/bin/perl -w

use Net::FTP;
use strict;

my $server='xxx.xxx.xxx.xxx';
my $user='foo';
my $pw='bar';
my $rdir='/to';

my $ftp = Net::FTP->new($server);
$ftp->login($user,$pw) || die "Login failed";

$ftp->mkdir($rdir,1);

$ftp->cwd($rdir)|| die print "$rdir doesn't seem to exist on $server./n";

my $remote_start_dir = $ftp->pwd();

my $local_start_dir = '/from';
# my $local_start_dir = $ENV{PWD};

handle_dir($local_start_dir, $remote_start_dir);

sub handle_dir()
{
 my $local=$_[0];
 my $remote=$_[1];
 opendir (DIR, $local) || die "huh? $!";
 $ftp->mkdir($remote,1) || die "can't make $remote on $server/n";
 my @subdirs;
 my @all_files = grep !/^/./.?$/, readdir DIR;
 foreach(@all_files)
 {
  if (-d $local . "/" . $_)
  {
   push @subdirs, $_;
  }
  else
  {
   $ftp->put($local . "/" . $_, $remote . "/" . $_)|| die "$!";
  }
 }

 foreach (@subdirs)
 {
  handle_dir($local . "/" .$_, $remote . "/" . $_);
 }
}

$ftp->quit;

python实现的ftp自动上传下载程序(支持目录递归操作)----转

转自 : http://www.cppblog.com/fwxjj/archive/2011/12/14/162085.html 因为python脚本可以直接用文本工具打开修改,所以没有设置...
  • xiaoxianerqq
  • xiaoxianerqq
  • 2016年02月19日 15:51
  • 1810

使用Perl的system运行外部程序

很多情况下,需要把程序包装在Perl脚本中运行。 例如,我们可以用Perl来收集执行某个程序所需的参数。 或者也可以捕获其它命令行程序的输出,然后再基于它们做一些决策。 Perl提供了很多不同的...
  • Jerry_1126
  • Jerry_1126
  • 2014年04月27日 15:24
  • 3335

将项目Demo上传到Github上的操作步骤

之前我有很多代码直接上传到了CSDN上,主要是因为操作方便,今天我就说说将源码Demo上传到Github上的操作步骤。首先,你要先确定自己在Github上有自己的账户名,账户邮箱和密码。如果没有可以先...
  • hbblzjy
  • hbblzjy
  • 2016年08月24日 17:24
  • 2377

从本地上传整个文件夹到hdfs的java程序

从本地上传整个文件夹到hdfs的java程序
  • qzlzwhx
  • qzlzwhx
  • 2014年07月25日 10:50
  • 2745

perl上传文件实例程序

示例的 HTML 文件如下: html> body> form method="POST" action="psupload.cgi" ENCTYPE="multipart/form-data"...
  • stonesharp
  • stonesharp
  • 2013年07月15日 22:27
  • 1394

[Perl]FTP自动上传文件的脚本以及配置文件

本应用程序设计的几个基本理念是:工具箱再利用: 尽可能利用已有的工具;简化运行步骤; 不引入过多的业务逻辑,满足的需求越简单越好。所以,我们定义了本应用程序依赖于以下几个工具的运行:ActivePer...
  • ace_fei
  • ace_fei
  • 2011年04月07日 10:29
  • 836

sqlsus上传自动搜索可写目录的实现代码分析

转载:http://www.52harry.com/program/python/2011-11-08/493.html sqlsus是一个比较不错的mysql注射工具,感觉最好用的两点就是注射获取...
  • aiharry2009
  • aiharry2009
  • 2011年11月29日 21:33
  • 299

一个删除整个目录的C程序

  • 2006年02月23日 09:05
  • 1KB
  • 下载

监控目录文件FTP上传程序

  • 2017年10月28日 00:49
  • 203KB
  • 下载

CaptainGan------使用递归方法实现,向FTP服务器上传整个目录结构、从FTP服务器下载整个目录到本地的功能

文章来源:http://blog.csdn.net/CaptainGan/article/details/6970332 我最近由于在做一个关于FTP文件上传和下载的功能时候,发现Apache...
  • buster2014
  • buster2014
  • 2015年08月22日 15:35
  • 358
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Perl写的自动上传整个目录的程序
举报原因:
原因补充:

(最多只允许输入30个字)