#/usr/bin/perl
use strict;
use warnings;
use constant DIV => 24;
my $v = shift or die "Usage: $0 ";
my $d = 0;
my $str = '';
do {
my $c = chr(ord('A') + ($v % DIV));
$str = $c . $str;
$v = int($v / DIV)
} while ($v > 0);
print $str;
0;
订阅:
博文评论 (Atom)
BlockChain 相关电子书
@copyright of Sam Chadwick - https://thehub.thomsonreuters.com/groups/bitcoin/blog/2017/09/10/blockchain-paper Blockchain Papers A c...
-
如何在 OpenWRT 下产生随机数: MY_RANDOM=$(head /dev/urandom | tr -dc "0123456789" | head -c4) 如果是的Bash, Zsh, 或者BusyBox启用了RANDOM, 是可以直接使用内置...
-
@copyright of Sam Chadwick - https://thehub.thomsonreuters.com/groups/bitcoin/blog/2017/09/10/blockchain-paper Blockchain Papers A c...
-
Finally the my Ubuntu linux is authenticated with the Windows IAS 802.1x RADIUS server. Thanks Xsupplicant, thanks Open1x project to provid...
没有评论:
发表评论