将Java转换为Perl(BigInteger)

时间:2013-02-28 12:30:01

标签: java perl biginteger



我正在尝试将java代码转换为perl代码。

BigInteger(byte[] val)

BigInteger
这是Java BigInteger构造函数。

Perl Math :: BigInt没有相同的构造函数 但我应该创建它和相同的Java BigInteger构造函数。

如何执行以下两个代码相同的输出 这很简单吗?还是很难? 我不知道..

爪哇

import java.security.MessageDigest; 
import java.math.BigInteger; 

public class Hash 
{ 
    public static void main( String[] args ) throws Exception 
    { 
        MessageDigest md5 = MessageDigest.getInstance("MD5"); 
        String plain = "abcd1234"; 
        BigInteger digest = new BigInteger(md5.digest(plain.getBytes("UTF-8"))); 

        System.out.println( digest.abs() ); 
    } 
} 

的Perl

use Digest::MD5 'md5_hex'; 
use Math::BigInt; 

my $plain = "abcd1234"; 
my $digest = Math::BigInt::->from_hex(md5_hex $plain); 
print $digest, "\n"; 

0 个答案:

没有答案