perlCPAN模块DBI.DBD::Mysql

1. my $db_host = "localhost"; 
2.  my $db_port = "3306"; 
3.  my $db_user = "root"; 
4.  my $db_pass = "redhat"; 
5.  my $db_name = "test"; 
6.  my $dsn = "DBI:mysql:$db_name:$db_host:$db_port"; 
7.  my $dbh = DBI->connect($dsn,$db_user,$db_pass,{RaiseError => 0,PrintError => 0}) or return ("0"); 
8.     $dbh->do("set names gbk"); 
9. #   my $sth = $dbh->prepare("select * from mysql.user"); 
10. #      $sth->execute(); 
11. #               while(my @row = $sth->fetchrow_array){ 
12.                 #       print "@row\n"; 
13.  #   } 
14.         $sth = $dbh->prepare("SHOW SLAVE STATUS"); 
15.         $sth->execute(); 
16.                 while(my $hash=$sth->fetchrow_hashref){ 
17.                         my $iostate = $hash->{
    'Slave_IO_Running'}; 
18.                         my $sqlstate = $hash->{
    'Slave_SQL_Running'}; 
19. #       print "$iostate\n$sqlstate\n"; 
20.                                 if ($iostate eq 'No' || $sqlstate eq 'No'){ 
21.                                         warn "Mysql Slave database down..\n"; 
22.     } 
23.   } 

perl标准模块Net::Ping和IO::Socket

1. #!/usr/bin/perl 
2. use warnings; 
3. use strict; 
4. use IO::Socket; 
5. use Net::Ping; 
6. my $host = "192.168.1.2"; 
7. my $port = "80"; 
8. my $p=Net::Ping->new("icmp"); 
9. $p->ping($host,5) ? print "$host: runing\n" : print "$host: down\n"; 
10. my $sock = IO::Socket::INET->new( 
11.                         Timeout => 4, 
12.                         PeerAddr => $host, 
13.                         Peerport => $port, 
14.                         Proto   => "tcp", 
15. ); 
16. $sock ? print "$port: Listening\n" : print "$port: faild\n"; 

perl标准模块中FIle::Find的使用方法.

1. #!/usr/bin/perl 
2. use warnings; 
3. use strict; 
4. use File::Find; 
5. my $path="/etc/"; 
6. sub wanted{ 
7.         my $file=$File::Find::name; 
8.         if(-f $file and -s $file > 5000 and -s $file < 10000){ 
9.         if($file =~m/\.conf$/){ 
10.         print "$file\n"; 
11.   } 
12.  } 
13. } 
14. find(\&wanted,$path); 

perl标准模块Net::SMTP和依赖CPAN模块Net::SMTP_auth认证模块.

1. #!/usr/bin/perl 
2. use warnings; 
3. #use strict; 
4. use Net::SMTP; 
5. use Net::SMTP_auth; 
6. my $smtp_mail_host = 'smtp.sinanet.com'; 
7. my $mail_user_from = 'donghui@leju.sina.com.cn'; 
8. my $mail_user_to = 'donghui@leju.sina.com.cn'; 
9. my $mail_user_pass = "P@ssW0rd"; 
10. my $mail_helo = 'mail.sinanet.com'; 
11. $smtp = Net::SMTP->new( 
12.                 Host => "$smtp_mail_host", 
13.                 Hello => "$mail_helo", 
14.                 Timeout => 40, 
15.                 Debug => 1, 
16. ) or die "can not connect mail server\n"; 
17. $smtp->auth("$mail_user_from","$mail_user_pass") or die "auth failed!\n"; 
18. $smtp->mail("$mail_user_from"); 
19. $smtp->to("$mail_user_to"); 
20. $smtp->data(); 
21. $smtp->datasend("mail test!!\n"); 
22. $smtp->datasend("donghui\n"); 
23. $smtp->dataend(); 
24. $smtp->quit(); 

perl中远程执行命令CPAN模块:Expect

1. #!/usr/bin/perl 
2. use warnings; 
3. use strict; 
4. use Expect; 
5. my $host = "192.168.1.2"; 
6. my $pass = "redhat"; 
7.  $ENV{
   'TERM'} = "xterm"; 
8. my $exp = Expect->new; 
9.    $exp->log_stdout(0); 
10.    $exp = Expect->spawn("ssh -l root $host") or die "can't conenct $host\n"; 
11.    $exp->log_file("ssh_host.log","w"); 
12.    $exp->expect(3,[qr/connecting \(yes\/no\)/i, 
13.                         sub{ 
14.                                 my $self = shift; 
15.                                 $self->send("yes\n"); 
16.                                 exp_continue; 
17.  }], 
18. [ 
19.         qr/password:/i, 
20.         sub{ 
21.                 my $self = shift; 
22.                 $self->send("$pass\n"); 
23.                 exp_continue; 
24.  }] 
25. ); 
26. $exp->send("netstat -ntpl\n") if ($exp->expect(undef,'#')); 
27. $exp->send("exit\n") if($exp->expect(undef,'#')); 
28. $exp->log_file(undef);