1



我正在尝试将 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"; 
4

0 回答 0