電子ペーパーに天気予報を表示します。ラズベリーパイでインターネットから天気予報データを取得して、電子ペーパーに天気予報を表示します。データはひとくち予報 in Feedから使用させていただいてます。
#!/usr/bin/perl
# -*- coding: utf-8 -*-
$url = (@ARGV == 1) ? $ARGV[0] : "http://feedproxy.google.com/hitokuchi_5210"; #表示したい地域のURL
$incmd = "wget -O - $url";
open(IN, "$incmd|") || die;
$outcmd = "wkhtmltopdf -l --zoom 0.75 --encoding UTF-8 -B 0 -L 0 -R 0 -T 0 -g - - | pdftoppm | convert - -crop 200x96+8+8 -threshold 50000 -colors 2 bmp:- | cu --nostop -E '' -s 115200 -l /dev/ttyAMA0";
open(OUT, "|$outcmd") || die;
while (<IN>) {
last if m|の週間予報</h3>|;
}
while (<IN>) {
last if m/]]/;
s/border="1"/border="0"/;
print OUT;
}
close(OUT);
exit;