Perl 的一个ftp自动脚本

最新推荐文章于 2020-07-07 15:48:25 发布
最新推荐文章于 2020-07-07 15:48:25 发布
阅读量1.6k 收藏 1
点赞数
分类专栏： Perl 文章标签： perl file path ini up 正则表达式
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ganmao/article/details/2867925
版权

配置文件:

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

[AUTO_FTP_DOWN]
#远程下载FTPIP
HOST_IP_DOWN=127.0.0.1
#远程下载FTP用户名
HOST_USER_DOWN=11
#远程下载FTP密码
HOST_PWD_DOWN=11
#远程FTP下载目录,从这个目录GET文件
ROMOTE_DOWN_PATH=/remote/down
#存放从远程FTP下载的文件
LOCAL_DOWN_PATH=D:/uptest/local/down
#是否下载成功后是否删除远程FTP中下载成功的文件
#0--不删除
#1--删除
DELETE_REMOTE_FILE=0
#上传文件匹配规则(Perl正则表达式)
UP_RULE=/d{8}/.034/.PYRST

[AUTO_FTP_UP]
#远程上传FTPIP
HOST_IP_UP=127.0.0.1
#远程上传FTP用户名
HOST_USER_UP=11
#远程上传FTP密码
HOST_PWD_UP=11
#远程FTP上传目录,向这个目录PUT文件
ROMOTE_UP_PATH=/remote/up
#本地路径,存放需要上传到远程FTP的文件
LOCAL_UP_PATH=D:/uptest/local/up
#如果配置了备份目录则将在文件上传后备份到这个目录,否则直接删除
BACK_LOCAL_PATH=D:/uptest/local/upbak
#下载文件匹配规则(Perl正则表达式)
DOWN_RULE=/d{8}/_034/_/d{4}/.ECPAY

#autoftp.pl -f autoftp1.ini -u -s -d

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

脚本:

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

#!C:/Perl/bin/perl.exe -w

use strict;
use Net::FTP;
use File::Spec;
use File::Copy;
use Getopt::Std;
use Data::Dumper;

our $VERSION=qw(0.1.6);
our %ini_file;

#读ini取配置文件
sub ini_read {
    my %ini_param;
    my $hashref;
   
    open( MYINI, $_[0] ) or die "打开配置文件错误：$!";

    while (<MYINI>) {
        next if (substr($_,0,1) eq '#');
        if ( my ($key) = /^/[(.+)/]$/ ) {
            $hashref = $ini_param{$key} = {};
        }
        elsif ( my ( $k, $v ) = /(/S+)/s*=/s*(.*)/ ) {
            $hashref->{$k} = $v;
        }
    }
    close(MYINI) or die "关闭配置文件错误：$!";

    return %ini_param;
}

#将文件下载到本地路径
sub get_remote_file{
    print '------------------------------------------',"/n",'开始从远程FTP获取文件',"/n";
    my $ftp = Net::FTP->new($ini_file{AUTO_FTP}{HOST_IP_DOWN}, Debug => 0)
            or die "cannot connect ftp server: $ini_file{AUTO_FTP}{HOST_IP_DOWN}; $@";
         
    $ftp->login($ini_file{AUTO_FTP}{HOST_USER_DOWN}, $ini_file{AUTO_FTP}{HOST_PWD_DOWN})
            or die 'Cannot login :', $ftp->message;
         
    $ftp->binary;
         
    chdir File::Spec->catdir($ini_file{AUTO_FTP}{LOCAL_DOWN_PATH})
            or die "cannot change local download directory:$ini_file{AUTO_FTP}{LOCAL_DOWN_PATH}; $!/n";
         
    $ftp->cwd($ini_file{AUTO_FTP}{ROMOTE_DOWN_PATH})
            or die "Cannot change remote working directory:$ini_file{AUTO_FTP}{ROMOTE_DOWN_PATH};", $ftp->message;
         
    my @remote_file_list = $ftp->ls($ini_file{AUTO_FTP}{ROMOTE_DOWN_PATH});
   
    foreach my $file_name (@remote_file_list){
        #print $file_name,"/n";
        my ($v, $d, $f) = File::Spec->splitpath($file_name);
       
        if ( $f =~ m/$ini_file{AUTO_FTP}{DOWN_RULE}/ ){
            my $l_file = File::Spec->catfile($ini_file{AUTO_FTP}{LOCAL_DOWN_PATH},$f);
            if ( -e $l_file && -f $l_file ){
               
                #rename $l_file,$l_file.'-'.now_time(2);
                #print "将重名文件备份为:[",$l_file.'-'.now_time(2),"]/n";
                print "存在重名文件$f,不再下载!/n";
                next;
            }
           
            $ftp->get($f) or die "get file failed:$f ", $ftp->message;
            my $file_aize = $ftp->size($f);
            print "已经下载了文件:[",$l_file,"],    文件大小: [$file_aize]","/n";
           
            #删除远程目录文件
            $ftp->delete($f) if ($ini_file{AUTO_FTP}{DELETE_REMOTE_FILE} == 1);
        }
    }

    $ftp->quit;
    print '------------------------------------------',"/n",'从远程FTP获取文件结束',"/n";
}

#将文件上传到远程路径
sub put_local_file{
    print '------------------------------------------',"/n",'开始上传文件到远程FTP',"/n";
    my ( %remote_file_name );
   
    my $ftp = Net::FTP->new($ini_file{AUTO_FTP}{HOST_IP_UP}, Debug => 0)
            or die "cannot connect ftp server: $ini_file{AUTO_FTP}{HOST_IP_UP}; $@";
         
    $ftp->login($ini_file{AUTO_FTP}{HOST_USER_UP}, $ini_file{AUTO_FTP}{HOST_PWD_UP})
            or die 'Cannot login :', $ftp->message;
         
    $ftp->binary;
         
    chdir $ini_file{AUTO_FTP}{LOCAL_UP_PATH}
            or die "cannot change local download directory:$ini_file{AUTO_FTP}{LOCAL_UP_PATH}; $!/n";
         
    $ftp->cwd($ini_file{AUTO_FTP}{ROMOTE_UP_PATH})
            or die "Cannot change remote working directory:$ini_file{AUTO_FTP}{ROMOTE_UP_PATH};", $ftp->message;

    my @remote_file_list = $ftp->ls($ini_file{AUTO_FTP}{ROMOTE_UP_PATH});
   
    foreach (@remote_file_list){
        #print $_,"/n";
        $remote_file_name{$_} = 1;
    }
   
    #print Dumper %remote_file_name;
   
    my @local_file = <*>;
   
    if ($#local_file < 0){
        print "本地没有文件需要上传!$ini_file{AUTO_FTP}{LOCAL_UP_PATH}/n";
        return -1;
    }
   
    foreach my $l_file (@local_file){
        if ($l_file =~ m/$ini_file{AUTO_FTP}{UP_RULE}/){
            print "本地有需要上传的文件:$l_file/n";
           
            if (defined $remote_file_name{$l_file} && $remote_file_name{$l_file} == 1){
                print "服务器上出现同名文件!请检查文件名是否正确!/n";
                return -1;
            }
           
            $ftp->put($l_file) or die "put file failed:$l_file;", $ftp->message;
            my $file_aize = $ftp->size($l_file);
            print "已经上传了文件:[",$l_file,"],    文件大小: [$file_aize]","/n";
           
            #如果配置了备份目录,则进行备份,否则直接删除
            if (defined $ini_file{AUTO_FTP}{BACK_LOCAL_PATH}){
                my $file_path = File::Spec->catfile($ini_file{AUTO_FTP}{LOCAL_UP_PATH},$l_file);
                my $bak_dir   = $ini_file{AUTO_FTP}{BACK_LOCAL_PATH};
                move $file_path,$bak_dir or die "不能移动文件,$!/n";
                print "已经备份文件$file_path到目录:$bak_dir/n";
            }
            else{
                my $file_path = File::Spec->catfile($ini_file{AUTO_FTP}{LOCAL_UP_PATH},$l_file);
                unlink $file_path or die "delete file failed:$file_path; $!/n";
            }
        }
    }

    $ftp->quit;
    print '------------------------------------------',"/n",'上传文件到远程FTP结束',"/n";
}

#获取当前时间
sub now_time {
    my ($_r_type) = @_;
   
    my ($__now_time);
   
    my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) =
      localtime;
    $year += 1900 if ( $year >= 100 );
    $mon++;
   
    if ( $_r_type == 1 || !defined $_r_type ){
        $__now_time = sprintf( "%4s-%02s-%02s %02s:%02s:%02s",
            $year, $mon, $mday, $hour, $min, $sec );
    }
    elsif( $_r_type == 2 ){
        $__now_time = sprintf( "%4s%02s%02s_%02s%02s%02s", $year, $mon, $mday, $hour, $min, $sec );
    }
    elsif( $_r_type == 3 ){
        $__now_time = sprintf( "%02s%02s", $hour, $min );
    }
    else{
        die "未知的返回时间类型!/$_r_type=$_r_type/n";
    }

    return $__now_time;
}

sub p_usage {
    my $u=<<"END";
    Usage:
       autoftp [-u] [-d] [-f IniFileName]
       -u           进行上传
       -d           进行下载
       -f filename  配置文件
       -s           关闭调试模式,当未设置时信息会打印在屏幕,并且等待输入回车退出
      
       本程序不写日志,出现异常请直接运行一下程序

zdl0812/@163.com    Version ${VERSION}
END

    print $u;
    print "/n/n输入回车退出程序!/n";
    <>;
    exit;
}
print now_time(1),"/n";

my %CmdOpertion;
getopts('sudf:', /%CmdOpertion);

$CmdOpertion{f} = $CmdOpertion{f} || './autoftp.ini';

my $OptNum = keys %CmdOpertion;
if ($OptNum <= 1){
    print "/$OptNum=$OptNum/n";
    &p_usage;
    exit -1;
}


if ( -e $CmdOpertion{f} && -f $CmdOpertion{f} ){
    %ini_file = &ini_read($CmdOpertion{f});

    #print Dumper %CmdOpertion;
    #print Dumper %ini_file;
   
    get_remote_file() if defined $CmdOpertion{d};  #从远程获取文件
    put_local_file() if defined $CmdOpertion{u};   #上传文件到远程目录
   
    if (!defined $CmdOpertion{s}){
        print "/n/n输入回车退出程序!/n";
        <>;
        exit;
    }
}
else{
    print "找不到配置文件:$CmdOpertion{f}";
    &p_usage;
    exit -1;
}

ganmao
关注
专栏目录
shell脚本上传文件到ftp服务器,shell脚本实现FTP自动上传文件
weixin_33196106的博客
08-06 6284
-----多个文件-----#!/bin/bashftp -n<open 172.20.10.242user logftp logftpbinarycd /data/ftp/pcidata/pcilogftp/AppFile/loglcd /data/localaccpromptmget *.gzclosebye!----单个文件-----#!/bin/bashftp -n<open ...
[Perl]FTP自动上传文件的脚本以及配置文件
软件开发资料汇总
01-03 518
本应用程序设计的几个基本理念是：l         工具箱再利用：   尽可能利用已有的工具；l         简化运行步骤；   不引入过多的业务逻辑，满足的需求越简单越好。所以，我们定义了本应用程序依赖于以下几个工具的运行：l         ActivePerl-5.8.4.810-MSWin32-x86l         Upload.pll         Upload.config我
Perl的FTP-----get文件
zhangxinrun的专栏
07-09 3306
<br />在Perl中，使用模块Net::FTP来使用FTP服务，<br />一般的使用步骤如下：<br />1. 使用Net::FTP的new方法来创建一个新的FTP对象。<br />2. 使用login方法登录到FTP服务器。<br />3. 使用cwd方法来切换目录。<br />4. 使用get方法来获取文件。<br />5. 使用put方法来上传文件。<br />6. 使用quit方法退出。<br />下面是linux下perl编写的ftp程序连接非21端口的例子：<br />[root@loca
用Perl脚本实现FTP的文件下载
weixin_34061555的博客
05-21 3067
先讲一下项目背景，及系统需求。客户想每小时获取一下公司为其准备的生产数据，但数据是分布在不同的系统及不同的文件夹下。考虑到安全因素，也不可能把所有的服务器都暴露给客户。怎么办呢？可以考虑把分布在不同服务器的数据定时集中收集起来，放在一个共享给客户的文件夹下，供客户来读取。上图是实现FTP文件下载的架构，注意Unix客户端一般默认就有ftp服务，所以你只需打开服务就好。而win...
Perl脚本学习经验（三）--Perl中ftp的使用
weixin_30904593的博客
10-12 221
使用use Net::FTP;Demo: my $Server = '192.168.1.1'; my $User = 'admin'; my $Password = 'admin'; my $ftp = Net::FTP->new($Server,Passive => 0, Debug => 1,Timeout => 10) or die ...
perl访问ftp_使用Perl进行安全的网站访问
cuyi7076的博客
06-26 434
我承认我不是最有经验的Perl程序员。 幸运的是，当我陷入困境时，我知道我可以向众多书籍，杂志文章，网站，新闻组和邮件列表寻求帮助。 尽管我可以处理所有事情，但是始终无法获得一项关键信息。 无论从哪里看，我都找不到使用Perl和LWP从安全站点获取网页的理想解决方案。 经过许多痛苦和磨难之后，我终于编写了一个脚本来自己完成登录过程的自动化。 一路上，我注意到其他人也在努力解决类似的问题。 ...
FTP Synch:用于Perl的FTP同步脚本-开源
04-25
FTP Synch是一个基于Perl编程语言编写的开源工具，它的主要功能是实现本地文件系统与FTP服务器之间的文件同步。这个脚本对于那些需要定期更新或备份远程服务器文件的用户来说非常实用，例如网站管理员或者需要在多台...
ftp 自动登录脚本
02-01
FTP 自动登录脚本可以使用各种脚本语言编写，例如 Bash、Python、Perl 等。 知识点 4: Bash 脚本 Bash 是一种 Unix shell 语言，用于编写脚本程序。Bash 脚本可以用于实现自动化任务，例如自动备份、文件传输和...
Perl脚本自动化FTP文件同步
Muñoz开发了一个自动化脚本，它能够智能地识别本地网站副本与远程FTP服务器之间的差异，仅上传必要的更改内容，并删除不再需要的文件。 该脚本的开始部分强调了严格的错误处理，这是编程中至关重要的环节，因为...
用于将修改后的文件上传到FTP服务器的Perl脚本
04-11
标题中的“用于将修改后的文件上传到FTP服务器的Perl脚本”揭示了这是一个利用Perl编程语言编写的脚本，其主要功能是监测本地文件系统，识别出被修改的文件，并自动将其上传到FTP（File Transfer Protocol）服务器。...
perl实现ftp文件上传下载自动化
weixin_39430223的博客
07-07 445
在很多情况下，我们需要从远处服务器上下载当天或者昨天生成的日志文件，来查看一些我们需要的东西或者备份。 如果采用了ftp，那么我们应该建立自动化的ftp方式，来方便我们的工作，下面我们将使用perl语言编写的，当然也可以用shell。 利用了perl的模块：Net::FTP。 #!/usr/bin/perl use Net::FTP; my (sec,sec,sec,min,hour,hour,hour,mday,mon,mon,mon,year,wday,wday,wday,yday,$isdst)=lo
用perl作的ftp(转)
congjukun0600的博客
08-10 121
用perl作的ftp(转)[@more@]#!/usr/local/bin/perl################################################################## I fou...
perl脚本：FTP获得服务器文件
uusad的专栏
10-22 1898
该脚本采用FTP方式从批量服务器上获得文件。 #!perl #Author: HC #Date: 2012/10/22 use Net::FTP; use Cwd; $localFile = getcwd()."/log/"; if (!-e $localFile){ mkdir $localFile, 0755 or warn "Cannot make $localFile dir
perl中ftp操作案例
白飞飞_Alan
08-20 1460
sub upload_ftp{ my $ftp; my $ftp_dir; my $ftp_ip="14.2.33.64"; my $ftp_user="user"; my $ftp_pwd="user"; $ftp=Net::FTP->new($ftp_ip,Port=>21,BlockSize=1024000) ||die "create new ftp object fa
perl安装Net/SFTP/Foreign.pm
wonchenchu的专栏
02-23 1213
1.写了一个上传文件的perl脚本，运行时提示找不到Net/SFTP/Foreign.pm。 2.在cpan上面搜索包Net/SFTP/Foreign.pm然后下载，网址:https://metacpan.org/pod/ExtUtils::MakeMaker 3.解压之后，打开README文件，里面有安装方法 perl Makefile.PL make make test...
perl中FTP的使用
wqq_721
05-02 1719
#!/usr/bin/perl #-----------------------------------------------------# # # description : create and ftp subchange state file # author : wqq # date : 2012-04-30 # #----------------------
perl自动ftp的方法（Linux版本,Net::FTP）
clz619的专栏
10-07 2034
在很多情况下，我们需要从远处服务器上下载当天或者昨天生成的日志文件，来查看一些我们需要的东西或者备份。     如果采用了ftp，那么我们应该建立自动化的ftp方式，来方便我们的工作，下面我们将使用perl语言编写的，当然也可以用shell。     利用了perl的模块：N
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值