一个用FTP批量上传文件的perl脚本，支持目录上传

有时候需要在字符界面下上传文件，尤其是自动上传。

本脚本可以自动判断要上传的是文件还是目录，如果是文件直接上传，如果是目录则递归上传。

自己觉得，写的十分的不优雅，比较Ugly...

代码：

  1 #!/usr/bin/perl -w
  2
  3 # Procedure Name: ftpupload.pl
  4 # Author        : Felix New ( felix@hebut.org )
  5 # Date          : 2007-11-27
  6 #
  7 # Usage: ftpupload.pl server username password  save_dir {file|dir}
  8 #             where:
  9 #                server   - name of remote machine
 10 #                username - ftp username on remote machine
 11 #                password - password for username on remote machine
 12 #                save     - save directory / directory, default to user's root
 13 #                file     - local file for upload
 14 #                dir      - local dir for upload
 15 #
 16 # modify:
 17 # Author        : Felix New (felix@hebut.org)
 18 # Date          : 2007-12-06
 19 # Comment       : Add function judge the item is a file or directory,
 20 #                   if the last onw then upload the directory recursivly.
 21
 22
 23 use strict;
 24 use Net::FTP;
 25 use File::Basename;
 26 use File::Spec::Functions;
 27
 28 $| = 1;
 29 my $prog = 'ftpupload.pl';
 30
 31
 32 ##############################
 33 ###       Main  Start      ###
 34 ##############################
 35
 36 ### get arguments
 37
 38 if ( $#ARGV < 4 )
 39 {
 40     print "Usage: $prog server username password save_dir {file|directoyr}... ";
 41     die "Argument error! ";
 42 }
 43
 44 my ($srv, $usr, $pwd, $remoteDir, @files);
 45 $srv = shift @ARGV;
 46 $usr = shift @ARGV;
 47 $pwd = shift @ARGV;
 48 $remoteDir = shift @ARGV;
 49
 50
 51 ##############################
 52 ###       Main  Start      ###
 53 ##############################
 54
 55
 56 ### create ftp and upload file
 57 print "ftp:   $srv: ";
 58 print "ftp directory: $remoteDir ";
 59 print "localfiles: @ARGV ############ ";
 60
 61 my $ftp = new Net::FTP( $srv, Passive => 1, BlockSize => 81920, Timeout => 300, Debug => 0);
 62
 63 $ftp->login($usr, $pwd) or die "Can't not login ", $ftp->message, " ";
 64 $ftp->binary;
 65
 66 &init();
 67
 68
 69 foreach my $arg (@ARGV)
 70 {
 71     if (-d $arg)
 72     {
 73         &upload(glob "$arg/*");
 74     }else
 75     {
 76         &upload($arg);
 77     }
 78 }
 79
 80 $ftp->quit();
 81
 82
 83 ##############################
 84 ###    Main     End        ###
 85 ##############################
 86
 87 sub upload()
 88 {
 89     foreach my $item (@_)
 90     {
 91         next if ($item =~ /.$/);
 92         next if ($item =~ /..$/);
 93
 94         next if ! $item;
 95         $item =~ s//*$//g;
 96
 97         ### the director is exists?
 98         my $basename = basename($item);
 99         my $dirname = dirname($item);
100
101         if( -d $item)
102         {
103             print "directory: $item ";
104
105             ### check the basename exists
106             my @list=$ftp->ls();
107             my $count = 0;
108             while ( $count <= $#list )
109             {
110                 if ( $list[$count] eq $basename)
111                 {   ### exists
112                     last;
113                 }
114                 $count++;
115             }
116
117             ## the directory is not exists
118             if ($count > $#list)
119             {
120                 $ftp->mkdir($basename);
121                 print "create $basename. ";
122             }
123             $ftp->cwd($basename);
124
125             my @subitem = glob "$item/*";
126             &upload(@subitem);
127             $ftp->cdup();
128         }else
129         {
130             $ftp->put($item) or (print "upload file $item failed ", $ftp->message, " " and next);
131             print "$item ok. ";
132         }
133     }
134 }
135
136 sub init()
137 {
138     my $tmpdir = $remoteDir;
139
140     $tmpdir =~ s//*$//g;
141
142     while((my $offsize = index($tmpdir, '/')) > 0)
143     {
144         $tmpdir =~ s/^/*//g;
145         my $checkdir = substr($tmpdir, 0, $offsize);
146
147         my @list=$ftp->ls();
148         my $count = 0;
149         while ( $count <= $#list )
150         {
151             if ( $list[$count] eq $checkdir)
152             {   ### exists
153                 last;
154             }
155             $count++;
156         }
157
158         ## the directory is not exists
159         if ($count > $#list)
160         {
161             $ftp->mkdir($checkdir);
162             print "create $checkdir. ";
163         }
164         $ftp->cwd($checkdir);
165         $tmpdir = substr($tmpdir, $offsize + 1);
166     }
167
168     if($tmpdir)
169     {
170         my @list=$ftp->ls();
171         my $count = 0;
172         while ( $count <= $#list )
173         {
174             if ( $list[$count] eq $tmpdir)
175             {   ### exists
176                 last;
177             }
178             $count++;
179         }
180
181         ## the directory is not exists
182         if ($count > $#list)
183         {
184             $ftp->mkdir($tmpdir);
185             print "create $tmpdir. ";
186         }
187         $ftp->cwd($tmpdir);
188     }else
189     {
190         ### if $remoteDir is '/'
191         $ftp->cwd($remoteDir) if ! $tmpdir;
192     }
193 }