最新5件(RSS 2.0)
古いモジュールの更新
Plagger(Fedora10)
Plagger(Ubuntu9.04)
CPAN::Mini
Remedie(Ubuntu 9.04、Vine4.9(5α)、Fedora11Preview)
Remedie(Fedora10) 見れたサイトまとめ
編集
2008-12-07
新はてなブックマークのお気に入られの数を取得
#!/usr/bin/perl use strict; use warnings; use LWP::Simple; my $url = 'http://b.hatena.ne.jp/naoya/'; my @data = split(/\n/, get($url)); #改行で分解して @dataへいれる foreach (@data) # ループ { if(/follower">/){ m/follower">(.+?)<\/a>/i; print $1; } }
$ perl test.pl
2008-10-24
はてなブックマーク被お気に入り登録数 ランキング
2016/03/15
http://perlmemo.g.hatena.ne.jp/fedora9/20160315/p1
今回(2016/03/15),前回(2008/12/07)
今回(2008/12/07),前回(2008/10/24) 約43日
はてなブックマーク - blogとWikiは個人サイト構築の両輪・・・ならSBMはエンジン? の大旦那の被お気に入り登録数を調べてみた。
use strict; use warnings; use LWP::Simple; use URI; open(IN,"urllist.txt"); my $count = 1; while(<IN>) { chomp; #改行文字を削除 my $favoritecount = &GetFavoriteCount($_); #被お気に入り登録数を取得 print "|" . $count . "|" . $_ . "|" . $favoritecount . "|\n"; $count++; } close(IN); sub GetFavoriteCount() { #はてなブックマーク被お気に入り登録数を取得 my $url = $_[0]; my @data = split(/\n/, get($url)); #改行で分解して @dataへいれる foreach (@data) # ループ { if(/follower">/){ m/follower">(.+?)<\/a>/i; return $1; } } }
# 旧はてなブックマーク用なのでエラー use strict; use LWP::Simple; use Web::Scraper; use URI; open(IN,"urllist"); my $count = 1; while(<IN>) { chomp; #改行文字を削除 my $favoritecount = &GetFavoriteCount($_); #被お気に入り登録数を取得 print $count . "," . $_ . "," . $favoritecount . "\n"; $count++; } close(IN); sub GetFavoriteCount() { #はてなブックマーク被お気に入り登録数を取得 my $url = $_[0]; my $scraper = scraper { # myFavoriteCount という名前で取るスクレイパーを作成 process '//li[ @class="favorited" ]', 'myFavoriteCount' => 'TEXT'; }; my $uri = new URI($url); my $res = $scraper->scrape($uri); # 先ほどのスクレイパーに渡す。(スクレイピングされる) return $res->{myFavoriteCount}; }
urllist.txt が必要
$ perl test.pl > out
$ vi out
:%s/,h/|h/g
,h を |h に置換
:%s/¥/,/¥/|/g
/, を /| に置換 (/ は ¥/ でエスケープ)
qa で記録開始
q で記録終了
@a で実行
10@a で10回実行
urllist.txt 作成
csvの内容をペーストしてはてなテーブル記法に変換
はてなテーブルエディター リンク切れ
2008-10-22
WebService::Hatena::BookmarkCount
$ sudo cpan -i WebService::Hatena::BookmarkCount
WebService::Hatena::BookmarkCount - はてなブックマーク件数取得APIへのPerlインターフェースでコードを取得
$ perl test.pl
getCount() と getTotalCount() が使えます。
2008-10-10
はてなブックマーク合計数取得(CGIの引数で)
http://www.hatena.ne.jp/&http://www.yahoo.co.jp/
#!/usr/local/bin/perl #http://tophatenar.com/ use strict; use warnings; use XMLRPC::Lite; our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc'; my $formin = $ENV{'QUERY_STRING'}; my @indata = split(/&/,$formin); print "Content-type: text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>はてなブックマーク合計数取得API</title>\n"; print "</head>\n"; print "<body bgcolor=\"#ffcccc\">\n"; foreach(@indata) { my $count = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $_) ->result; printf("%d,%s<br>\n", $count, $_); } print "</body>\n"; print "</html>\n";
はてなブックマーク件数取得(CGIの引数で)
http://www.hatena.ne.jp/&http://www.yahoo.co.jp/
#!/usr/local/bin/perl #http://d.hatena.ne.jp/keyword/%a4%cf%a4%c6%a4%ca%a5%d6%a5%c3%a5%af%a5%de%a1%bc%a5%af%b7%ef%bf%f4%bc%e8%c6%c0API use strict; use warnings; use XMLRPC::Lite; our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc'; my @urls = ( #'http://www.hatena.ne.jp/', #'http://d.hatena.ne.jp/', #'http://blog.goo.ne.jp/', ); my $formin = $ENV{'QUERY_STRING'}; my @indata = split(/&/,$formin); push(@urls,$_) for @indata; #push(@urls,'http://www.hatena.ne.jp/'); #push(@urls,'http://d.hatena.ne.jp/'); my $map = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getCount', @urls) ->result; print "Content-type: text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print '<meta http-equiv="Content-Type" content="text/html; charset=shift-jis">' . "\n"; print "<title>はてなブックマーク件数取得API</title>\n"; print "</head>\n"; print "<body bgcolor=\"#ffcccc\">\n"; #print "http://www.hatena.ne.jp/ のブックマーク件数<br>\n"; printf("%d,%s<br>\n", $map->{$_},$_) for @urls; # $map->{$_} = 1813 print "</body>\n"; print "</html>\n";
beginners CGI - CGI に引数を付けて値を渡す -
2008-09-18
はてなブックマーク合計数取得API
jkondoさんのページ全体
http://hiroyuki12.sakura.ne.jp/hatenabookmarkTotalCount2.cgi
#!/usr/local/bin/perl #http://tophatenar.com/ use strict; use warnings; use XMLRPC::Lite; our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc'; #my @urls = ( # #'http://d.hatena.ne.jp/', # 'http://blog.goo.ne.jp/', #); #1 my $url = 'http://d.hatena.ne.jp/jkondo/'; my $jkondo = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; print "Content-type: text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>はてなブックマーク合計数取得API</title>\n"; print "</head>\n"; print "<body bgcolor=\"#ffcccc\">\n"; print "jkondo " . $jkondo . "<br>\n"; print "</body>\n"; print "</html>\n";
perl test.pl
いろいろ
http://hiroyuki12.sakura.ne.jp/hatenabookmarkTotalCount.cgi
#!/usr/local/bin/perl #http://tophatenar.com/ use strict; use warnings; use XMLRPC::Lite; our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc'; #my @urls = ( # #'http://d.hatena.ne.jp/', # 'http://blog.goo.ne.jp/', #); #my $url, my $count; my $url = 'http://d.hatena.ne.jp/'; my $count = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #1 $url = 'http://d.hatena.ne.jp/finalvent/'; my $finalvent = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #2 $url = 'http://d.hatena.ne.jp/fromdusktildawn/'; my $fromdusktildawn = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #3 $url = 'http://d.hatena.ne.jp/naoya/'; my $naoya = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #4 $url = 'http://d.hatena.ne.jp/umedamochio/'; my $umedamochio = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #5 $url = 'http://d.hatena.ne.jp/amachang/'; my $amachang = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #6 $url = 'http://d.hatena.ne.jp/kanose/'; my $kanose = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #7 $url = 'http://d.hatena.ne.jp/essa/'; my $essa = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #8 $url = 'http://d.hatena.ne.jp/sirouto2/'; my $sirouto2 = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #9 $url = 'http://d.hatena.ne.jp/mkusunok/'; my $mkusunok = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; #10 $url = 'http://d.hatena.ne.jp/jkondo/'; my $jkondo = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getTotalCount', $url) ->result; print "Content-type: text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print "<title>はてなブックマーク合計数取得API</title>\n"; print "</head>\n"; print "<body bgcolor=\"#ffcccc\">\n"; printf "はてなダイアリー全体 " . $count . "<br>\n"; printf "finalvent " . $finalvent . "<br>\n"; printf "finalvent " . $finalvent * 100 / $count . " %<br><br>\n"; printf "fromdusktildawn " . $fromdusktildawn . "<br>\n"; printf "fromdusktildawn " . $fromdusktildawn * 100 / $count . " %<br><br>\n"; printf "naoya " . $naoya . "<br>\n"; printf "naoya " . $naoya * 100 / $count . " %<br><br>\n"; printf "umedamochio " . $umedamochio . "<br>\n"; printf "umedamochio " . $umedamochio * 100 / $count . " %<br><br>\n"; printf "amachang " . $amachang . "<br>\n"; printf "amachang " . $amachang * 100 / $count . " %<br><br>\n"; printf "kanose " . $kanose . "<br>\n"; printf "kanose " . $kanose * 100 / $count . " %<br><br>\n"; printf "essa " . $essa . "<br>\n"; printf "essa " . $essa * 100 / $count . " %<br><br>\n"; printf "sirouto2 " . $sirouto2 . "<br>\n"; printf "sirouto2 " . $sirouto2 * 100 / $count . " %<br><br>\n"; printf "mkusunok " . $mkusunok . "<br>\n"; printf "mkusunok " . $mkusunok * 100 / $count . " %<br><br>\n"; printf "jkondo " . $jkondo . "<br>\n"; printf "jkondo " . $jkondo * 100 / $count . " %<br><br>\n"; printf "合計<br>" . $finalvent + $fromdusktildawn + $naoya + $umedamochio + $amachang + $kanose + $essa + $sirouto2 + $mkusunok + $jkondo . "\n"; printf "合計<br>" . ($finalvent + $fromdusktildawn + $naoya + $umedamochio + $amachang + $kanose + $essa + $sirouto2 + $mkusunok + $jkondo) * 100 / $count . "\n"; print "</body>\n"; print "</html>\n";
safariで開く
はてなブックマーク件数取得API
http://www.hatena.ne.jp/ (トップページ)のブックマーク件数
指定したページのブックマーク件数を取得できます。
#!/usr/local/bin/perl #http://d.hatena.ne.jp/keyword/%a4%cf%a4%c6%a4%ca%a5%d6%a5%c3%a5%af%a5%de%a1%bc%a5%af%b7%ef%bf%f4%bc%e8%c6%c0API use strict; use warnings; use XMLRPC::Lite; our $EndPoint = 'http://b.hatena.ne.jp/xmlrpc'; my @urls = ( 'http://www.hatena.ne.jp/', #'http://d.hatena.ne.jp/', #'http://blog.goo.ne.jp/', ); my $map = XMLRPC::Lite ->proxy($EndPoint) ->call('bookmark.getCount', @urls) ->result; print "Content-type: text/html\n"; print "\n"; print "<html>\n"; print "<head>\n"; print '<meta http-equiv="Content-Type" content="text/html; charset=shift-jis">' . "\n"; print "<title>はてなブックマーク件数取得API</title>\n"; print "</head>\n"; print "<body bgcolor=\"#ffcccc\">\n"; printf("%d\n", $map->{$_}) for @urls; print "</body>\n"; print "</html>\n";
JasonFoets2017/01/25 04:27печать буклетаов http://wkrolik.com.ua/products/buklety