自动从ftp下载文件（不回显输入密码）

oldmonst

[Perl]代码

1. #!/usr/bin/perl
   
2. #===============================================================================
   
3. #
   
4. #         FILE:  autoftp.pl
   
5. #
   
6. #        USAGE:  ./autoftp.pl  
   
7. #
   
8. #  DESCRIPTION:  Download data from ftp automatically
   
9. #
   
10. #      OPTIONS:  ---
    
11. # REQUIREMENTS:  ---
    
12. #         BUGS:  ---
    
13. #        NOTES:  ---
    
14. #       AUTHOR:  Will
    
15. #      COMPANY:  CNNDC
    
16. #      VERSION:  1.0
    
17. #      CREATED:  11/18/2010 03:06:49 AM
    
18. #     REVISION:  ---
    
19. #===============================================================================
    
20. 
    
21. # use strict;
    
22. use warnings;
    
23. use Net::FTP;
    
24. use Term::ReadKey;
    
25. 
    
26. die "Usage:\n\t$0  [user]\@Server:file\n" if (!scalar @ARGV);
    
27. my ($user, $password, $server, $file) = qw#anonymous anonymous@mail#;
    
28. my $debug=0;
    
29. 
    
30. ($server, $file) = $ARGV[0] =~ /\@?([\w\d]+):([\w\W]+)/;
    
31. if ( $ARGV[0] =~ /([\w\W]+)\@/ ) {
    
32.         $user = $1;       
    
33.         print "Input password: ";
    
34.         ReadMode 2;
    
35.         chomp($password=<STDIN>);
    
36.         ReadMode 0;
    
37. }
    
38. # print "$user, $password, $server, $file\n";
    
39. 
    
40. my $ftp = Net::FTP->new("$server", Debug => $debug)
    
41.         or die "Can NOT connect to $server. $@";
    
42. $ftp->login("$user", "$password")
    
43.         or die "Can NOT loggin. ", $ftp->message;
    
44. $ftp->binary()
    
45.         or die "Can NOT set binary mode. ", $ftp->message;
    
46. $ftp->get("$file")
    
47.         or die "get $file failed. ", $ftp->message;
    
48. $ftp->quit;
    

复制代码