小林的預測只是玩笑和談資切勿直接作為投資參考
此前寫過一篇《用 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";
}
}
