■

rubyではてなブックマーク数取得
urlを失念してしまいましたがrubyではてなブックマーク数を取得するコードを見たので真似して作ってみました。

require 'xmlrpc/client'
def getHatenaBookmarkNum(url)
  serv = XMLRPC::Client.new2('http://b.hatena.ne.jp/xmlrpc')
  result = serv.call("bookmark.getCount",url)
  result[url]
end
p getHatenaBookmarkNum('http://wiredvision.jp/news/200802/2008020421.html')

結果

65

なんかこんな感じ

■

perlを使えるようになりたいのでActivePerlをインストール。
http://allabout.co.jp/internet/cgiperl/closeup/CU20050131A/index2.htm
のPerlでRSS取得を試してみる。

use LWP::Simple;
use XML::RSS;

my $url = 'http://allabout.co.jp/rss/all/index.rdf';
my $data_from_web = get($url);
my $rss = new XML::RSS;
$rss->parse($data_from_web);
print $rss;

XML::RSS=HASH(0x27b314)

おお、なんか取得できた。
どうやらハッシュっぽい？
しかしperlのハッシュのキーと値の取得方法はまったくわからない。

my $channel = $rss->{'channel'};
print $channel->{'link'};

http://allabout.co.jp/

なるほど、->{'channel'}とかがキーから値を取得する方法か。
しかし新しい言語を勉強するとき困るのが関数とかの調べ方だなぁ。
rubyならRubyリファレンスマニュアルで調べられるんだけどperlの場合はなに使えばいいんだろ
http://www.ruby-lang.org/ja/man/html/index.html

C言語でファイルの存在を確認 

#include <sys/types.h>
#include <sys/stat.h>

char filename[256];
struct stat st;
filename="調べたいファイル";
int ret;
ret=stat(filename,&st);
if(0==ret)
{
 printf("%s exist.\n",filename);
}else{
 printf("%s not exist.\n",filename);
}

こんな感じでstat関数を使うと調べられました。