您需要使用 Perl（或其他方式）对数字进行除法，并以小数点后 10 位的精度输出结果。例如，如果您在 Bash 中使用命令：
echo "scale=10;6518772587507843661 / 203"| bc
结果：32112180234028786.5073891625
如果通过 Perl：
$a=6518772587507843661/203;
printf ("%.10f\n",$a);
结果：32112180234028788.0000000000
如何在 Perl 中使结果与通过“bc”相同，以便答案是 - 32112180234028786.5073891625？
如何使“word”变量自动从文本文件中获取行？处理第一行后，输出结果，写入文件，然后从第二行、第三行等开始重复所有内容。线。
__author__ = 'xcbtrader'
# -*- coding: utf-8 -*-
from bitcoin import *
def crear_addr_word(word):
priv = sha256(word)
pub = privtopub(priv)
addr = pubtoaddr(pub)
wif = encode_privkey(priv, 'wif')
return addr, priv, wif
word = input('Ведите фразу')
addr, priv, wif = crear_addr_word(word)
print('####################################################')
print('WORD: ' + word)
print('ADDR: ' + addr)
print('PRIV: ' + priv)
print('WIF: ' + wif)
print('####################################################')