# MD5Check =head1 NAME MD5Check - Use it for init Web files's md5 values of your site(or other dir), and check if it changed. 检查web目录(或者其他重要系统目录)md5值,当目录文件变化提醒。用于文件防篡改。 =head1 SYNOPSIS use MD5Check; ## 初始化目录md5值,参数为要监控的目录 my $mydir=shift; md5init($mydir); ## 对目录文件进行检查,只需输入之前保存的md5 文件值。 use MD5Check; my $mydir=shift; md5check($mydir); # oneliner,perl单行程序实现功能。 需要安装该模块,简单通过 cpanm MD5Check 安装。 $ perl -MMD5Check -e 'md5init("/web")' >file $ perl -MMD5Check -e 'md5check(file)' =head1 DESCRIPTION MD5Check - Use it for init Web files's md5 values of your site(or other dir), and check if it changed. MD5Check is not standardized. This module is far from complete. =head2 IMPLEMENTATION use MD5Check; my $mydir=shift; md5init($mydir); use MD5Check; my $mydir=shift; md5check($mydir); =head1 Git repo L =head1 AUTHOR orange C<< >>, L =head1 COPYRIGHT AND LICENSE Copyright (C) 2016 linzhe This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut