# 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; print md5init($mydir); ##生æˆæ‰§è¡Œæ–‡ä»¶ï¼Œä¿å˜ä¸ºfileinit.pl然åŽæ‰§è¡Œ perl fileinit.pl web目录 > webmd5-20160920 ## 对目录文件进行检查,åªéœ€è¾“入之å‰ä¿å˜çš„md5 文件值。 use MD5Check; my $mydir=shift; print md5check($mydir); ## perl filemd5check.pl webmd5-20160920。 ## oneliner,perlå•è¡Œç¨‹åºå®žçŽ°åŠŸèƒ½ã€‚ 需è¦å®‰è£…该模å—,简å•é€šè¿‡ cpanm MD5Check 安装。 $ perl -MMD5Check -e 'print md5init("/web")' >file $ perl -MMD5Check -e 'print 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. =head1 Git repo [github](https://github.com/bollwarm/MD5Check) =head1 AUTHOR [orange] <linzhe@ijz.me>,[blog](http://ijz.me) =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