VoID (Vocabulary of Interlinked Datasets) というLinked Dataのメタデータを記述する語彙があるが、余り使われていなさそう。
既存のSPARQLエンドポイントがあるので、そこで試しに下記のクエリ(VoID のリストを検索する)を試してみた。

PREFIX rdf:      <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX rdfs:     <http://www.w3.org/2000/01/rdf-schema#>
PREFIX owl:      <http://www.w3.org/2002/07/owl#>
PREFIX xsd:      <http://www.w3.org/2001/XMLSchema#>
PREFIX foaf:     <http://xmlns.com/foaf/0.1/>
PREFIX dcterms:  <http://purl.org/dc/terms/>
PREFIX scovo:    <http://purl.org/NET/scovo#>
PREFIX void:     <http://rdfs.org/ns/void#>
PREFIX akt:      <http://www.aktors.org/ontology/portal#>

SELECT DISTINCT ?title ?ex ?endpoint ?homepage WHERE {
 ?x a <http://rdfs.org/ns/void#Linkset> .
 ?ds void:subset ?x .
 ?ds rdfs:label ?title .
 ?ds void:sparqlEndpoint ?endpoint .
 OPTIONAL {?ds dcterms:description ?ex}
 OPTIONAL {?ds foaf:homepage ?homepage}
}

得られる結果は36件。少ないなぁ。

Unix系のOSではおなじみのfindコマンドと同じ振る舞いを簡単にPerlで実現できるモジュールFile::Find。
普段findコマンドを駆使しているなら、find2perlコマンドを使って対応するPerlコードを自動生成させるのが吉。
モジュールのヘルプドキュメントにある通り、

    find2perl / -name .nfs\* -mtime +7 \
        -exec rm -f {} \; -o -fstype nfs -prune

と実行すると、

    sub wanted {
        /^\.nfs.*\z/s &&
        (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_)) &&
        int(-M _) > 7 &&
        unlink($_)
        ||
        ($nlink || (($dev, $ino, $mode, $nlink, $uid, $gid) = lstat($_))) &&
        $dev < 0 &&
        ($File::Find::prune = 1);
    }

と生成される。

時間(タイムスタンプ)情報付きのデータについて、指定した範囲でまとめた上で、各期間について頻度を取得するコマンドをメモ。
例えば、accessed_at という datetime 型の列があり、その時刻に value 列に納められる情報を取得したことを記録するログテーブル access_log を想定する。
そのとき、月ごとのアクセス数を取得するためには以下のようなコマンドを発行する。

SELECT COUNT(value),YEAR(accessed_at),MONTH(accessed_at) FROM access_log GROUP BY YEAR(accessed_at),MONTH(accessed_at);

以下のような結果が得られる。

+--------------+------------------+-------------------+
| COUNT(value) | YEAR(accessed_at) | MONTH(accessed_at) |
+--------------+------------------+-------------------+
|         1893 |             2009 |                 4 |
|         2197 |             2009 |                 5 |
|         1617 |             2009 |                 6 |
|         2354 |             2009 |                 7 |
|         1836 |             2009 |                 8 |
|         1795 |             2009 |                 9 |
|         1930 |             2009 |                10 |
|         1855 |             2009 |                11 |
|         1757 |             2009 |                12 |
|         2386 |             2010 |                 1 |
|         2844 |             2010 |                 2 |
|         2100 |             2010 |                 3 |
+--------------+------------------+-------------------+

参考ページ

すっかり遅くなってしまったけれど、ここに埋め込んでいくことに。
分子生物学会 (BMB2010) のポスター発表でも紹介しました。

mysql の関数で日付を扱う場合のメモ。

リファレンスマニュアルはコチラ。

日付の計算はいろいろと面倒だから、その辺はしっかりと関数で提供されている。

たとえば、今日の日付は CURRENT_DATE()、あるいは CURDATE() で得られる。

mysql> SELECT CURRENT_DATE();
+—————-+
| CURRENT_DATE() |
+—————-+
| 2010-11-08 |
+—————-+
1 row in set (0.00 sec)

そして、「昨日」は DATE_SUB() を利用して以下のように得られる。

mysql> SELECT DATE_SUB(CURRENT_DATE(), INTERVAL 1 DAY);
+——————————————+
| DATE_SUB(CURRENT_DATE(), INTERVAL 1 DAY) |
+——————————————+
| 2010-11-07 |
+——————————————+
1 row in set (0.00 sec)

「曜日」に関しては以下のような関数群が用意されている。

+——————–+
| DAYNAME(CURDATE()) |
+——————–+
| Monday |
+——————–+
1 row in set (0.00 sec)

mysql> SELECT DAY(CURDATE());
+—————-+
| DAY(CURDATE()) |
+—————-+
| 8 |
+—————-+
1 row in set (0.00 sec)

mysql> SELECT DAYOFWEEK(CURDATE());
+———————-+
| DAYOFWEEK(CURDATE()) |
+———————-+
| 2 |
+———————-+
1 row in set (0.00 sec)

今月は何日までだっけ？ という時には LAST_DAY 関数。

mysql> SELECT LAST_DAY(CURDATE());
+———————+
| LAST_DAY(CURDATE()) |
+———————+
| 2010-11-30 |
+———————+
1 row in set (0.00 sec)

などなど。

UNI* 系OS利用者ならよく使うリダイレクション。
標準出力と標準エラー出力を共にリダイレクトする場合の記法を書いておく。

csh, tcsh, zsh

perl -e 'print "Hello World!\n";warn "Hi There!\n";' | & less
perl -e 'print "Hello World!\n";warn "Hi There!\n";' > & /dev/null


sh, bash

perl -e 'print "Hello World!\n";warn "Hi There!\n";' 2>&1 | less
perl -e 'print "Hello World!\n";warn "Hi There!\n";' > /dev/null 2>&1
perl -e 'print "Hello World!\n";warn "Hi There!\n";' >& /dev/null