教你做一个最简单的「比特币报价微信机器人」

小林的预测只是玩笑和谈资切勿直接作为投资参考

此前写过一篇《用 Perl 语言 Mojo::Weixin 模组开发微信聊天机器人》，小林陆陆续续开发了圣经查询、数字货币价格查询、实时汇率价格转换和类 MUD 动作等趣味小功能。

去年5月上旬比特币价格到达10000美元顶点之后很快进入了熊市，很多此前连睡觉都觉得奢侈的3点钟不眠人作为区块链信仰者有的倾家荡产，有的叛逃了，比特币再次被质疑。

小林以极其无厘头的直觉推测今年6月份比特币会到达1万美金。最近比特币的价格确实又飚升起来了，并且很快就超过了去年的价格，最高将近14000美金，信仰又回来了。

很多人对数字货币报价机器人比较感兴趣，不少人还拉小林进群当真的机器人使，各种调侃，小林可是真人啊，有人问你是机器人吗？小林只好告诉对方：「我不是机器人，但是我有机器人！」。

发送 BTC 查询比特币价格

因为目前 Chatbot 在微信生态属于灰色地带，据了解如果被判恶意，严重的情况会被关闭 Web 版的使用权限，但是 iPad、Mac 和 Windows 版权限 并不会被关闭，这也解释了新注册的 ID 为什么无法使用 Web 版的原因。

小林真不能也不应该被拉到 N 个群去当报价机使唤，如果你们有自己的社群，大可以用自己的 ID 或者小号体验一下，先给出一个最简易的版本大家部署来玩玩，如果不是币圈炒币群，只查询 BTC 够了！

部署方法参考此前的文章，这个版本使用的代码使用 blockchain.info 的免费 API，只返回比特币的美元价格和人民币价格供参考。将代码保存下来，在安装好 JSON 和 Mojo::Weixin 模组的环境中，执行后会提示一个二维码相关路径，拷贝地址通过浏览器打开再通过微信客户端扫描既可。

小林自己有一个使用 CoinMarketCap 的版本，支持常见的数千种数字货币。因为免费 API 的配额每个月只有10000个信用点，小林只能做到每5分钟更新一次，感兴趣的朋友先加入小林读者群体验。

#!/usr/local/bin/perl	
use JSON;	
use Mojo::Weixin;	
my $client = Mojo::Weixin->new(	
    http_debug => 0,	
    log_level  => "info"	
);	
$client->load("ShowMsg");	
$client->on(	
    ready => sub {	
        my $client = shift;	
        $client->on(	
            receive_message => sub {	
                my ( $client, $msg ) = @_;	
                if($msg->format eq 'text' && $msg->type eq 'group_message' ){ # 群组:group_message / 好友: friend_message	
                    if ( $msg->content =~ /^\s*BTC\s*$/i ) {	
                        my $message = &btc();	
                        $msg->reply($message);	
                    }	
                }	
            }	
        );	
    }	
);	
$client->run();	
	
sub btc {	
    my $ticker = `curl -s "https://blockchain.info/ticker"`;	
    if ($ticker) {	
        my $json = from_json($ticker);	
        return "1 BTC\n$json->{'USD'}->{'symbol'}$json->{'USD'}->{'last'} USD\n$json->{'CNY'}->{'symbol'}$json->{'CNY'}->{'last'} CNY";	
    }	
}

小林读者群已满500人。目前还有一个预备群，若你已经是小林微信好友，只要向「小林」私信发送关键字「networknews」就可以自动邀请你加入群聊。对于尚未添加小林微信好友的读者，请先添加微信测试号（91123），然后再私信发送关键字「networknews」自动邀请你加入群聊。

【延伸阅读】

• 20年前如果有区块链技术DoNews将会怎样？

• 分布式媒体平台（一）

• 分布式媒体平台（二）

• 分布式媒体平台（三）

• 分布式媒体平台（四）

• WeOS 微信手机操作系统
  

• 为什么需要价值互联网？
  

• 为什么说区块链是互联网的补丁？

• 智能车就是计算机，无人车就是机器人
  

• 使用Resilio Sync轻松构建跨平台P2P资源共享网络
  

• 绘本推荐《BLOCKCHAIN for babies》
  

• 那些年小林用过的下载软件

• 中国互联网历史上第一个博客

• 简晶的程序人生
  

• 域名投资：切忌把家乡「情怀」当「商业」嗅觉

• 一封20多年前来自瀛海威时空的电子邮件

• 纪念 Web 30 年：说说小林和 Web 的那些事
  

• 马化腾为什么要打破电信网和互联网的壁垒隔阂
  

• 小林和腾讯不得不说的故事（完整篇）

启示录‬ ‭20:1‬ “我又看见一位天使从天降下，手里拿着无底坑的钥匙和一条大链子。”‭

若你喜欢请点「在看」并「分享到朋友圈」～