perlCPAN模块DBI.DBD::Mysql




 


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);