请帮我翻译这个小PHP函数到perl

Question

我在perl中需要这个功能：

<?php
function dv($r){$s=1;for($m=0;$r!=0;$r/=10)$s=($s+$r%10*(9-$m++%6))%11;
return chr($s?$s+47:75);}
?>

我从here得到了这个，其中已经是一个perl函数，用于执行相同的任务（here），但它有时无法正确计算。 PHP函数确实可以正常工作。

提前致谢！

Answer 1

PHP可以直接翻译成perl：

sub dv{
   my $r=pop;
   my ($s, $m) = (1, 0);
   for(;$r!=0;$r/=10) {
      $s=($s+$r%10*(9-$m++%6))%11;
   }
   return chr($s?$s+47:75);
}

额外换行因为......哇。那很难看。