闲来无事 : 一月 2017

2017/01/07

中国教育网 DNS 服务器列表

http://www.dnsdizhi.com/edudns.html

好网站，值得收藏！

2017/01/02

Perl script to convert to x Based String


#/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)