论坛 › Perl › php,perl计算crc

shisgmei 发表于 2015-12-27 08:10:37

php,perl计算crc

　　PHP版：



<?php
echo getCrc32("/var/www/html/resource/koc_data/2013_03/01/1ck65e.koc") ;
# php获取crc32
function getCrc32($filename) {
if( !file_exists($filename) ) return "0" ;
$fileSize = filesize($filename);
if( 0 == $fileSize ) return "0" ;
$fileString = file_get_contents($filename) ;
$crc = strtoupper( dechex( crc32($fileString) ) );
$ret = $crc."_".$fileSize;
return $ret;
}
?>
　　Perl:



# 需要先安装 String::CRC32
use String::CRC32;
sub getCrc{
open my $fd , '<' , $filepath or die("error");
my $crc2 = crc32($fd);   
my $crc_out = sprintf("%x", $crc2);
print uc($crc_out) ;
}

　　

查看完整版本: php,perl计算crc