一个简单的Perl脚本，可以用来备份PostgreSQL。

fender0107401

相当简单。看懂了expect那段以后，可以很容易地进行各种扩展。

Perl和PostgreSQL都是非常优秀的工具，一起使用效果相当好。

1. #! /usr/bin/env perl
   
2. 
   
3. use strict;
   
4. 
   
5. use Expect;
   
6. 
   
7. ################################################################################
   
8. 
   
9. my $db_host = "";
   
10. my $db_name = "";
    
11. my $db_user = "";
    
12. my $db_pass = "";
    
13. 
    
14. my $cmd = "pg_dump --host $db_host --port $db_port --dbname $db_name --username $db_user --file $backup_file_name --format p --password";
    
15. 
    
16. my $exp = Expect->new;
    
17. 
    
18. $exp->raw_pty(1);
    
19. 
    
20. $exp->spawn($cmd);
    
21. 
    
22. $exp->expect(
    
23.     undef, 'Password:' => sub
    
24.     {
    
25.         $exp->send($db_pass);
    
26.         $exp->send("\n");
    
27.         exp_continue;
    
28.     }
    
29. );
    
30. 
    
31. ################################################################################

复制代码

laputa73

pgdump不可以直接指定password么？