sugyan https://blog.hatena.ne.jp/sugyan/ すぎゃーんメモ https://memo.sugyan.com/ Perl はてなブックマークの被ブックマーク件数を取得するスクリプト。 さすがにこれはワンライナーだとキツそうだったので普通に書いてみた。 #!/opt/local/bin/perl use strict; use warnings; use Encode 'encode_utf8'; use LWP::Simple 'get'; use XML::RSS; use XMLRPC::Lite; # 引数：URL, 閾値 my $target = shift; my $threshold = shift; unless (defined $target) { print STDERR "usage: $0… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmemo.sugyan.com%2Fentry%2F20090329%2F1238262017" title="指定したURLの被ブックマーク件数を取得するスクリプト - すぎゃーんメモ" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-03-29 02:40:17 rich https://memo.sugyan.com/entry/20090329/1238262017 1.0 100%