Perl 模块(2)

1.Net::telnet 模块

use Net::telnet;

$telnet=Net::telnet->new(192.168.1.1);

$telnet->login(user,pass);

@lines=$telnet->cmd('ps -ef');

print @lines;

==================================

2. Net::SMTP_auth 模块

use Net::SMTP_auth;
open(AI,'d:test.txt');

$smtp = Net::SMTP_auth->new('smtp.163.com',
Hello => '163.com',
Debug => 1);
$smtp->auth('LOGIN','a@163.com','xxxxx');
$smtp->mail('a@163.com');
$smtp->to('a@163.com');
$smtp->data();
$smtp->datasend("From:a@163.com n");
$smtp->datasend("To: a@163.com n");
$smtp->datasend("Subject: Test Mail n");
$smtp->datasend("n");
while (<AI>) {

??? $smtp->datasend("$_");
}

$smtp->dataend();
$smtp->quit;

================================================

3.Net::SMTP?? 模块

use Net::SMTP;

$mail_server = 'smtp.163.com';
$mail_from = 'a@163.com';
$mail_to = 'b@163.com';
$uname='a@163.com';
$passwd='xxxxx';

#开启Debug模式
$smtp = Net::SMTP->new("$mail_server",Debug => 1);
#普通发送模式
#$smtp = Net::SMTP->new("$mail_server" );
$smtp->auth("$uname","$passwd");
$smtp->mail("$mail_from");
$smtp->to("$mail_to");
$smtp->data();
$smtp->datasend("To: $mail_fromn");
$smtp->datasend("Cc: 'me@163.com','me2@gmail.com'n"); # 可抄送给多个人
$smtp->datasend("From: $mail_fromn");
$smtp->datasend("Reply-To: $mail_fromn");
$smtp->datasend("Return-Path: $mail_fromn");
$smtp->datasend("Subject: 1 Subjectn");
#$smtp->datasend("Content-Type: text/plain; ChartSet=gb2312");
$smtp->datasend("n"); # 解决了正文没有显示的问题

# Send your email content
$smtp->datasend("I am a cat!n");
$smtp->datasend("n");
$smtp->dataend();
$smtp->quit;

实例：

use strict;
use warnings;
use Win32::OLE;

open(DF,'//192.168.1.5/test/df.txt') or die "Cannot open: df.txtn";
my @vol=<DF>;

my $app_xls=Win32::OLE->new('Excel.Application') or die "Cannot install exceln";
#? $app_xls->{DisplayAlerts}='False';
my $src_book=$app_xls->WorkBooks->Open('C:scripts120713-From-空?-?份-CGXM.xlsx') or die "Can not open filen";
my $src_sheet=$src_book->Worksheets(1) or die "Can not open sheetn";
$src_sheet->Cells(57,'E')->{'Value'}=int($vol[1]/1024/1024);????? # Mirror2 OS
$src_sheet->Cells(58,'E')->{'Value'}=int($vol[2]/1024/1024);?? # Mirror2 bkup3
$src_sheet->Cells(54,'E')->{'Value'}=int($vol[3]/1024/1024);????? # Mirror OS
$src_sheet->Cells(55,'E')->{'Value'}=int($vol[4]/1024/1024);?? # Mirror bkup
$src_sheet->Cells(56,'E')->{'Value'}=int($vol[5]/1024/1024);?? # Mirror bkup2

$src_sheet->Cells(59,'E')->{'Value'}=int($vol[6]/1024/1024);????? # Backup OS

$src_sheet->Cells(8,'E')->{'Value'}=int($vol[7]/1024/1024);?????? # Data1 OS
$src_sheet->Cells(9,'E')->{'Value'}=int($vol[8]/1024/1024);??? # Data1_db1A

$src_sheet->Cells(15,'E')->{'Value'}=int($vol[9]/1024/1024);????? # Data2_OS
$src_sheet->Cells(16,'E')->{'Value'}=int($vol[10]/1024/1024);? # Data2_db2A
$src_sheet->Cells(21,'E')->{'Value'}=int($vol[11]/1024/1024);? # Data2_db2B

$src_sheet->Cells(23,'E')->{'Value'}=int($vol[12]/1024/1024);???? # Data3_OS
$src_sheet->Cells(24,'E')->{'Value'}=int($vol[13]/1024/1024);? # Data3_db3A
$src_sheet->Cells(26,'E')->{'Value'}=int($vol[14]/1024/1024);? # Data3_db3B
$src_sheet->Cells(27,'E')->{'Value'}=int($vol[15]/1024/1024);???? # Data3_db3C
$src_sheet->Cells(29,'E')->{'Value'}=int($vol[16]/1024/1024);? # Data3_db3D

$src_sheet->Cells(31,'E')->{'Value'}=int($vol[17]/1024/1024);???? # Data4_OS
$src_sheet->Cells(32,'E')->{'Value'}=int($vol[18]/1024/1024);? # Data4_db4A
$src_sheet->Cells(33,'E')->{'Value'}=int($vol[19]/1024/1024);? # Data4_db4B
$src_sheet->Cells(34,'E')->{'Value'}=int($vol[20]/1024/1024);? # Data4_db4C
$src_sheet->Cells(35,'E')->{'Value'}=int($vol[21]/1024/1024);? # Data4_db4D

$src_sheet->Cells(39,'E')->{'Value'}=int($vol[22]/1024/1024);???? # Frames1_OS
$src_sheet->Cells(40,'E')->{'Value'}=int($vol[23]/1024/1024);? # Frames1_f1A
$src_sheet->Cells(42,'E')->{'Value'}=int($vol[24]/1024/1024);???? # Frames1_f1B
$src_sheet->Cells(44,'E')->{'Value'}=int($vol[25]/1024/1024);???? # Frames1_f1C
$src_sheet->Cells(45,'E')->{'Value'}=int($vol[26]/1024/1024);? # Frames1_f1D

$src_sheet->Cells(46,'E')->{'Value'}=int($vol[27]/1024/1024);???? # Frames2_OS
$src_sheet->Cells(47,'E')->{'Value'}=int($vol[28]/1024/1024);? # Frames2_f2A
$src_sheet->Cells(50,'E')->{'Value'}=int($vol[29]/1024/1024);? # Frames2_f2B

$src_book->Save;
#$app_xls->{DisplayAlerts}='True';
#$src_book->Close;
undef $app_xls;
undef $src_book;
my $KillExcel = `taskkill /F /IM EXCEL.EXE 2>> nul`;?????
chomp $KillExcel;
print "结束Excel程序：$KillExceln" if ($KillExcel);
sleep 2;
?============================================

4. Email::Valid? 模块????????? (验证邮件的有效性)

use strict;
use warnings;
use Email::Valid;
my $email_address='zhaod06211@example.';

unless (Email::Valid->address($email_address)) {
?print "Sorry,that mail address is not validn";
}

?=================================================

5.Spreadsheet::WriteExcel? 模块

use Spreadsheet::WriteExcel;
use strict;
my $filename='D:a.txt';
open(DF,$filename) || die "Cannot open file: $!";
my @a=<DF>;
my $use=$a[0];
my $add=$a[1];
my $res=$a[2];

my $xls=Spreadsheet::WriteExcel->new('perl.xls');
my $xlsContent=$xls->add_worksheet('report');
my $format = $xls->add_format();
?? $format->set_size(11);
?? $format->set_bold();
?? $format->set_color('red');
?? $format->set_align('center');

$xlsContent->write("A1",$use,$format);
$xlsContent->write("B1",$res,$format);
$xlsContent->write("C1",$add,$format);
$xls->close();

================================================

Win32::OLE? 模块

use strict;
use warnings;
use Win32::OLE;?? #导入win32 OLE包

print($nowstr);
$src_sheet->Cells(1,'A')->{Value}="change";? #修改一单元格中数据

my $dst_book = $app_xls->WorkBooks->Open($dst_name);
my $dst_sheet = $dst_book->Worksheets(1);
$app_xls->{DisplayAlerts} = 'False';??? #关掉excel的提示，比如是否保存修改之类的
#$dst_book->Worksheets(1)->Delete; #删除一工作表

#从一个excel里复制一工作表到另一excel中
$src_book->Worksheets(1)->Copy($dst_book->Worksheets('sheet3'));?
$dst_book->Save;? #保存所做修改
$app_xls->{DisplayAlerts} = 'True'; #恢复提示

===============================================================

Net::SNMP 模块

use strict;
use Net::SNMP;

my $OID_Mail_C='1.3.6.1.2.1.25.2.3.1.6.1';? # 查询windows磁盘容量的使用情况 OID
my $OID_Mail_D='1.3.6.1.2.1.25.2.3.1.6.2';
my $OID_Mail_E='1.3.6.1.2.1.25.2.3.1.6.3';
my $OID_Mail_F='1.3.6.1.2.1.25.2.3.1.6.4';

my ($session,$error) = Net::SNMP->session(
?????????????????????? -hostname => '192.168.1.3',
??????? -community => 'public',
????????????? -version => 'snmpv2c',
);
if (! defined $session) {
?printf "ERROR: %s.n",$error;
?exit 1;
}
my $result = $session->get_request(-varbindlist => [$OID_Mail_C,$OID_Mail_D,$OID_Mail_E,$OID_Mail_F]);
if (!defined $result) {
???? printf "ERROR: %s.n",$session->error();
? $session->close();
? exit 1;
}
my $Mail_C_use=int(($result->{$OID_Mail_C} * 4096) / 1024/1024/1024); # byte 转换为 G
my $Mail_D_use=int(($result->{$OID_Mail_D} * 4096) / 1024/1024/1024);
my $Mail_E_use=int(($result->{$OID_Mail_E} * 4096) / 1024/1024/1024);
my $Mail_F_use=int(($result->{$OID_Mail_F} * 4096) / 1024/1024/1024);
print $Mail_E_use;

?===================================================

IO::Socket模块 (监控服务是否正常并email)

#! /usr/bin/perl
#use strict;
use IO::Socket;
use Net::SMTP;
#@time=localtime();
#print "@time";
# Mail
use constant SMB_PORT => (139,445);
use constant SMB_SERVER => ('192.168.1.224');

##### Check server port is alive ######

sub check_server_port {
??? my($server,$port)=@_;
??? $sock=IO::Socket::INET->new(PeerAddr=>$server,PeerPort=>$port,Proto=>'tcp');
??? unless ($sock) {
??????? return 0;
??? }
use constant SMB_PORT => (139,Proto=>'tcp');
??? unless ($sock) {
??????? return 0;
??? }
??????? $sock->close();
??????? return 1;
}
##### Send Mail #####
sub mail {
???? $mail_server='mail.cgxm.com';
???? $mail_from='zhaod@xxx.com.cn';
???? $mail_to='zhaod@xxx.com.cn';
???? $username='zhaod';
???? $passwd='xxx.';
???? ($subject,$message)=@_;
???? $smtp=Net::SMTP->new("$mail_server",debug=>1);
???? $smtp->auth("$username","$passwd");
???? $smtp->mail("$mail_from");
???? $smtp->to("$mail_to");
???? $smtp->data();

???? $smtp->datasend("To: $mail_ton");
???? $smtp->datasend("From: $mail_fromn");
???? $smtp->datasend("Subject: $subjectn");
???? $smtp->datasend("n");

???? $smtp->datasend("n$message");
???? $smtp->dataend();

???? $smtp->quit();
}
##### Check server is alive mail #####

sub monitor_main {
??? # check Mail
??? foreach $item (SMB_SERVER) {
???????? foreach $port (SMB_PORT) {
????????????? if (!check_server_port($item,$port)) {
????????????????? mail('Wraning',"$item?
??????????????????????? samba服务停止运行，请处理.")

????????????? } else {
????????????????? print "smb server is upn";
????????????? }
???????? }
??? }
}

monitor_main()