perl 系统文件监控脚本

概述script 说明： 该脚本可以对指定的系统重要文件进行监控，当文件被查看或修改后，脚本会查看最近登陆系统的用户和IP,并发邮件通知。 #!/usr/bin/perl  use strict;  use Mail::Sender;  use Digest::SHA;  my @files=('/etc/passwd', '

script 说明：

该脚本可以对指定的系统重要文件进行监控，当文件被查看或修改后，脚本会查看最近登陆系统的用户和IP,并发邮件通知。

  #!/usr/bin/perl     use strict;     use Mail::Sender;     use Digest::SHA;     my @files=('/etc/passwd', '/etc/shadow', '/var/log/wtmp');     my $last_cmd=`last -2`;          while (1) {             my %md5_res;             my %output;             my @change;             foreach my $file (@files) {                     $md5_res{$file}=MD5_digest($file);             };                     while(1) {                             sleep 10;                             foreach my $file (@files) {                                     if ($md5_res{$file} ne MD5_digest($file)) {                                             $output{$file}="$file is changed";                                          };                             };                             if (%output) {                                     foreach my $key (%output) {                                            print "$output{$key}\n";                                          }                                     print "$last_cmd";                                     last;                             };                     };     };          sub MD5_digest {             my $file=shift;             my $sha=Digest::SHA->new('256');             $sha->addfile($file);             my $digest=$sha->hexdigest;             return "$digest";     }                    sub Send_mail {             my($subject,$msg)=@_;             my $sender=new Mail::Sender->MailMsg({              smtp => 'mail.aaa.com',              from => 'neo@aaa.com',              to =>'neo@gmail.com',              subject => $subject,              msg => $msg,              auth => 'LOGIN',              authID => 'neo',              authpwd => '1234',}             ) or dIE "$Mail::Sender::Error\n";             print "Mail sent ok";     }   

总结

以上是内存溢出为你收集整理的perl 系统文件监控脚本全部内容，希望文章能够帮你解决perl 系统文件监控脚本所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。